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

发布时间:2022-04-16 发布网站:脚本宝典
脚本宝典收集整理的这篇文章主要介绍了Excel自定义关闭按钮实现代码脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。

遇到过这样一个需求,是在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 If
End Sub

再执行

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

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

脚本宝典总结

以上是脚本宝典为你收集整理的Excel自定义关闭按钮实现代码全部内容,希望文章能够帮你解决Excel自定义关闭按钮实现代码所遇到的问题。

如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。
标签: