Ich habe eine Datei mit einer Tabelle und möchte verhindern, dass die User Zellen löschen können. Im Archiv habe ich dazu folgenden Code gefunden. Damit kann "Bearbeiten - Zellen löschen" ausgeschaltet werden. Über die rechte Maustaste ist die Aktion aber noch möglich. Weiss jemand weshalb?
Private Sub Workbook_Open()
' [STRG]+[V] deaktivieren:
Application.OnKey "^v", ""
' Menue Bearbeiten teilweise deaktivieren:
With Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten")
.Controls("Einfügen").Enabled = False
End With
' Menue Bearbeiten teilweise deaktivieren:
With Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten")
.Controls("Zellen löschen...").Enabled = False
End With
' Menue rechte Maustaste deaktivieren:
Application.CommandBars("Cell").Controls("Zellen löschen...").Enabled = False
Application.CommandBars("Cell").Controls("Zellen einfügen...").Enabled = False
End Sub
mfg
Benno