Problem mit Drag&Drop und kopieren (VBA)

Private Sub Workbook_Activate()
'Verhindert Drag&Drop (Teil-1)
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Verhindert Drag&Drop (Teil-2)
Application.CellDragAndDrop = True
End Sub

Private Sub Workbook_Deactivate()
'Verhindert Drag&Drop (Teil-3)
Application.CellDragAndDrop = True
End Sub

Private Sub Workbook_Open()
'Verhindert Drag&Drop (Teil-4)
Application.CellDragAndDrop = False
End Sub

Das funktioniert soweit auch Prima, mein Problem ist allerdings das ich nun keine Zellen mehr in andere Arbeitsmappen „kopieren“ kann.
Würde mich riesig über eine Lösung freuen :-)
Danke und Gruß
Micha