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自定义关闭按钮实现代码内容请查看相关栏目,小编编辑不易,再次感谢大家的支持!

标签: 自定义 Excel