Notifications
Clear all

Tela cheia, ocultar menus, barras, etc.

3 Posts
2 Usuários
0 Reactions
2,250 Visualizações
(@walterfeo)
Posts: 15
Active Member
Topic starter
 

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
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Insira os códigos false no evento Activate da sua planilha

Insira os códigos True no evento Deactivate da sua planilha

e pronto.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 26/07/2018 7:48 am
(@walterfeo)
Posts: 15
Active Member
Topic starter
 

Como eu não pensei nisso antes... credo.

Obrigado.

 
Postado : 26/07/2018 8:00 am