CellDragAndDrop aus/ein
Herbert
folgendes Phänomen habe ich: Mit den u. a. Codes schalte ich CellDragAndDrop aus und ein. Beim Start und beim aktivieren ausschalten, beim verlassen und schließen der Mappe wieder einschalten. So weit so gut. Bis auf die Tatsache, dass der Haken bei CellDragAndDrop beim schließen der Mappe nicht mehr gesetzt wird, so dass er jedesmal manuell gesetzt werden muss. Und das nervt. Hat eine/r von Euch eine Idee, woran das liegen kann?
Workbook_Open()
'** Die Befehlsschaltflächen deaktivieren
leiste 21, False '** Ausschneiden
Application.CellDragAndDrop = False
Workbook_Activate()
'** Die Befehlsschaltflächen deaktivieren
leiste 21, False '** Ausschneiden
Application.CellDragAndDrop = False
Workbook_Deactivate()
'** Die Befehlsschaltflächen aktivieren
leiste 21, True '** Ausschneiden
Application.CellDragAndDrop = True
Workbook_BeforeClose(Cancel As Boolean)
'** Die Befehlsschaltflächen aktivieren
leiste 21, True '** Ausschneiden
Application.CellDragAndDrop = True
Sub leiste(Id As Integer, Stat As Boolean)
On Error Resume Next
Dim cmb As CommandBar
Dim cmbc As CommandBarControl
For Each cmb In Application.CommandBars
Set cmbc = cmb.FindControl(Id:=Id, recursive:=True)
If Not cmbc Is Nothing Then
cmbc.Enabled = Stat
End If
Next
End Sub
Servus
Anzeige