Registriert seit: 26.01.2018
Version(en): 2010
Hallo zusammen,
ich bin, wie jeder weiß, kein Profi, und frage mich seit Jahren, ob es einen einfachen Grund gibt, den ich nicht weiß, warum meine Schließ-Codes immer nur einmal durchlaufen werden. Ich glaube, ich hab' das auch schon mal gepostet. Das Problem betrifft auch andere Internatsrechner (wir haben Excel 2016). Wird die Arbeitsmappe dann doch nicht geschlossen, wird beim zweiten Anlauf der BeforeClose ignoriert.
Auch in einer neuen Mappe, die außer im Modul "DieseArbeitsmappe" vollkommen leer ist, erfolgt beim zweiten Klick auf das Schließkreuz sofort der Systemdialog, ohne "Test" anzuzeigen.
Gruß
Uwe
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Test"
End Sub
Registriert seit: 22.05.2022
Version(en): 2019
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
Moin!
Funktioniert bei mir einwandfrei!
Zitat:Wird die Arbeitsmappe dann doch nicht geschlossen, wird beim zweiten Anlauf der BeforeClose ignoriert.
Du meinst also, wenn die Speichern-Abfrage abgebrochen wird?
Auch dies funktioniert.
Das Before_Close wird erneut ausgeführt.
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 26.01.2018
Version(en): 2010
22.05.2022, 17:30
(Dieser Beitrag wurde zuletzt bearbeitet: 22.05.2022, 17:30 von CaptainNemo.)
KingKong, sie steht stellvertretend für jeden möglichen Code. Entscheidend ist: sie muss bei jedem Schließvorgang erscheinen!
Genau Ralf. Ich weiß mittlerweile auch, dass ich dieses Problem fast exclusiv habe. Im Netz habe ich bis dato also auch nichts für mich hilfreiches gefunden. Die Prozedur in ein allgemeines Modul auszulagern nützt auch nix, weil der Before_Close gar nicht erst angesteuert wird. Beim Abbruch Saved auf False zu setzen hat auch nicht gefunzt. Habe das sogar schon für jedes Change-Ereignis reingeschrieben. Wenn man bewerkstelligen könnte, dass beim Klick auf X der Before_Close abgefangen wird - es wird schlicht keine Lösung geben!
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
also, ich kann auch nur bestätigen, dass das funktioniert. Zumindest unter 365 und W11. Ist auch egal, ob man "Abbrechen" oder das X nimmt. Sollte aber auch unter den älteren Versionen funktionieren.
Irgendwann kommt dann der IT'ler und probiert alles von Reparatur und Neuinstallation von Office über den User bis hin zum System ...
Zitat:Ich weiß mittlerweile auch, dass ich dieses Problem fast exclusiv habe.
Geht es mit Dir mit, wenn Du das auf einem anderen Rechner testest oder hat es auch ein anderer User auf Deinem? Das wäre dann ggf. ein Ansatz für den IT'ler
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Uwe,
(22.05.2022, 17:30)CaptainNemo schrieb: KingKong, sie steht stellvertretend für jeden möglichen Code.
der tatsächlich eingesetzte Code wäre ja vielleicht nicht ganz unwichtig!
Gruß Uwe
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
@Uwe,
klar, aber wenn das schon wie in der Fragestellung beschrieben in einer neuen und bis auf den geposteten Code in DieseArbeitsmappe leeren Mappe nicht funktioniert ...
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 11.04.2014
Version(en): Office 2007
Auch Hallo,
(22.05.2022, 16:47)CaptainNemo schrieb: ...... Ich glaube, ich hab' das auch schon mal gepostet.
Das dürfte dann das
https://www.clever-excel-forum.de/Thread...ert-Fehlersein.
Gruß Stefan
Win 10 / Office 2016