Schließen nur mit Button
17.02.2005 13:23:03
Werner
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