欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Excel自定義關(guān)閉按鈕實(shí)現(xiàn)代碼

 更新時(shí)間:2020年12月03日 14:46:48   作者:手撕高達(dá)的村長(zhǎng)  
這篇文章主要介紹了Excel自定義關(guān)閉按鈕實(shí)現(xiàn)代碼,文中通過(guò)示例代碼介紹的非常詳細(xì),對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友可以參考下

遇到過(guò)這樣一個(gè)需求,是在excel關(guān)閉的時(shí)候,不要excel本身的保存窗口,只用自定義的.

這個(gè)的需要第一,是點(diǎn)擊關(guān)閉時(shí)候觸發(fā),

第二;觸發(fā)后,不能還是彈出那個(gè)窗口

第三:取消后,要能停止程序

為了弄這個(gè)摸索了很久,最后總算通過(guò)結(jié)合,找出了解決辦法:

先執(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

以上就是本文的全部?jī)?nèi)容,希望對(duì)大家的學(xué)習(xí)有所幫助,也希望大家多多支持腳本之家。

相關(guān)文章

最新評(píng)論