HERBERS Excel-Forum - die Beispiele

Thema: Deaktivieren und Aktivieren von Drag&Drop

Home

Gruppe

Ereignis

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

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Activate

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten UF Activate / Initialize Ereignis
Windows.Activate: Name mit Leerzeichen = Fehler Namen definiert- in Ereignis verwenden?
Activate vermeiden ? Zugriff bei Workbook_Deactivate auf Name
Text Box+Activate Worksheet_Activate funkt nicht
Zeilen aus- einblenden als Ereignis? Worksheet_Activate
Welches Ereignis ist das richtige ?? Ereignis Arbeitsblatt sperren abfangen
Sheets.Activate ?? Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis Codeoptimierung zur Vermeidung "Activate"
Change-Ereignis in Combobox unterdrücken Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul Worksheet_Activate() / Worksheet_Change()
Welches Diagramm-Ereignis? Bestimmtes Ereignis in Spalte zählen
Command Button Ereignis Ereignis von Laufzeit-Checkbox
change-ereignis bei dynamischen Controls / Teil 2 Change Ereignis verhindern
change-ereignis bei dynamisch erstellten Controls Schaltfläche - Ereignis erst nach Bestätigung ausl
Objekt_Error - Ereignis in UserForm change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen? Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse Ausnahmen für Exit-Ereignis
Exit-Ereignis SetFocus Workbook_Open / Worksheet_Activate
select Ereigniss UF Show Activate
Ereignis zeitweise mit Fehler Ereignismakro
Selectereigniss in Spalte Windows("test.xls:2").Activate
doppeltes Klick-Ereignis Doppelklick-Ereignis
abhängiges Worksheet_Deactivate-Makro VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht Exit Ereignis einer Textbox im Frame