Macro para sair do Libreoffice Base

[S1CAIME]

Fiz uma macro que segue para sair do Libreoffice Base:

sub closeprog()


   stardesktop.terminate()


End sub

Entretanto, ao ser executar a macro ocorre a saída de todos os programas do Libreoffice e não somente do banco de dados. Como resolvo esse problema?

[Grafeno]

Bom dia,

Com a macro sendo executada a partir de um módulo salvo no Documento do Base:

Sub FecharBase()
   
   ThisDatabaseDocument.Close(True)
   
End Sub

Atte,