Excel-VBA_Cancel = True in workbook_beforesave geht nicht

Ich habe mittlerweile herausgefunden, dass es in einer Citrix-Umgebung funktioniert.

Naja, so häpchenweise kommst Du ja mit den entscheidenden Infos. ;-)

Ich rate mal: Das Excel wird nicht im normalen Windows sondern in einem Remotefenster gestartet. Oder eine "App" die in einem solchen Fenster läuft startet das Excel. Oder Du hast eine Datei mit einem Code und irgendeine App öffnet die Datei.

In diesen und allen irgendwie ähnlichen Fälle ist es klar warum es nicht geht, kannst Du selber ausprobieren:

Starte mal Excel via

set App = CreateObject("Excel.Application")

App.Visible = True

In der Instanz von Excel gibt es nichts, keine AddIns, kein PERSONAL.XLSB, nada. Da kannst Du Code in die Datei packen so viel Du willst, das funktioniert nicht. Liegt nicht an Excel, sondern an Deiner "App".

Lieg ich da ungefär richtig?

Andreas.

Hallo Andreas,

der Code steht bei mir in "DieseArbeitsmappe" im Private Sub Workbook_BeforeSave Event. Makros sind aktiviert und alle anderen Makros funktionieren auch. Heißt das der Code funktioniert bei dir? Ich habe auch testweise nur eine Datei geöffnet und extra lediglich
Cancel = True eingegeben um die Funktion zu testen. Die MsgBox kommt auch aber das Dokument wird trotzdem gespeichert. Ich habe es eben nochmal mit Excel 365 auf meinem Privatrechner probiert da funktioniert es auch nicht. Er kommt bei Excel 365 sogar aus
der Speicherroutine gar nicht mehr raus und geht immer wieder in die Prozedur BeforeSave rein. In einem Youtube Video habe ich gesehen, dass es mit Excel 2010 wohl noch funktioniert. Ich kann mir aber nicht vorstellen, dass hier ein Bug vorliegen kann.

Grüße

Steffen

Hallo Andreas,

mit der von dir vorgeschlagenen MsgBox funktioniert es aber:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean)Dim a As Integera = MsgBox("Wollen sie die Mappe speichern?", vbYesNo)If a = vbNo Then Cancel = TrueEnd Sub

Claus

Er kommt bei Excel 365 sogar aus der Speicherroutine gar nicht mehr raus und geht immer wieder in die Prozedur BeforeSave rein. In einem Youtube Video habe ich gesehen, dass es mit Excel 2010 wohl noch
funktioniert.

Na dann haben wir ja jetzt einen schönen Mix, die Frage stellst Du für Excel 2013, Du hast aber Excel 365 und kuckst Video's für Excel 2010.

In diesem Fall ist es wurscht, weil das in allen Versionen gleich funktioniert.

Der einzige Unterschied den es seit 2013 gibt ist das zuerst die "Speichern unter" Seite in Excel angezeigt wird wenn man auf Speichern klickt. Erst beim Klick auf "Durchsuchen" wird das Ereignis ausgelöst und das Speichern abgebrochen. Das ist halt so...

Gespeichert wird die Datei nicht und man kommt auch ohne Probleme da wieder raus. Wenn das bei Dir nicht der Fall ist, dann läuft da irgendwas anderes was ein Speichern erzwingen will, Makros, AddIns... oder was die Ereignisse nach dem ersten Mal unterdrückt.

Da fällt mir was ein, letztens wurde eine ähnliche Frage für Excel 2016 im Forum gestellt, da stellte sich nach etlichem Rätselraten heraus das nicht alle Updates installiert waren...

https://answers.microsoft.com/en-us...-boolean/33b9ae06-c5bd-4074-987e-f2e9533e2858

Andreas.

Der Code funktioniert so nur innerhalb der Datei für diese eine Datei wenn er im Modul "DieseArbeitsmappe" ist.

Mach eine MsgBox rein, ich denke mal er wird gar nicht ausgeführt, wahrscheinlich sind die Events aus oder Makros deaktiviert sind.

Andreas.