Esconder Menus no Excel 2007

[jnabais]

Boa noite

Como posso esconder via VBA todos os menus do excel 2007 de forma a que a reposição dos mesmos seja apenas possível via VBA. (não esquecer a alternativa "restaurar" na barra superior).

Obrigado

[pedromgantunes]

Penso que isto resolve

um faz com que os menus desapareçam e outro com que voltem ao normal.

Sub Sair()
Dim barras
On Error Resume Next
    For Each barras In Application.CommandBars
        barras.Enabled = True
    Next
    Application.DisplayStatusBar = True
    Application.DisplayFormulaBar = True
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayWorkbookTabs = True
End Sub



Sub Entrar()
    Dim barras, nTela, Cont
On Error Resume Next

    For Each barras In Application.CommandBars
        barras.Enabled = False
    Next
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayStatusBar = False
    

End Sub

[jnabais]

Boa Noite

Obrigado