Gruppe
Ereignis
Problem
Bei Aktivierung dieser Arbeitsmappe soll das Drag&Drop-Feature ab-, beim Deaktivieren wieder auf den ursprünglichen Zustand zurückgesetzt werden.
ClassModule: DieseArbeitsmappe
Public gbln As Boolean
Private Sub Workbook_Activate()
gbln = Application.CellDragAndDrop
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CellDragAndDrop = gbln
If Err > 0 Then
Application.CellDragAndDrop = True
End If
End Sub