Gruppe
Menue
Bereich
PopUp
Thema
Das Extras-Menü aktivieren/deaktivieren
Problem
Das Extras-Menü soll aktiviert bzw. deaktiviert werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1
Sub ExtrasEinAus()
Dim ctr As CommandBarControl
Set ctr = Application.CommandBars("Worksheet Menu Bar").Controls("Extras")
With ctr
.Enabled = Not .Enabled
End With
End Sub