Beenden ohne speichern

• Beenden ohne speichern von Goldi vom 25.09.2003 14:52:31
  • AW: Beenden ohne speichern - von Matthias G am 25.09.2003 15:02:22
    • AW: Sorry, was vergessen... - von Matthias G am 25.09.2003 15:06:31
  • Danke - von Goldi am 25.09.2003 15:24:18
    • AW: Bitte, gern geschehen - o.T. - von Matthias G am 25.09.2003 15:29:12

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"

Alle Arbeitsmappen schließen bzw. Excel beenden		Windows beenden
Makro mit Excape-Taste ohne Fehlermeldung beenden		Arbeitsmappe öffnen und nach Beenden des Mausklicks schließen
Notepad aufrufen und Routine nach Beenden fortsetzen		Zelleingaben speichern
Die "personl"-Arbeitsmappe ausgeblendet speichern		Formeln mit Zelladressen speichern
Bestätigung beim Speichern unterdrücken.		Arbeitsmappe unter dem Text eines Zelleintrags speichern
Einzelnes Tabellenblatt speichern		Mappe unter Zelldatum speichern
Arbeitsmappe doppelt speichern		Arbeitsmappe unter Namen speichern
Programmabbruch bei Überspeichernabfrage verhindern		dBase-Datei laden, bearbeiten, speichern
Variablen in einer temporären Textdatei zwischenspeichern		Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern
Einzelnes Tabellenblatt unter Tagesdatum speichern		Menüpunkt SPEICHERN deaktivieren
Speichernabfrage beim Schließen der Arbeitsmappe		Zeit eintragen und Tabelle minütlich als HTML-Datei speichern
Arbeitsmappe 10-minütlich als *.xls und *.bak-Datei speichern		Texte mit unterschiedlichen Feldlängen als Textdatei speichern
Arbeitsmappe mit absoluten Werten unter neuem Namen speichern		Text in NotePad schreiben, speichern, in Excel aufrufen
Sicherheitskopien von Arbeitsmappen speichern		Arbeitsmappe 5 Sekunden nach dem Öffnen speichern und schließen
Tabellenblattbereich als Grafik speichern		Blattschutz beim Speichern setzen
Eingetragenen Wert in TextBox speichern		Zeilenweises Speichern von Texten
Tabellenblattdaten als Textdatei mit vorgegebenem Namen speichern		Blätter in UserForm-ListBox auswählen und speichern
Filter vor Speichern zurücksetzen		Blatt ohne Code, Steuerelement und Formeln speichern
Speichern ausschließlich über UserForm-Schaltfläche		Speichern unter forlaufender Nummer
Daten in einer Textdatei ohne Anführungszeichen speichern		Einzel-Arbeitsblätter einer Arbeitsmappe speichern.
Speichern-Befehl abfangen und unter Paßwort speichern		Werte nach Gruppen aufteilen und in gesonderten Dateien speichern
HTML-Seite aus dem Internet aufrufen und als Textdatei speichern		Auswahl in andere Arbeitsmappe kopieren, speichern, schließen
Beim Speichern Schaltfläche erstellen		Speichern-Schaltfläche aktivieren/deaktivieren
Binärdatei aus dem Internet downloaden und speichern		UserForm-TextBoxes-Texte in Textdateien speichern
Datei-Speichern-Dialog zusammen mit Paßwortdialog aufrufen		Tabellenblattinhalte in getrennten Textdateien speichern
Buchstaben aus Textdatei entfernen und neu speichern		Speichern-Dialog mit Dateinamen-Vorschlag aufrufen
Aktive Arbeitsmappe ohne VBA-Code und Button speichern		Die Zeilen mit Wert in Spalte C als CSV-Datei speichern
Webabfrage periodisch aktualisieren und Ergebnisse speichern