最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

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

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

相關文章

最新評論

阳江市| 乐亭县| 乌鲁木齐县| 那坡县| 顺义区| 南岸区| 林周县| 湘潭市| 无棣县| 昆山市| 通榆县| 湾仔区| 姚安县| 准格尔旗| 肥西县| 岳西县| 扎兰屯市| 和田县| 攀枝花市| 远安县| 娄烦县| 龙里县| 绿春县| 冷水江市| 喀喇沁旗| 西乌| 桂阳县| 海门市| 龙里县| 农安县| 红河县| 陵水| 武义县| 景泰县| 开封市| 隆子县| 五莲县| 施甸县| 即墨市| 兴业县| 镇远县|