copy-paste nur in bestimmten Blättern deaktivieren
21.09.2015 17:20:16
Wolfango
das Makro unten steht unter diese Arbeitsmappe und tut einwandfrei seinen Dienst (alle Varianten von copy-paste werden deaktiviert).
Ist es möglich, den Code so anzupassen, dass die copy-paste-Befehle nur in bestimmten benannten Arbeitsblättern (Namen: Januar, Februar, März) inaktiv werden und nicht in der gesamten Mappe?
Dankeschön und Gruß,
Wo
'******************************
Option Explicit
Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CutCopyMode = False
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
Application.CellDragAndDrop = False
End Sub
Anzeige