Olá Pessoal, Boa Tarde.
Sou novo aqui no fórum e espero que alguém possa me ajudar.
É o seguinte.
Estou com um problemão na hora de excutar uma MACRO. preciso que ao executar a pasta de trabalho , todos os menus e abas desaparecem, e fique apenas a planilha, sem os botões de minimizar, restaurar e fechar.
Eu consegui a primeira parte. Fiz uma Macro para ocultar os menus e colocar a planilha em tela cheia. porém se eu restaurar a mesma ou minimizar e voltar, os menus aparecerão novamente, e o meu objetivo irá por água abaixo.
Como posso fazer a segunda parte ? Ocultar botões de minimizar, Restaurar e Fechar ? O código que usei estava dando erro de compilação. Andei pesquisando e vi que era por causa da versão. Eu uso x64. Porém quero que a macro rode tanto em versões do office 2010 versão x64 e x32 bits, quanto nas anteriores à 2007.
o Código que utilizei para a primeira parte foi (esconder menus e abrir em tela cheia):
Sub Entrar1()
Dim barras
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
Sub Sair2()
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = True
Next
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Postado : 17/04/2014 2:51 pm