Private Sub Workbook_BeforeClose(Cancel As Boolean)
* Hier der Befehl zum Schliessen ohne Speichern und ohne Nachfragen, ob gespeichert
* werden soll.
End Sub
Sub schl_ohne() ' schliessen ohne Änderungen
ActiveWorkbook.Close savechanges = True
End Sub
Sub schl_mit()' schlöiessen mit Änderungen
ActiveWorkbook.Close savechanges = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
* Hier der Befehl zum Schliessen ohne Speichern und ohne Nachfragen, ob gespeichert
* werden soll.
ThisWorkbook.Close False
End Sub
Um eine Excel-Datei über VBA zu schließen, ohne eine Rückfrage oder Änderungen zu speichern, kannst Du folgende Schritte befolgen:
ALT + F11, um den VBA-Editor zu öffnen.Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close SaveChanges:=False
End SubFehler: Excel fragt beim Schließen nach, ob die Änderungen gespeichert werden sollen.
SaveChanges:=False verwendest. Der Code sollte so aussehen:
ActiveWorkbook.Close SaveChanges:=FalseFehler: Der Code wird im Debugger als Fehler angezeigt.
SaveChanges:=False muss mit dem Doppelpunkt geschrieben werden.Fehler: Das Programm schließt nicht wie gewünscht.
Wenn Du eine Datei schließen möchtest, ohne sie zu speichern, gibt es auch andere Ansätze:
Verwende das ActiveWorkbook-Objekt, um die Datei zu schließen:
Sub SchliessenOhneSpeichern()
ActiveWorkbook.Close SaveChanges:=False
End SubDu kannst auch das Dialogfeld beim Schließen unterdrücken, indem Du den Cancel-Parameter im Workbook_BeforeClose-Ereignis verwendest:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True ' Verhindert das Schließen
ThisWorkbook.Close SaveChanges:=False
End SubHier sind einige praktische Beispiele, um die Datei ohne Speichern zu schließen:
Schließen ohne Rückfrage und ohne speichern:
Sub SchliessenOhneSpeichern()
ActiveWorkbook.Close SaveChanges:=False
End SubSchließen und dabei sicherstellen, dass keine Änderungen gespeichert werden:
Sub SchliessenMitVerifikation()
If MsgBox("Möchten Sie die Änderungen speichern?", vbYesNo) = vbNo Then
ActiveWorkbook.Close SaveChanges:=False
End If
End SubOption Explicit: Füge immer Option Explicit zu Beginn Deines Moduls hinzu, um Variablen zu deklarieren. Dies hilft, Fehler zu vermeiden.1. Wie verhindere ich, dass Excel beim Schließen nach dem Speichern fragt?
Um zu verhindern, dass Excel beim Schließen nach dem Speichern fragt, kannst Du ThisWorkbook.Close SaveChanges:=False verwenden.
2. Ist es möglich, eine Datei mit Änderungen zu speichern und dann zu schließen?
Ja, Du kannst ActiveWorkbook.Close SaveChanges:=True verwenden, um die Änderungen zu speichern und die Datei zu schließen.
3. Was passiert, wenn ich SaveChanges:=True verwende?
Wenn Du SaveChanges:=True verwendest, werden alle Änderungen in der Arbeitsmappe gespeichert, bevor sie geschlossen wird.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen