[pt-br-usuarios] Personalizando Calc como Aplicativo

Montei um aplicativo que toda a navegação entre abas é por botões.

Tenho duas macros principais: 1a. Abre tela inteira ( oculta bordas, 
menus, abas)

'=========================================================================
Sub AbreTelaInteiraLigar
'=========================================================================
'oSheet = ThisComponent.Sheets.getByName("ESCOLHER ABA")
oController = ThisComponent.CurrentController
With oController
    '.setActiveSheet(oSheet)
    .ColumnRowHeaders = False
    .SheetTabs = False
    .Frame.LayoutManager.HideCurrentUI = True
End With
end sub


a 2a. é para retornar ao normal.

'=========================================================================
Sub AbreTelaInteiraDesligar
'=========================================================================
'oSheet = ThisComponent.Sheets.getByName("ESCOLHER ABA")
oController = ThisComponent.CurrentController
With oController
   ' .setActiveSheet(oSheet)
    .ColumnRowHeaders = True
    .SheetTabs = True
    .Frame.LayoutManager.HideCurrentUI = False
End With
End Sub


Porém é preciso clicar em uma célula qualquer para mostrar as barras de 
ferramentas, já tentei inserir ir para uma célula, mas não funciona.

Pergunta qual comando que falta para ativar as Barras de ferramentas.


--
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
 mande e-mail vazio para usuarios+unsubscribe@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
 usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/