Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Saved = True Application.CutCopyMode = False '关闭剪贴板提示 If Workbooks.Count = 1 Then Application.QuitEnd Sub
