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