Gruppe
Menue
Problem
Das Extras-Menü soll aktiviert bzw. deaktiviert werden.
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