Ola. Buscando por este tipo de comando achei algumas planilhas feitas para este fim, porém com botões de execução.
Gostaria de desabilitar a barra de ferramenta e icone de fechar do excel, automaticamente ao abrir uma planilha especifica.
Nos modelos que achei oculta, mas precisa executar o comando e muda todos os trabalhos posteriormente.
Poriam me mostrar como modificar os códigos para fazer o desejado, somente na planilha em questão sem influenciar as demais e de forma que seja executado ao abrir a planilha.
Vou anexar as planilhas que achei de exemplo.
Desde já agradeço
SDS
Luiz
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Ocultando a barra de ferramenta
Ocultando a barra de ferramenta
- Anexos
-
- menus.zip
- (29.33 KiB) Baixado 303 vezes
-
- SEMBOTAO_X.zip
- (10.91 KiB) Baixado 290 vezes
Re: Ocultando a barra de ferramenta
Achei uma citação do Mauro Coutinho de que certos comandos que funcionam para este fim no excel 2003, não funcionaram no 2007 porque este usa "Ribbons".
Ainda assim disponibilizou o comando:
Sub OcultaRibbon()
Application.SendKeys "^{F1}", True
End Sub
Mas ele oculta somente parte da barra e não desabilita o icone de fechar do excel. Assim acho que a expressão certa seria como colocar uma planilha especifica do excel em modo DATASHOW.
SDS
Luiz
Ainda assim disponibilizou o comando:
Sub OcultaRibbon()
Application.SendKeys "^{F1}", True
End Sub
Mas ele oculta somente parte da barra e não desabilita o icone de fechar do excel. Assim acho que a expressão certa seria como colocar uma planilha especifica do excel em modo DATASHOW.
SDS
Luiz
Re: Ocultando a barra de ferramenta
Ola. Assim consigo ocultar a barra de ferramenta, fica bem legal. Mas poderiam me ajudar a desativar ao fechar a planilha ou que esse código só afete a planilha em questão. Porque ele muda todos os documentos do excel do computador.
Public Sub Workbook_open()
Dim barras, nTela, Cont
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
End Sub
Public Sub Workbook_open()
Dim barras, nTela, Cont
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
End Sub
Re: Ocultando a barra de ferramenta
Ola. Misturando os códigos ficou legal. Mas acho que poderia ter ficando mais ágil. Gostaria da opinião de vcs.
sds
luiz
sds
luiz
- Anexos
-
- datashow.rar
- (35.84 KiB) Baixado 376 vezes