Saved Property Example

This example displays a message if the active workbook contains unsaved changes.

If Not ActiveWorkbook.Saved Then
    MsgBox "This workbook contains unsaved changes."
End If

This example closes the workbook that contains the example code and discards any changes to the workbook by setting the Saved property to True.

ThisWorkbook.Saved = True
ThisWorkbook.Close