遇到过这样一个需求，是在excel关闭的时候，不要excel本身的保存窗口，只用自定义的.
这个的需要第一，是点击关闭时候触发，
第二；触发后，不能还是弹出那个窗口
第三：取消后，要能停止程序
为了弄这个摸索了很久，最后总算通过结合，找出了解决办法：
先执行
?
|
1
2
3
4
5
6
7
8
9
10
11
12
|
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If C_Msg.PostA("Com_Err023", , True, 1) = vbOK Then
Dim xxx As String
xxx = "Yes"
Cancel = False
Else
Dim sss As String
sss = "No"
Cancel = True
End If
End Sub
|
再执行
?
|
1
2
3
4
5
6
7
8
|
Sub Auto_Close()
ThisWorkbook.Saved = True
If Application.Workbooks.Count = 1 Then
Application.Quit
End If
'ThisWorkbook.Close False
End Sub
|
以上就是本文的全部内容，希望对大家的学习有所帮助，也希望大家多多支持快网idc。
原文链接：https://www.cnblogs.com/sunxun/p/6401498.html
相关文章
猜你喜欢
- ASP.NET本地开发时常见的配置错误及解决方法？ 2025-06-10
- ASP.NET自助建站系统的数据库备份与恢复操作指南 2025-06-10
- 个人网站服务器域名解析设置指南：从购买到绑定全流程 2025-06-10
- 个人网站搭建：如何挑选具有弹性扩展能力的服务器？ 2025-06-10
- 个人服务器网站搭建：如何选择适合自己的建站程序或框架？ 2025-06-10
