Menüleiste

Ich habe Folgendes Problem !

Sub AUTO_OPEN()

Application.EnableCancelKey = xlDisabled
DisplayAlerts = False

With Application.CommandBars("Worksheet Menu Bar").Controls("Extras")

.Controls("Makro").Enabled = False
.Controls("Schutz").Enabled = False


End With

With Application.CommandBars("Worksheet Menu Bar").Controls("Fenster")

.Controls("Fixierung aufheben").Enabled = False

End With


End Sub

Es klappt alles , aber kann ich auch mit einem Befehl
z.b " Extras " alles auf einmal ausschalten,
ohne alles einzeln aufzulisten .

mfg Johny