Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
Anzeige
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
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
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
Anzeige

10 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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
...(ByVal Cancel As MSForms.ReturnBoolean)
Peter

Hallo und guten Morgen,
ich habe eine Excel-Anwendung, bei der in einer Userform nachstehender Code verwendet wird. Auf vielen PCs läuft das problemlos. Auf manchen PCs jedoch kommt beim Start der Anwendung die Meldung:
Datei nicht gefunden? Was kann ich da machen? Ich denke die MS-Form...
02.02.2007 08:36:17
Thread-ID: 842905
4 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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
10
2
1
1
1
2
2
3
5