Das Archiv des Excel-Forums
Beenden ohne speichern
Betrifft: Beenden ohne speichern
von: Goldi
Geschrieben am: 25.09.2003 14:52:31
Hallo Miteinander,
mein Problem: Mit Exel 2000 wurde eine Arbeitsmappe erstellt, um Formulare auszudrucken. diese Datei soll nie geändert werden. Wie kann ich beim Beenden die Meldung unterdrücken, die mich fragt, ob ich speichern will?
Danke im Vorraus.
Betrifft: AW: Beenden ohne speichern
von: Matthias G
Geschrieben am: 25.09.2003 15:02:22
Hallo "Goldi" (schöner Name!),
folgenden Code in "DieseArbeitsmappe":
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Saved = True
Cancel = True
End Sub
Gruß,
Matthias
Betrifft: AW: Sorry, was vergessen...
von: Matthias G
Geschrieben am: 25.09.2003 15:06:31
Hallo nochmal.
Dies habe ich vergessen, auf das gleiche Blatt:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
End Sub
Wenn du die Datei mit Datei->Speichern noch Speichern lassen willst, genügt sogar der obige Code. Den aus der ersten Antwort dann weglassen!
Grüße,
Matthias
Betrifft: Danke
von: Goldi
Geschrieben am: 25.09.2003 15:24:18
Hallo Matthias, Danke funktioniert perfect!!
Betrifft: AW: Bitte, gern geschehen - o.T.
von: Matthias G
Geschrieben am: 25.09.2003 15:29:12
-
Excel-Beispiele zum Thema " Beenden ohne speichern"