Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Ocultando a barra de ferramenta

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
jovemlima
Consultor
Consultor
Mensagens: 247
Registrado em: Ter Jan 05, 2010 7:20 am

Ocultando a barra de ferramenta

Mensagem por jovemlima »

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
Anexos
menus.zip
(29.33 KiB) Baixado 303 vezes
SEMBOTAO_X.zip
(10.91 KiB) Baixado 290 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


jovemlima
Consultor
Consultor
Mensagens: 247
Registrado em: Ter Jan 05, 2010 7:20 am

Re: Ocultando a barra de ferramenta

Mensagem por jovemlima »

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


jovemlima
Consultor
Consultor
Mensagens: 247
Registrado em: Ter Jan 05, 2010 7:20 am

Re: Ocultando a barra de ferramenta

Mensagem por jovemlima »

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


jovemlima
Consultor
Consultor
Mensagens: 247
Registrado em: Ter Jan 05, 2010 7:20 am

Re: Ocultando a barra de ferramenta

Mensagem por jovemlima »

Ola. Misturando os códigos ficou legal. Mas acho que poderia ter ficando mais ágil. Gostaria da opinião de vcs.


sds
luiz
Anexos
datashow.rar
(35.84 KiB) Baixado 376 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder