Supportnet / Forum / Tabellenkalkulation
Speichern ohne Rückfrage
Frage
Beim Schließen einer EXCEL-Datei soll immer gespeichert werden - ober ohne dem lästigen Rückfragefenster.
Ich habs probiert mit:
Private Sub Workbook_BeforeClose()
Application.DisplayAlerts = False
ActiveWorkbook.Save
End Sub
aber das funktioniert nicht.
Wo liegt mein Fehler?
Antwort 1 von Michael10
Hallo Hobra
ich bin kein Spezialist aber ich probiers mal.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close True
End Sub
Gruß Michael.
ich bin kein Spezialist aber ich probiers mal.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close True
End Sub
Gruß Michael.
Antwort 2 von HoBra
Danke für die prompte Antwort.
So funzt's auch nicht - vielleicht liegt's am EXCEL2000
Wer hat noch ne' Idee?
Grüße aus dem sonnigen München
Horst
So funzt's auch nicht - vielleicht liegt's am EXCEL2000
Wer hat noch ne' Idee?
Grüße aus dem sonnigen München
Horst
Antwort 3 von piano
Hallo
Deine Variante ist schon OK.
Sieh mal in die Extras / Optionen / Sicherheit / Makrosicherheit, ob überhaupt Makros ausgeführt werden dürfen. Gegebenenfalls maximal auf "Mittel" setzen.
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
Deine Variante ist schon OK.
Sieh mal in die Extras / Optionen / Sicherheit / Makrosicherheit, ob überhaupt Makros ausgeführt werden dürfen. Gegebenenfalls maximal auf "Mittel" setzen.
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 4 von Michael10
Hallo noch mal,
du solltest das in der VBA Ebene in
"diese Arbeitsmappe" einfügen dann sollte das gehen.
Gruß Michael
du solltest das in der VBA Ebene in
"diese Arbeitsmappe" einfügen dann sollte das gehen.
Gruß Michael
Antwort 5 von StilleQuelle
Hallo HoBra,
so sollte es gehen (bei mir jedenfalls)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If
End Sub
Gruß
SQ
so sollte es gehen (bei mir jedenfalls)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If
End Sub
Gruß
SQ
Antwort 6 von HoBra
Es ist toll, dass sich soviele Leute mit meinem Problem beschäftigen.Danke an alle!
Es funktionieren alle 3 Lösungen - mein Fehler war, das ich das Progrämmchen im "Modul1" und nicht in "dieser Arbeitsmappe" abgelegt habe (Danke nochmals Michael)
Makrosicherheit war "klein"
Grüße aus dem kalten München
Horst
Es funktionieren alle 3 Lösungen - mein Fehler war, das ich das Progrämmchen im "Modul1" und nicht in "dieser Arbeitsmappe" abgelegt habe (Danke nochmals Michael)
Makrosicherheit war "klein"
Grüße aus dem kalten München
Horst
Antwort 7 von Michael10
Hallo Horst,
schön das man dir helfen konnte und Danke für die Rückmeldung.
Gruß Michael
schön das man dir helfen konnte und Danke für die Rückmeldung.
Gruß Michael