Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook_BeforeClose ansprechen

Forumthread: Workbook_BeforeClose ansprechen

Workbook_BeforeClose ansprechen
01.10.2003 16:59:21
Roland Hochhäuser
Hallo Freunde des Excelns,

ich suche den VBA-Code, der dem Schließen einer Datei durch Anklicken des Kreuzes (rechts oben) entspricht. Kennt den jemand und könnte ihn posten?

Hintergrund: Ich habe die Workbook_Open und _BeforeClose-Ereignisse einer Excel-Datei mit diversen Anweisungen und Makroaufrufen zur (Wieder-) Herstellung einer Arbeitsumgebung versehen. Zudem habe ich im BeforeClose-Ereignis eine Abfrage beim Schließen der Datei mit entsprechender Verzweigung eingebaut.

Im Einzelschritt funktioniert alles bestens. Auch wenn ich das Schließkreuz der Datei oder das von Excel anklicke, funktioniert es bestens.

Will ich jedoch (nur) die Datei über einen Menübefehl schließen (z.B. ThisWorkbook.Close oder ActiveWorkbook.Close), werden zwar im Einzelschritt alle Befehle angesprungen, aber nur zum Teil ausgeführt. "Vergessen" wird z.B. das (Un-)Sichtbarmachen von Arbeitsblättern. An den Aufrufen oder deren Reihenfolge kann es nicht liegen, da diese bei Betätigung des Schließkreuzes funktionieren.

Excel wird durch Application.Quit geschlossen. Gibt es einen vergleichbaren Befehl auch für das Schließen einer Datei? Für meine Zwecke würde es wahrscheinlich auch genügen, direkt das BeforeClose-Ereignis anzusprechen, aber wie? Ein schlichtes Call Workbook_BeforeClose funktioniert nicht; egal ob ich das Private wegnehme oder es durch Public ersetze, Excel behauptet jedesmal, die Sub nicht zu finden.

Ich habe eine halbe Nachtschicht mit diesem Detail verbracht und keine große Lust auf eine zweite, möchte es aber hinbekommen.

Wäre schön, wenn mir jemand helfen könnte.

Etwas ratlos
Roland Hochhäuser
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbook_BeforeClose ansprechen
01.10.2003 17:12:51
RainerW
Hallo Roland

so sollte es gehen:


Private Sub Workbook_Open()
Call MachAllesZu
End Sub


'Diese Sub in ein Modul legen ohne "Private"
Sub MachAllesZu()
'Code der sonst in Workbook_Open() stehen würde
End Sub


Gruß
Rainer
Anzeige
AW: Workbook_BeforeClose ansprechen
01.10.2003 17:14:45
RainerW
Hallo Roland,

Sorry - sollte ja "BeforeClose" sein:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call MachAllesZu
End Sub


'Diese Sub in ein Modul legen ohne "Private"
Sub MachAllesZu()
'Code der sonst in Workbook_Open() stehen würde
End Sub


Gruß
Rainer
Anzeige
AW: Workbook_BeforeClose ansprechen
01.10.2003 18:12:35
Roland Hochhäuser
Hallo Rainer, vielen Dank für Deine Antwort. Leider funktioniert es nicht; die gleichen Symptome wie oben. Ich denke, das Problem ist im die Sub aufrufenden ActiveWorkbook.Close bzw. ThisWorkbook.Close zu suchen. Ersetze ich das nämlich mit Application.Quit, wird zwar Excel gleich mit geschlossen, aber alle BeforeClose (oder MacheAllesZu)-Ereignisse werden abgearbeitet.

Hast Du vielleicht dazu eine Idee?

Roland
Anzeige
AW: Workbook_BeforeClose ansprechen
01.10.2003 18:40:32
RainerW
Hallo Roland,

wenn ich dich richtig verstehe, möchtest du die
Private Sub Workbook_BeforeClose(Cancel As Boolean)
aus einem anderen Modul aufrufen?

Gruß Rainer
AW: Workbook_BeforeClose ansprechen
01.10.2003 18:50:15
Roland Hochhäuser
Hallo Rainer,

genau das, aber mit den mir bekannten Befehlen ActiveWorkbook.Close bzw. ThisWorkbook.Close führt das dazu, dass diese Sub nicht vollständig abgearbeitet wird. Auch das Verlagern der Sub-Befehle nach deinem Muster ändert daran nichts. Es muss aber noch einen Weg geben, nämlich den, der von Excel gewählt wird, wenn man eine Datei (nicht Excel) mit dem Schließkreuz Oben rechts zumacht.

