Beenden ohne Speichern und dann Excel schließen

[pjo12345]

Moin!

Ich möchte, wenn Excel über das X rechts oben geschlossen wird, meine Tabelle ohne Speichern der Änderungen schließen und Excel soll beendet werden. Das Beenden ohne Speichern funktioniert aber Excel bleibt immer ohne geöffnete Mappe geöffnet.
So habe ich das versucht:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.Close SaveChanges:=False
Application.Quit

End Sub

Wo liegt der Fehler?

[Warkings]

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   ActiveWorkbook.Saved = True
End Sub