<bdo id="vljxk"><rt id="vljxk"><noframes id="vljxk"><noframes id="vljxk"><noframes id="vljxk"><rt id="vljxk"></rt><rt id="vljxk"></rt><noframes id="vljxk"><rt id="vljxk"><delect id="vljxk"></delect></rt><noframes id="vljxk"><rt id="vljxk"></rt><noframes id="vljxk"><noframes id="vljxk"><rt id="vljxk"></rt>

當前位置:首頁 >  站長 >  編程技術 >  正文

Excel自定義關閉按鈕實現代碼

 2020-12-08 11:12  來源: 腳本之家   我來投稿 撤稿糾錯

  阿里云優惠券 先領券再下單

這篇文章主要介紹了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

以上就是本文的全部內容,希望對大家的學習有所幫助,也希望大家多多支持腳本之家。

來源:腳本之家

鏈接:https://www.jb51.net/article/201311.htm

申請創業報道,分享創業好點子。點擊此處,共同探討創業新機遇!

相關標簽
代碼設計

相關文章

熱門排行

信息推薦