zoukankan      html  css  js  c++  java
  • 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
    

      

  • 相关阅读:
    CodeForces
    HihoCoder
    HihoCoder
    CodeForces
    CodeForces
    CodeForces
    HihoCoder
    HihoCoder
    CodeForces
    HihoCoder
  • 原文地址:https://www.cnblogs.com/sunxun/p/6401498.html
Copyright © 2011-2022 走看看