Drag an Drop wiederherstellen
13.11.2014 09:23:39
caro
Mit diesem (gegoogelten) Code sollte die drag and drop Funktion für Zellen in einer Arbeitsmappe deaktiviert werden, bei Schliessen der Datei aber automatisch wieder aktiviert werden. Nun funktioniert das Deaktivieren bestens, leider bleibt die drag and drop Funktion in Excel aber danach deaktiviert. Was muss ich ändern?
Danke für Hinweise und Gruss
Caro
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
Anzeige