Auch das Aufrufen der Private Sub Workbook_BeforeClose(Cancel As Boolean) aus einem anderen Modul wäre ein Weg, ist mir aber nicht gelungen. Versucht habe ich:
- Private ersatzlos streichen => Excel findet das Modul nicht
- Private durch Public ersetzen => w.o.

Es ist zum Haareraufen, aber ich bekomm es einfach nicht hin.

Gruß Roland
Anzeige
AW: Workbook_BeforeClose ansprechen
01.10.2003 18:53:12
RainerW
Hallo Roland,

dieser kleine Code funktioniert bei mir: ich klicke auf das Schließen-X
und die MsgBox erscheint und danach wird Tabelle2 wird ausgeblendet.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "hallo"
Worksheets("Tabelle2").Visible = 0 'verstecken geht
End Sub


Gruß
Rainer
Anzeige
AW: Workbook_BeforeClose ansprechen
01.10.2003 19:01:41
RainerW
Hallo Roland,

poste doch mal deine BeforeClose-Sub und markiere, was nicht abgearbeitet wird.
AW: Workbook_BeforeClose ansprechen
01.10.2003 19:05:13
Roland Hochhäuser
Hallo Rainer,

genau der Code (und auch mein eigener, s. unten) funktioniert auch bei mir gut (mit! dem Schließkreuz). In meinem selbstgestrickten Menü will ich wie bereits beschriebenden Befehl "Datei Schließen" unterbringen, und dann funktioniert es dann nicht mehr. Hier ist das gute Stück:


Private Sub Workbook_BeforeClose(cancel As Boolean)
'Call MacheAllesZu
If Date - Sheets("CmdBars").Range("D1") > 30 Then
ThisWorkbook.Save
Else
If MsgBox("Programm beenden?", _
vbQuestion + vbYesNo, "Programm") = vbYes Then
cancel = False
On Error Resume Next
Application.CommandBars("MyCommandBar").Delete
Application.CommandBars("Cell").Enabled = True
Application.CommandBars("Cell").Reset
Application.Run "Symbolleiste_Übersicht_Löschen"
Call ResetContext
Application.DisplayAlerts = False
Application.Caption = Empty
Application.OnKey "{F11}"
Application.OnKey "+{F11}"
Application.OnKey "^{F11}"
Application.OnKey "^x"
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"
Application.DisplayFormulaBar = True
Call CmdBarsEin
Call WksAn
ThisWorkbook.Save
On Error GoTo 0
Else
cancel = True
End If
End If
End Sub


Gruß Roland
Anzeige
AW: Workbook_BeforeClose ansprechen
01.10.2003 19:14:39
RainerW
Hallo Roland,

mach es so:

'liegt im Modul "DieseArbeitsmappe"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call MachAllesZu
End Sub


'Diese Sub in ein Modul legen ohne "Private"
Sub MachAllesZu()
If Date - Sheets("CmdBars").Range("D1") > 30 Then
ThisWorkbook.Save
Else
If MsgBox("Programm beenden?", _
vbQuestion + vbYesNo, "Programm") = vbYes Then
cancel = False
On Error Resume Next
Application.CommandBars("MyCommandBar").Delete
Application.CommandBars("Cell").Enabled = True
Application.CommandBars("Cell").Reset
Application.Run "Symbolleiste_Übersicht_Löschen"
Call ResetContext
Application.DisplayAlerts = False
Application.Caption = Empty
Application.OnKey "{F11}"
Application.OnKey "+{F11}"
Application.OnKey "^{F11}"
Application.OnKey "^x"
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"
Application.DisplayFormulaBar = True
Call CmdBarsEin
Call WksAn
ThisWorkbook.Save
On Error GoTo 0
Else
cancel = True
End If
End If
End Sub


In dein Menü "Datei Schließen" schreibst du den Befehl:
Call MachAllesZu

dann sollte es gehen.

Gruß
Rainer
Anzeige
AW: Workbook_BeforeClose ansprechen
01.10.2003 20:23:16
Roland Hochhäuser
Tja Rainer, genauso habe ich es nach deinem ersten Posting auch gemacht, es funktioniert aber nicht. Glaube mir einfach, wenn ich das Schließkreuz betätige, geht es, ALLE Jobs werden erledigt. Wenn ich die Private Sub Workbook_BeforeClose(cancel As Boolean) anderweitig aufrufe (egal ob mit Inhalt oder nur mit dem Aufruf der in einem gesonderten (nicht privaten) Sub MachAllesZu), geht es nur teilweise.

