Ocultar Planilha

[MauroMeira]

Boa Tarde à todos, no LibreOffice eu consigo trabalhar com Planilha Oculta/Invisível, apenas com o formulário ativo, pode passar a macro/código para essa ação, por favor, Grato.

[schiavinatto]

Acredito que possa simular na aparência: tenho estas duas macros, a primeira desativa a visualização de menus, fica visível somente a planilha ( células ), a segunda é para voltar a visualizar.

Então no acionamento do formulário ( acredito ser o dialogo ), a planilha ativa vai para uma área sem dados ( desativar visualização de bordas das células ), e ativa a primeira macro. E ao finalizar o dialogo aciona a segunda macro.

'' Modo Aplicativo Ligar = Sub FullScreenON
Sub FullScreenON
'-------------------------------------------------------
' xplan = planilha de aberura ( menu do arquivo )
' xtitulo = título que mostra no cabeçãlho da tela
'Para abrir TELA INTEIRA na abertura do arquivo
'Ferramentas / Personalizar / Eventos
'Ao abrir documento
'ligar a MACRO ok.
Dim oSheet As Object
Dim oController As Object
oSheet = ThisComponent.Sheets.getByName( "Plan1" )  '<== Planilha a Visualizar Inicialmente.
oController = ThisComponent.CurrentController
With oController
 .setActiveSheet(oSheet)
 .ColumnRowHeaders = False
 .SheetTabs = False
 .Frame.LayoutManager.HideCurrentUI = True
 .HorizontalScrollBar = False
 .VerticalScrollBar = False 
 .Frame.Title ="Título do Aplicativo"
end With
end Sub

'' Modo Aplicativo Desligar = Sub FullScreenOFF
Sub FullScreenOFF
Dim oController As Object
oController = ThisComponent.CurrentController
With oController
 .ColumnRowHeaders = True
 .SheetTabs = True
 .Frame.LayoutManager.HideCurrentUI = False
 .HorizontalScrollBar = False
 .VerticalScrollBar = False 
 .Frame.ComponentWindow.SetFocus() '<<<< Devolver o foco a janela <<<<'
End With
End Sub

[MauroMeira]

Bom Dia Sr. Schiavinatto, obrigado mais uma vez pela ajuda, ficou ótimo na planilha.