直接保存后退出，不提示！

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'Cancel = True ' 禁止关闭
  'Cancel = False   '允许关闭

  Application.DisplayAlerts = False
ThisWorkbook.Save   保存
ThisWorkbook.Close   直接退出
Application.DisplayAlerts = True
End Sub