RibbonX-Workshop - Menüband ausblenden, einblenden, ausklappen und einklappen

Möchten Sie das Menüband ein- oder ausklappen können Sie, ab Office 2010, den folgenden Code verwenden.

Für Excel in DieseArbeitsmappe

Menüband aus- und einblenden:

Private Sub Workbook_Deactivate()
    Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", True)"   
End Sub

Private Sub Workbook_Activate()
    Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"   
End Sub

Menüband aus- und einklappen (STRG+F1):

Private Sub Workbook_Deactivate()
    Application.CommandBars.ExecuteMso "MinimizeRibbon"   
End Sub

Private Sub Workbook_Activate()
    Application.CommandBars.ExecuteMso "MinimizeRibbon"   
End Sub

Für Word in ein allgemeines Modul

Option Explicit

Private Sub AutoOpen()
    Application.CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

Private Sub AutoClose()
    Application.CommandBars.ExecuteMso "MinimizeRibbon"
End Sub