Dialog mit X beenden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm MsgBox
Bild

Betrifft: Dialog mit X beenden von: Edwin
Geschrieben am: 09.02.2005 16:23:52

Hallo,
normalerweise beende ich meinen Dialog mit einem "Speichern"-Button.
Wenn jetzt aber ein Anwender oben rechts auf das X klick und die Daten noch nicht gespeichert sind, sind die Daten verloren.

Ich würde hier gerne eine "Bist Du sicher?"-Abfrage einbauen.

Ich habe es schon versucht mit

Private Sub UserForm_Terminate()
    MsgBox "Hier noch YesNo-Speichern Abfrage einbauen!"
End Sub


und auch mit QueryClose, aber dann kommt die Abfrage bei jedem Schließen und das soll ja auch nicht sein.

Bin ich blind oder wie heißt der Befehl?

Gruß
Edwin
Bild


Betrifft: AW: Dialog mit X beenden von: Ralf (Schwabenland)
Geschrieben am: 09.02.2005 16:28:37

Hallo Edwin,

folgender Code in der Userform bewirkt das:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        MsgBox "Bitte über die Schaltfläche beenden"
      Cancel = True
    End If
End Sub


Gruß
Ralf


Bild


Betrifft: Danke von: Edwin
Geschrieben am: 09.02.2005 16:31:46

Hallo Ralf,
vielen Dank, super!
Gruß
Edwin


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dialog mit X beenden"