Abfrage bei Schließen der Userform
02.05.2005 10:45:49
OceanAmerica
brauche mal wieder Eure Hilfe. Es geht um folgendes:
Ich habe eine Userform, auf der sich ein Beenden Button befindet. Wird dieser angeklickt und die Abfrage, ob das Programm geschlossen werden, soll mit "Ja" bestätigt, wird das gesamte Excel-Programm geschlossen. Nun ist aber bei der Userform noch die Taskleiste mit dem "X-Button" oben rechts sichtbar. Ich habe es mit folgendem Code hinbekommen das bei anklicken des "X-Buttons" ebenfalls die "Schließen-Abfrage" gestartet wird.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call CommandButton6_Click
End Sub
In Command-Button6 steht:
Private Sub CommandButton6_Click()
Set appExcel = GetObject(, "Excel.Application")
a = MsgBox("Möchten Sie das Programm schließen?", _
vbYesNo, "Schließen ?")
If a = vbYes Then appExcel.Quit
End Sub
Wenn ich die Abfrage mit "Ja" beantworte funktioniert alles normal und Excel wird geschlossen. Wenn ich diese Abfrage jedoch mit "Nein" beantworte, wird meine Userform trotzdem geschlossen und die Excelebene wird sichtbar. Genau dieses Schließen der Userform, bei "Nein-Antwort", möchte ich verhindern. Hat da vielleicht jemand einen Tip für mich?
Für Eure Bemühungen bin ich sehr dankbar.
Gruß OceanAmerica