Excel自定义关闭按钮实现代码

时间:2021-05-28

遇到过这样一个需求,是在excel关闭的时候,不要excel本身的保存窗口,只用自定义的.

这个的需要第一,是点击关闭时候触发,

第二;触发后,不能还是弹出那个窗口

第三:取消后,要能停止程序

为了弄这个摸索了很久,最后总算通过结合,找出了解决办法:

先执行

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 IfEnd Sub

再执行

Sub Auto_Close() ThisWorkbook.Saved = True If Application.Workbooks.Count = 1 Then Application.Quit End If 'ThisWorkbook.Close FalseEnd Sub

以上就是本文的全部内容,希望对大家的学习有所帮助,也希望大家多多支持。

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章