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