環境

OS：Windows7
Excel：2010

自動保存

　ThisWorkbookに下記のコードを記述すると、自動保存される。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = False
End Sub