VBA Excel-如何使用MS Excel中的取消按钮关闭？

Question

我正在运行一个宏，而在Private Sub Workbook_BeforeClose(Cancel As Boolean) 但每当用户点击取消按钮宏不应该运行。

---

我不停的代码

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
If Cancel = True Then 
    MsgBox "You clicked on Cancel" 
ElseIf Cancel = False Then 
    Call SDA 
End If 

末次
以下行但每当我按取消按钮，它没有显示我任何MessageBox.Any帮助，将不胜感激。

Answer 1

尝试此请：

Option Explicit 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
Dim Msg As String 
Dim ireply As Integer 
    If Not Me.Saved Then 
     Msg = "Do you want to Save this book? " 
     ireply = MsgBox(Msg, vbQuestion + vbYesNoCancel) 
     Select Case ireply 
      Case vbYes 
       Me.Save 
       Call SDA 
      Case vbNo 
       Me.Saved = True 
      Case vbCancel 
       Cancel = True 
       MsgBox "Cancelling...workbook close event!" 
       Exit Sub 
      End Select 
    End If   
End Sub 

• 输出对话框：

一个消息的通常结构取消事件涡卷如下：

'--Display MessageBox 
    Dim intMsg as integer 
    intMsg = MsgBox(strPrompt, vbYesNo, strTitle) 
    '--Check pressed button 
    If iRet = vbNo Then 
     MsgBox "NO!" 
    Else 
     MsgBox "Yes!" 
    End If