?Application.DisplayAlerts = True
?ThisWorkbook.Saved = False
Sub Auto_Close()
If MsgBox("Сохранить изменения в файле '" & ThisWorkbook.Name & "' принудительно?", _
vbYesNo + vbExclamation, "Microsoft Excel") = vbYes Then ThisWorkbook.Save
End Sub