Excel VBA - beim schließen nicht nach speichern fragen- VBA Code funktioniert nicht

[Basti5]

Laufzeitfehler "438"

Objekt unterstützt diese Eigenschaft oder Methode nicht.

[Steffl]

Auch Hallo,

und so?

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   If Not ThisWorkbook.Saved Then Application.Quit
End Sub

[Basti5]

Leider nicht - da wird wieder geftrragt

[MisterBurns]

Hast du sicher genau diesen Code ausprobiert???

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Application.DisplayAlerts = False
 ActiveWorkbook.Close
 Application.DisplayAlerts = True
 Application.Quit
End Sub

Wenn ich den nämlich in deiner Beispielmappe eintrage, funktioniert es wunderbar!

[Basti5]

Ja da kommt wieder das mit dem doppelten schließen.

Wahrscheinlich muss ich mich damit abfinden 

[Käpt'n Blaubär]

Hallo,

tja, sorry, ... wenn ich Quit mit zwei "T" schreibe, dann sollte der Code aussteigen.
Aber selbst der Papst muß sterben. Dann kann ich mir auch mal einen Fehler erlauben,  :05:
Tut mir aber trotzdem leid.

[Basti5]

ich habs mit einem und mit zwei T versucht- hilft alles nix grad.

Aber danke für eure Hilfe!!!

[Steffl]

Hallo Ihr Zwei,

@MisterBurns

Hallo Bernie, bei deinem Code bleibt Excel offen (nicht die Datei! die wird geschlossen)

@
Basti5

bei mir funktioniert es mit deiner Beispieldatei. Der Code muss natürlich in DieseArbeitsmappe. Der Code CloseBook kannst Du löschen.

[MisterBurns]

@Steffl: Komischerweise bei mir nicht. Wozu sollte Application.Quit sonst gut sein, wenn nicht um Excel zu beenden?

[Basti5]

Ok Leute,

ich bin euch wirklich sehr dankbar - aber ich bin einfach zu blöd.
Bei mir funzt es gar nicht.