Ocultar todas as planilhas

[LeandroVieira]

Olá, pessoal!
Parece simples, mas alguém sabe como ocultar todas as planilhas, pois sempre fica uma em exibição e não oferece a opção de ocultá-la, o que quero também é ocultar a barra onde elas se localizam.

Outro sim, tentei executar as macros para acessar as planilhas ocultas e não funcionam (como hiperlink).

[schiavinatto]

Ola @LeandroVieira, tenho estas 2 macros uma aciona modo aplicativo, só fica a planilha (células) todo o resto e subtraído da tela a outra é para retornar.

'=====================================================================
Sub TelaInteiraLigar
'=====================================================================
	'Para abrir TELA INTEIRA na abertura do arquivo
	'Ferramentas / Personalizar / Eventos
	'Ao abrir documento
	'ligar a MACRO ok.
'=====================================================================
dim document, dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	Call IrPara "Inicio.A1"
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FullScreen"
args1(0).Value = true
dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args1())
Dim oController As Object
oController = ThisComponent.CurrentController
With oController
	.ColumnRowHeaders = False
	.SheetTabs = False
	.Frame.LayoutManager.HideCurrentUI = True
end With
end sub

'=====================================================================
Sub TelaInteiraDesligar
'=====================================================================
	'Para desligar TELA INTEIRA, para de Edição
	'Criar um Botão, ligado nesta Macro.
'=====================================================================
dim document, dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")rem 
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "FullScreen"
args2(0).Value = false
dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args2())
Dim oController As Object
oController = ThisComponent.CurrentController
With oController
	.ColumnRowHeaders = True
	.SheetTabs = True
	.Frame.LayoutManager.HideCurrentUI = False
	.Frame.ComponentWindow.SetFocus() '<<<< Devolver o foco a janela <<<<'
End With
End Sub

Quanto as macro acessar planilhas ocultas, também não consegui.

Sobre ocultar todas as planilhas também tentei e a última fica sem opção de ocultar.

A saída foi Ocultar todas as Linhas e todas as Colunas, tenho estas macros linkadas em um MENU:

'================================================|
sub Menu_OcultarColunasRestantes   
' da atual até o Fim.
'================================================|
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:GoRightToEndOfDataSel", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:HideColumn", "", 0, Array())
end sub


'================================================|
sub Menu_OcultarLinhasRestantes 
' da atual até o Fim.
'================================================|
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfDataSel", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:HideRow", "", 0, Array())
end Sub

'======================================================================
sub Menu_LinhasOcultasMostrarTodas
'======================================================================
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A:$A"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:ShowRow", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args2())
end sub


'======================================================================
Sub Menu_ColunasOcultasMostrarTodas
'======================================================================
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A:$AMJ"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:ShowColumn", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args2())
end Sub

---

ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

[LeandroVieira]

Agradeço pela resposta, me atentei somente em ocultar essa barra, sem nenhuma aba visível, todavia vou tentar melhorar a resolução ou zoom quando em tela cheia acionada pela macro.

[schiavinatto]

@LeandroVieira, sobre a resolução tenho uma pergunta pendente.

Personalizando Calc como Aplicativo - II

Na Macro abaixo, tem possibilidade de definir o tamanho da janela em pixel ou percentual da tela, e centralizar na tela ? Ou melhor fixar o tamanho da janela para não houver alteração pelo usuário ? Da maneira que esta, a tela é aberta conforme o último salvamento do arquivo. '======================================================================== Sub AbreTelaInteiraLigar '========================================================================= 'oSheet = ThisComponent.Sheets.getByName("ESCO…

Fiz a mesma pergunta na ask, inglesa e na espanhola e nada.