ich möchte gerne die Schaltfläche Optionen, Blatt einfügen und jegliches Speichern deaktivieren. Wie kann ich das am Besten in ein auto_open schreiben?
Danke für jegliche Hilfe
Gruß aus Hannover
marcl
Sub auto_open()
' speicehrn deaktivieren:
Application.OnKey "^s", ""
Application.OnKey "%u", ""
Application.OnKey "%o", ""
' Menue Datei teilweise deaktivieren:
With Application.CommandBars("Worksheet Menu Bar").Controls("Datei")
.Controls("Speichern").Enabled = False
.Controls("Speichern unter...").Enabled = False
End With
With Application.CommandBars("Worksheet Menu Bar").Controls("Extras")
.Controls("Optionen...").Enabled = False
End With
End Sub