Excel自定義關閉按鈕實現(xiàn)代碼
更新時間:2020年12月03日 14:46:48 作者:手撕高達的村長
這篇文章主要介紹了Excel自定義關閉按鈕實現(xiàn)代碼,文中通過示例代碼介紹的非常詳細,對大家的學習或者工作具有一定的參考學習價值,需要的朋友可以參考下
遇到過這樣一個需求,是在excel關閉的時候,不要excel本身的保存窗口,只用自定義的.
這個的需要第一,是點擊關閉時候觸發(fā),
第二;觸發(fā)后,不能還是彈出那個窗口
第三:取消后,要能停止程序
為了弄這個摸索了很久,最后總算通過結合,找出了解決辦法:
先執(zhí)行
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
再執(zhí)行
Sub Auto_Close() ThisWorkbook.Saved = True If Application.Workbooks.Count = 1 Then Application.Quit End If 'ThisWorkbook.Close False End Sub
以上就是本文的全部內容,希望對大家的學習有所幫助,也希望大家多多支持腳本之家。
相關文章
aspnet?core使用websocket實時更新商品信息的方法
這篇文章主要介紹了aspnetcore使用websocket實時更新商品信息,本文通過實例代碼給大家介紹的非常詳細,對大家的學習或工作具有一定的參考借鑒價值,需要的朋友參考下吧2024-01-01