AW: Zellen löschen verhindern
Marcl
Moin Manfred,
hier ein kleiner Code zum abstellen und beim Verlassen, zum Ursprung zurücksetzen.
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
Private Sub Workbook_BeforeClose()
'(Cancel As Boolean)
' Standardeinstellung fuer [STRG]+[X] wieder herstellen:
Application.OnKey "^v"
' Die Menues wieder aktivieren:
Application.CommandBars("Worksheet Menu Bar").Reset
Application.CommandBars("Standard").Reset
' Menue rechte Maustaste wieder aktivieren:
Application.CommandBars("Cell").Controls("Zellen löschen...").Enabled = True
Application.CommandBars("Cell").Controls("Zellen einfügen...").Enabled = True
End Sub
Gruß
Marcl