Woran es liegt, weiss ich nicht. Meine letzte Hoffnung ist nun, den Code zu erfahren, der excelintern mit dem Schließkreuz aufgerufen wird.

Gruß Roland
Anzeige
AW: Workbook_BeforeClose ansprechen
02.10.2003 19:52:01
Roland Hochhäuser
Hallo Rainer,

wider Erwarten habe ich es doch noch hinbekommen: die Lösung meines Problems liegt in einem schlichten SendKeys "^(w)"
Vielen Dank nochmal für deine Hilfe.

Einen schönen Feiertag wünscht
Roland Hochhäuser
;

Forumthreads zu verwandten Themen

Workbook_BeforePrint(Cancel As Boolean)
DirkR

Guten Morgen Excelgemeinde,
Ich habe folgendes Problem und bitte um Mithilfe.
In der folgenden Datei möchte ich gerne überprüfen, ob ein "tatsächlicher" Drucker als Standard definiert ist. Wenn "Nein" dann soll der PrinterSetup Dialog aufgerufen werden. Das funzt auch ganz gut, solange...
17.07.2011 09:13:27
Thread-ID: 1222437
12 Beiträge
Private Sub Workbook_BeforeClose
Scot

Liebe Leute
Ich hab mal wieder ein kleines Problem. Folgendes habe ich in "DieseArbeitsmappe" geschrieben:
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.MoveAfterReturnDirection = xlDown Application.CommandBars("Standard").Visible =...
22.09.2011 13:56:18
Thread-ID: 1231079
11 Beiträge
Private Sub Workbook_BeforeClose
Heinz

