如何编写Excel中自定义关闭按钮的VBA代码？

本文共计305个文字，预计阅读时间需要2分钟。

遇到这样的需求，是在Excel关闭时，不希望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

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