Ausschneiden verhindern
HeinrichB
mit meiner Frage https://www.herber.de/forum/messages/421405.html
zum Verhindern von Ausschneiden bin ich leider nicht zum Ziel gekommen, trotz vieler brauchbarer Anregungen (danke dafür!).
ich habe nun die Idee, das Ausschneiden zu verhindern mit dem .onkey-ereignis
Private Sub Worksheet_Activate()
'Cut Erkennung aktivieren
.OnKey "^x", "Vor_Ausschneiden_warnen"
End With
End Sub
Private Sub Worksheet_Deactivate()
'Cut Erkennung Zuruecksetzen
With Application
.OnKey "^x"
End With
End Sub
Meine Frage: Gibt es sowas auch für die Menüfunktionen 'Bearbeiten-Ausschneiden', die rechte Mausfunktion 'Ausschneiden' und das Menü-Icon 'ausschneiden'(Schere)? (entweder erkennen wenn sie betätigt werden oder deaktivieren).
(Anm.: Drag and Drop gehört auch dazu, das habe ich bereits verhindert).
Danke im Voraus
Heinrich B