Excel VisualBasic Script

Private Sub Workbook_BeforeClose(Cancel As Boolean)
         Me.Saved = True
End Sub