Notifications
Clear all

Como restaurar o cabeçalho do Excel

3 Posts
3 Usuários
0 Reactions
1,079 Visualizações
(@fernandox)
Posts: 0
New Member
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
(@fcarlosc)
Posts: 0
New Member
 

Bom-dia

Normalmente resolve com dois cliques no topo do documento...!

 
Postado : 14/04/2018 7:30 am
(@klarc28)
Posts: 0
New Member
 

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