gegeben ist eine Userform mit einem Commandbutton. Der vollständige Code:
Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Range("A1") = CloseMode
ThisWorkbook.Save
End Sub
Schließe ich die UF über den Commandbutton, erhält A1 den Wert 1 (VbFormCode) und die Mappe wird gespeichert. Soweit OK.
Schließe ich die UF über das Schließkreuz der UF, erhält A1 den Wert 0 (=vbFormControlMenu)und die Mappe wird gespeichert. Soweit auch OK.
Beende ich Excel über den Taskmanager oder durch Herunterfahren von Windows, passiert jedoch nichts. Nach der Dokumentation der QueryClose-Konstanten müsste in A1 jedoch 3 (=VbAppTaskManager; Abschuss durch Taskmanager) bzw. 2 (=VbAppWindows; Herunterfahren von Windows) erscheinen.
Hat das schon mal jemand erfolgreich ausgetüftelt? Hintergrund ist, dass ich beim "versehentlichen" Beenden von Windows noch automatisch Aufräumarbeiten ausführen lassen möchte.
Auf die Antworten bin ich gespannt.
Gruß aus Berlin von
Roland Hochhäuser