Prezados, bom dia.
Recentemente resolvi pesquisar no google: Excel com cara de sistema.
Encontrei neste link https://www.guiadoexcel.com.br/abrir-o- ... rramentas/ um código para tal, sendo este:
Sub lsLigarTelaCheia()
'Oculta todas as guias de menu
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
'Ocultar barra de fórmulas
Application.DisplayFormulaBar = False
'Ocultar barra de status, disposta ao final da planilha
Application.DisplayStatusBar = False
'Alterar o nome do Excel
Application.Caption = "Controle de manutenção de veículos 3.0"
With ActiveWindow
'Ocultar barra horizontal
.DisplayHorizontalScrollBar = False
'Ocultar barra vertical
.DisplayVerticalScrollBar = False
'Ocultar guias das planilhas
.DisplayWorkbookTabs = False
'Oculta os títulos de linha e coluna
.DisplayHeadings = False
'Oculta valores zero na planilha
.DisplayZeros = False
'Oculta as linhas de grade da planilha
.DisplayGridlines = False
End With
End Sub
Sub lsDesligarTelaCheia()
'Reexibe os menus
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
'Reexibir a barra de fórmulas
Application.DisplayFormulaBar = True
'Reexibir a barra de status, disposta ao final da planilha
Application.DisplayStatusBar = True
'Reexibir o cabeçalho da Pasta de trabalho
ActiveWindow.DisplayHeadings = True
'Retornar o nome do Excel
Application.Caption = ""
With ActiveWindow
'Reexibir barra horizontal
.DisplayHorizontalScrollBar = True
'Reexibir barra vertical
.DisplayVerticalScrollBar = True
'Reexibir guias das planilhas
.DisplayWorkbookTabs = True
'Reexibir os títulos de linha e coluna
.DisplayHeadings = True
'Reexibir valores zero na planilha
.DisplayZeros = True
'Reexibir as linhas de grade da planilha
.DisplayGridlines = True
End With
End Sub
Porém, quando eu abro qualquer outro arquivo, o excel permanece com as guias, menus, etc oculto.
Eu gostaria que o código fosse limitado a apenas uma planilha, e as demais fossem abertas "normalmente".
Encontrei a mesma dúvida respondida no site por outros usuários, mas não entendi.
A questão é: Tem como fazer com que esse código seja executado em apenas uma planilha específica, não interferindo na abertura de outros arquivos?
Desde já, obrigado.
Att.,
Walter.
Postado : 26/07/2018 7:44 am