Ausblenden von Menüpunkten
08.08.2003 11:07:57
Felix
ich möchte gerne, um meine Arbeitsmappen zu schützen meine Menüpunkte für den Benutzer sperren. Hierzu verwende ich folgenden Code:
Sub auto_open()
Dim Ctrl As CommandBarControl
For Each Ctrl In Application.CommandBars("Format").Controls
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars("Edit").Controls
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars("Tools").Controls
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars("View").Controls
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars("Data").Controls
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars("Insert").Controls
Ctrl.Enabled = False
Next Ctrl
End Sub
Leider wird der Menüpunkt "Insert" = Einfügen nicht ausgeblendet. Lässt er sich nicht ausblenden oder muss ich eine andere Bezeichnung wählen?