Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Deaktivieren und Aktivieren von Drag&Drop

Gruppe

Activate

Problem

Bei Aktivierung dieser Arbeitsmappe soll das Drag&Drop-Feature ab-, beim Deaktivieren wieder auf den ursprünglichen Zustand zurückgesetzt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

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