如何将Excel自定义关闭按钮的代码改写为长尾词?
- 内容介绍
- 文章标签
- 相关推荐
本文共计303个文字,预计阅读时间需要2分钟。
遇到这样一个需求,是在Excel关闭时,不使用Excel本身的保存窗口,仅用自定义的.+。这个需求包括以下三点:
1. 点击关闭时触发;
2.触发后,不能再次弹出保存窗口;
3.取消后,不再弹出保存窗口。
遇到过这样一个需求,是在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
以上就是本文的全部内容,希望对大家的学习有所帮助,也希望大家多多支持易盾网络。
本文共计303个文字,预计阅读时间需要2分钟。
遇到这样一个需求,是在Excel关闭时,不使用Excel本身的保存窗口,仅用自定义的.+。这个需求包括以下三点:
1. 点击关闭时触发;
2.触发后,不能再次弹出保存窗口;
3.取消后,不再弹出保存窗口。
遇到过这样一个需求,是在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
以上就是本文的全部内容,希望对大家的学习有所帮助,也希望大家多多支持易盾网络。

