Schließen nur mit Button

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

Betrifft: Schließen nur mit Button
von: Werner
Geschrieben am: 17.02.2005 13:23:03
Hallo Allerseits,
hatte vor einiger Zeit einen Betrag zum Schließen nur mit Button im Forum gefunden. So wie beschrieben schließt allerdings nur das Dokument.Excel muss nachträglich geschlossen werden. Gibt es dafür eine Lösung?
mfg Werner

in ein normales Modul die Deklaration:
Public beenden As Boolean
in die Routine deines Buttons:


Private Sub CommandButton1_Click()
beenden = True
ThisWorkbook.Close True
End Sub

In das Klassenmodul "diese Arbeitsmappe":

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If beenden <> True Then Cancel = True
End Sub

Bild

Betrifft: AW: Schließen nur mit Button
von: Tim
Geschrieben am: 17.02.2005 13:25:01

Private Sub CommandButton1_Click()
beenden = True
ThisWorkbook.Close True
Application.Quit
End Sub

Tim
Bild

Betrifft: AW: Schließen nur mit Button
von: Werner
Geschrieben am: 17.02.2005 13:36:16
Hallo Tim, danke für deine Bemühung
Haut so aber auch nicht hin Excel mit grauem Hintergrund bleibt trotzdem stehen.
Werner
Bild

Betrifft: AW: Schließen nur mit Button
von: u_
Geschrieben am: 17.02.2005 13:40:40
Hallo,
weil die Mappe geschlossen wird, bevor das Makro durch ist.

Private Sub CommandButton1_Click()
beenden = True
ThisWorkbook.save
Application.Quit
End Sub

Bild

Betrifft: AW: Schließen nur mit Button
von: Werner
Geschrieben am: 17.02.2005 15:08:42
Danke, u_
funktioniert zwar, hat aber den Nachteil, dass das Dokument auch gespeichert wird wenn ich dies nicht will.
werner
Bild

Betrifft: AW: Schließen nur mit Button
von: Tim
Geschrieben am: 17.02.2005 15:34:47

Private Sub CommandButton1_Click()
beenden = True
Application.Quit
End Sub

Dann wirst du vorher gefragt, ob gespeichert werden soll.
Tim
Bild

Betrifft: AW: Schließen nur mit Button
von: UweD
Geschrieben am: 17.02.2005 15:34:55
Hallo
so:

Private Sub CommandButton1_Click()
beenden = True
ThisWorkbook.Saved = True
Application.Quit
End Sub

oder so:

Private Sub CommandButton2_Click()
beenden = True
Application.DisplayAlerts = False
Application.Quit
End Sub

Bild

Betrifft: AW: Schließen nur mit Button
von: Tim
Geschrieben am: 17.02.2005 16:31:48
Das ist Murks, denk mal darüber nach.
Tim
Bild

Betrifft: schon fast kriminell...
von: bernd
Geschrieben am: 17.02.2005 16:41:32
hallo
Application.DisplayAlerts = False
Application.Quit
...aber wenn es so gewollt ist !
bernd
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schließen nur mit Button"