Notifications
Clear all
2024 - VBA & Macros
3
Posts
3
Usuários
0
Reactions
1,123
Visualizações
Topic starter
Ola Pessoal, fui abrir meu excel é apareceu dessa maneira no top, como devo retornar com que fique normal. Que fique aparecendo todas as opções no top. Obrg a todos que postarem , grato
Postado : 14/04/2018 7:27 am
Bom-dia
Normalmente resolve com dois cliques no topo do documento...!
Postado : 14/04/2018 7:30 am
A seguir há duas macros, uma para ocultar outra para reexibir.
Já estão com comentários para você aproveitar as partes que desejar.
No seu arquivo, aperte alt + f11 e depois ctrl + L.
Procure por Ribbon, basta trocar False por True, para reexibir.
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
https://www.guiadoexcel.com.br/abrir-o-excel-em-tela-cheia-ocultar-barras-guias-e-ferramentas/
Postado : 14/04/2018 9:30 am