VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Alle Menüs und Symbolleisten ausblenden

Gruppe

Menue

Bereich

Bar

Thema

Alle Menüs und Symbolleisten ausblenden

Problem

Wie kann ich alle Menü- und Symbolleisten einschließlich der Excel- und Tabellenblattschaltflächen in der oberech rechten Ecke des Fensters ausblenden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: Modul1

Sub AusBlenden()
    CommandBars("Worksheet Menu Bar").Enabled = False
    Application.DisplayFullScreen = True
    ActiveWorkbook.Protect Windows:=True
End Sub

Sub EinBlenden()
    ActiveWorkbook.Unprotect
    CommandBars("Worksheet Menu Bar").Enabled = True
    Application.DisplayFullScreen = False
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Menue und Bar