Ocultar o menu excel

[Luiz de Lima]

Visualizei vários tópicos sobre o assunto. Mas todos os macros ativam e desativam com SUB separados, achei um referencia de abas que são habilitadas e desabilitadas na mesma sub. Tentei adaptar a parte do menu, mas não tive sucesso.

Gostaria, se possível uma ajuda.

SDS

Luiz

O codigo:

Sub lsLigarTelaCheia()

   'Oculta todas as guias de menu
   Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" Este no caso não consegui fazer ativar e desativar na mesma sub.
   
   Application.DisplayFormulaBar = True = Not Application.DisplayFormulaBar = True
    
   Application.DisplayStatusBar = True = Not Application.DisplayStatusBar = True
        
   With ActiveWindow
        
   ActiveWindow.DisplayHorizontalScrollBar = True = Not DisplayHorizontalScrollBar = True
        
   ActiveWindow.DisplayVerticalScrollBar = True = Not DisplayVerticalScrollBar = True
       
   ActiveWindow.DisplayWorkbookTabs = False
        
   ActiveWindow.DisplayHeadings = True = Not ActiveWindow.DisplayHeadings = False = True
       
   ActiveWindow.DisplayZeros = True = Not ActiveWindow.DisplayZeros = True
      
   ActiveWindow.DisplayGridlines = True = Not ActiveWindow.DisplayGridlines = True
    End With
End Sub

[MID CURSOS]

utilizo o seguinte código que esta em anexo e atribuo a macro ocultar e mostrar a botões.

ocultarmostrar.txt

[Luiz de Lima]

VIP, obrigado pela resposta. Eu queria que funcionasse em um só potão. Como não consegui, coloquei assim e esta funcionando. Bloqueei o ESC.

Sub lsLigarTelaCheia()

      
   Application.DisplayFormulaBar = True = Not Application.DisplayFormulaBar = True
    
   Application.DisplayStatusBar = True = Not Application.DisplayStatusBar = True
      
   With ActiveWindow
   
   Application.DisplayFullScreen = True = Not Application.DisplayFullScreen = True
   
   ActiveWindow.DisplayHorizontalScrollBar = True = Not DisplayHorizontalScrollBar = True
        
   ActiveWindow.DisplayVerticalScrollBar = True = Not DisplayVerticalScrollBar = True
       
  ' ActiveWindow.DisplayWorkbookTabs = False
        
   ActiveWindow.DisplayHeadings = True = Not ActiveWindow.DisplayHeadings = True
       
   ActiveWindow.DisplayZeros = True = Not ActiveWindow.DisplayZeros = True
      
   ActiveWindow.DisplayGridlines = True = Not ActiveWindow.DisplayGridlines = True
    End With
End Sub

 

Private Sub Workbook_Open()
    ActiveWindow.DisplayWorkbookTabs = False
    Application.OnKey "{escape}", ""
End Sub
Private Sub Workbook_End()
    Application.OnKey "{escape}"
End Sub