In diesem Beispiel wird eine Meldung angezeigt, falls Änderungen in der aktiven Arbeitsmappe noch nicht gespeichert wurden.
If Not ActiveWorkbook.Saved Then MsgBox "This workbook contains unsaved changes." End If
In diesem Beispiel wird die Arbeitsmappe, die den Beispielcode enthält, geschlossen. Alle Änderungen werden verworfen, indem der Saved-Eigenschaft der Wert True zugewiesen wird.
ThisWorkbook.Saved = True ThisWorkbook.Close