gerne würde ich das "Kopieren/Ausschneiden/Einfügen" sowie das "Herunterziehen" von Zelleninformationen in nicht gesperrten Zellen (Blattschutz aktiv) verhindern.
Dazu habe ich auch bereits die passenden Befehle in das Microsoft Excel Modul "Dieses Arbeitsblatt" kopiert (Code s.u.).
Das Problem ist nun, dass ich in der gesamten datei nichts mehr Kopieren/Herunterziehen kann. Wie kann man dieses Code auf nur ein Tabellenblatt (z.B. "Rechenblatt") anwenden? Kann mir jemand dabei helfen?
Vielen Dank und viele Grüße
Martin
Option Explicit
Dim bolDRAGnDrop As Boolean
Private Sub Workbook_Activate()
bolDRAGnDrop = Application.CellDragAndDrop
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CellDragAndDrop = bolDRAGnDrop
End Sub
Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = bolDRAGnDrop
End Sub
Private Sub Workbook_Open()
bolDRAGnDrop = Application.CellDragAndDrop
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub