Makro zum Ausschalten Kontextmenü
13.08.2003 11:52:49
Roland
nun ist es mir schon gelungen zu Verhindern, daß sich jemand an meinen Makros vergreift, in dem ich mit unten folgendem Code die Schaltflächen "bearbeiten" etc. deaktiviert habe.
Nun möchte ich das Ganze auch mit dem Arbeitsblatt-Register und den Zeilen- und Spaltenköpfen machen, aber der Code funktioniert dafür (entsprechend umgeabreitet) nicht. Was muß ich tun ?
Code:
Sub Menü_deaktivieren( )
Dim ctrl As CommandBar
On Error Resume Next
For Each ctrl In Application.CommandBars("Extras".Controls
CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Makros").Enabled = False
Next ctrl
End Sub
Danke
Roland