Excel 自定义关闭按钮

时间:2021-02-12 23:49:57

遇到过这样一个需求,是在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