作者：乔山办公网日期：
返回目录：excel表格制作
你可以换一个思路，就是在打开工作表的时候对控zhidao件状态进行初始化，这样的话关闭的时候就无须再考虑要不要保存控专件的状态了，可以一律保存，这样问题是不是就简单得多了呢？属
补充：你可以在Workbook_Open事件中对控件进行初始化
目的是“提示”出现后，不出现保存窗口，不保存直接退出？
刚才搞了一下，不是很成功，逻辑上有抄点儿问题。如果你想保存，这时候出现提示，然后不保存退出，这和一开始需要保存产生了循环。如果直接袭在你的zhidao代码中增加ThisWorkbook.Close False，会产生保存后就可能不保存的退出的问题。
或者你将Cancel = False，这样就会保存退出，感觉比较安全
Private Sub Auto_close()
Application.DisplayAlerts = False
If MsgBox("请问您真的要来退出吗？", vbYesNo, "Microsoft Excel") = vbYes Then
ActiveWorkbook.Close
End If
End Sub
这样就对自了
你的zhidaomsgbox重复了
1、打开Excel 2003或2007或2010或2013完整版版本。
2、进入“开发工具”一栏。知
3、点选“Visual Basic”选项卡中的“编辑器”。
4、双击道“ThisWorkBook”或“工作表1”。
5、在空白区域填写代码：Sub 保存所有已打开的工作簿()，专Dim i As Workbook，For Each i In Workbooks， If i.Path <> "" Then，i.Save， End If，Next ，End Sub。
6、点击“运行”。
7、点击“运行子过程/UserForm”就可属以了。