Hallo Leute
Könnte man den unteren Code etwas eleganter schreiben?
Denn wenn ich die Arbeitsmappe schließe, Flackert der Bildschirm so lange bis alle Sheets geschlossen sind.
Also etwa im Hintergrund schließen.
Danke & gruß Heinz Private Sub Workbook_BeforeClose(Cancel As B...
18.08.2015 21:00:19
Thread-ID: 1443017
3 Beiträge
teil vba löschen before close
giuppy

Hallo,
ich habe ein VBA geschrieben, wird an einem bestimmten Datum ein Modul gelöscht. Ich möchte aber auch, dass zeitgleich der Code in der DieseArbeitsmappe gelöscht wird.
Kann mir jemand einen Tipp / Rat geben?
hier den Code (VBAProjekt (test) - Microsoft Excel Objekte - DieseA...
10.03.2018 13:56:27
Thread-ID: 1613474
2 Beiträge
Private Sub Workbook_BeforeClose(Cancel As Boolean
FPH

Hallo Forum,
wende mich heute mal wieder an Euch mit folgendem Problem:
Warum kann ich das schließen der Datei mit dem Code nicht verhindern, habe ich einen fehler im Code ? Danke für Eure hilfe.
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("d36") = 0 Then If Range(...
16.12.2004 14:43:18
Thread-ID: 534257
2 Beiträge
Anzeige
Workbook_BeforePrint(Cancel As Boolean)
Thorssten

Hallo liebes Forum,
ich möchte gerne meine Exceltabelle drucken, aber ohne den CommandButton darin. Kann mir jemand helfen. Habe einen Lösungsvorschlag, er druckt den Button aber immer noch mit aus.
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.Unprotect Worksheets("N...
05.12.2005 14:13:50
Thread-ID: 704694
3 Beiträge
Private Sub Workbook_BeforeClose(Cancel As Boolean
Gunter

Hallo,
ich habe eine Datei mit mehreren Arbeitsblättern. Vor dem schliessen soll auf allen Arbeitsblättern ein vorher markierter Teil zurück gesetzt werden.
Mit dieesem Makro wird nur das aktuelle Arbeitsblatt zurück gesetzt.
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim...
22.12.2005 18:22:58
Thread-ID: 712118
3 Beiträge
VBA - Speichern BeforeClose schlägt fehl
Marcel

Mahlzeit,
ich habe folgendes Problem. WEnn der User Excel mittels Schließen schließt, dann wird dies bei Änderung standardmäßig abgefangen und gefragt ob gespeichert werden soll. Da bei mir aber nur bestimmte Dateitypen zugelassen werden/sollen habe ich dieses "Abfangen" durch meinen Code e...
23.04.2020 11:51:54
Thread-ID: 1754464
6 Beiträge
Anzeige

Infobox / Tutorial

Workbook_BeforeClose richtig ansprechen in Excel VBA

Schritt-für-Schritt-Anleitung

Um das Ereignis Workbook_BeforeClose in Excel VBA korrekt zu nutzen, folge diesen Schritten:

  1. Öffne das Visual Basic for Applications (VBA) Fenster in Excel (Alt + F11).

  2. Navigiere zu "DieseArbeitsmappe" im Projekt-Explorer.

  3. Füge den folgenden Code in das Codefenster ein:

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call MachAllesZu
End Sub

  4. Erstelle ein neues Modul (Rechtsklick auf "Module" > "Einfügen" > "Modul") und füge den Code für MachAllesZu ein:

    Sub MachAllesZu()
   ' Dein Code hier, z.B. Arbeitsblätter ausblenden oder speichern
End Sub

  5. Speichere die Arbeitsmappe als Makro-fähige Datei (.xlsm).

  6. Teste das Schließen der Arbeitsmappe, indem du auf das Schließkreuz klickst oder den Menüpunkt "Datei > Schließen" verwendest.

Häufige Fehler und Lösungen

  • Problem: Der Code in Workbook_BeforeClose wird nicht vollständig ausgeführt.

    • Lösung: Achte darauf, dass der Code in MachAllesZu korrekt ist und keine Fehlermeldungen aufwirft. Wenn du ActiveWorkbook.Close oder ThisWorkbook.Close verwendest, kann das die Ausführung der Sub verhindern.

  • Problem: Excel gibt eine Fehlermeldung aus, wenn du Private Sub Workbook_BeforeClose aus einem anderen Modul aufrufst.

    • Lösung: Private Sub kann nicht von außerhalb des Moduls aufgerufen werden. Stelle sicher, dass der Code, den du aufrufen möchtest, in einem öffentlichen Modul ist.

Alternative Methoden

Falls die direkte Verwendung von Workbook_BeforeClose nicht funktioniert, kannst du folgende Alternativen ausprobieren:

  • SendKeys-Methode: Verwende den Befehl SendKeys zum Schließen der Arbeitsmappe, z.B.:

    Sub CloseWorkbook()
   SendKeys "^w" ' Sendet den Befehl zum Schließen
End Sub

  • Verwende Application.Quit: Dies schließt Excel vollständig und löst alle BeforeClose-Ereignisse aus, jedoch wird Excel nicht nur die Arbeitsmappe schließen, sondern auch die Anwendung selbst.

Praktische Beispiele

Hier ist ein einfaches Beispiel, das zeigt, wie du das Workbook_BeforeClose-Ereignis nutzen kannst:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If MsgBox("Möchtest du die Arbeitsmappe wirklich schließen?", vbYesNo) = vbNo Then
        Cancel = True ' Verhindert das Schließen
    Else
        ' Weitere Aktionen wie Speichern oder Aufräumen
    End If
End Sub

In diesem Beispiel fragt die MsgBox den Benutzer, ob er die Arbeitsmappe wirklich schließen möchte, und nutzt die Cancel-Variable, um das Schließen abzubrechen.

Tipps für Profis

  • Nutze On Error Resume Next nur, wenn du sicher bist, dass Fehler in einem bestimmten Block nicht kritisch sind.
  • Teste deinen Code gründlich, um sicherzustellen, dass alle Bedingungen in Workbook_BeforeClose korrekt behandelt werden.
  • Halte den Code in MachAllesZu modular, sodass du ihn leicht anpassen oder erweitern kannst.

FAQ: Häufige Fragen

1. Kann ich Workbook_BeforeClose auch in einer anderen Excel-Version verwenden? Ja, die Methode ist in den meisten modernen Excel-Versionen (ab Excel 2007) verfügbar.

2. Was passiert, wenn ich Cancel auf True setze? Wenn du Cancel = True setzt, wird das Schließen der Arbeitsmappe abgebrochen und die Arbeitsmappe bleibt geöffnet.

3. Wie rufe ich Workbook_BeforeClose manuell auf? Du kannst das Ereignis nicht direkt aufrufen, da es nur von Excel automatisch ausgelöst wird. Stattdessen kannst du den Inhalt der Sub in eine öffentliche Methode verschieben und diese aufrufen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige