Bearbeiten/Löschen sperren
24.11.2008 09:02:00
Wolfgang
der untenstehende Auszug aus einem Code bewirkt, dass bestimmte Menüpunkte und das Menü rechte Maustaste gesperrt werden. Wie muß ich den Code ergänzen, wenn ich unter "Bearbeiten" ebenfalls das Menü "Löschen" gesperrt haben möchte bzw. bei Verlassen der Mappe wieder eingeschaltet haben möchte? - Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Sub BeimOeffnen()
Dim cb As CommandBar
For Each cb In Application.CommandBars
If cb.Name "Worksheet Menu Bar" Then cb.Enabled = False
Next cb
Application.CommandBars.DisableCustomize = True
CommandBars("Worksheet Menu Bar"). _
Controls("Extras").Controls("Makro").Enabled = False 'geht eigentlich noch weiter
End Sub