这个问题的核心是变量作用域的问题——你在取消按钮点击事件里直接用Cancel = True时，这个Cancel是按钮事件的局部变量，和Workbook_BeforeSave过程里的Cancel参数完全不相关，自然无法传递取消保存的指令。我们需要用一个模块级变量来传递用户的选择状态，同时调整代码执行逻辑，具体修改如下：

1. 在ThisWorkbook模块顶部声明模块级变量 #

首先打开ThisWorkbook模块，在所有过程之外添加一个模块级变量，用来共享“是否取消保存”的状态：

' 模块级变量，跨过程传递取消保存的状态
Private CancelSave As Boolean

2. 修改Workbook_BeforeSave过程 #

调整原有的保存前事件代码，加入状态判断和回滚逻辑：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim ws As Worksheet
    Set ws = Sheets("EDITS")
    Dim tbl As ListObject
    Set tbl = ws.ListObjects("Table1")
    Dim newrow As ListRow
    Set newrow = tbl.ListRows.Add
    
    ' 初始化取消状态为默认不取消
    CancelSave = False
    ' 模态显示对话框，让代码暂停等待用户操作
    SavePrompt.Show vbModal
    
    ' 将模块变量的状态赋值给BeforeSave的Cancel参数
    Cancel = CancelSave
    
    ' 如果用户选择取消，删除刚才新增的空行（避免无效记录）
    If Cancel Then
        newrow.Delete
    Else
        ' 确认保存时，再写入记录内容
        With newrow
            .Range(1) = Now
            .Range(2) = SavePrompt.TextBox1.Text
        End With
    End If
End Sub

3. 修改取消按钮的点击事件 #

更新CommandButton2的代码，通过模块级变量传递取消指令：

Private Sub CommandButton2_Click()
    ' 设置取消状态为True
    ThisWorkbook.CancelSave = True
    SavePrompt.Hide
End Sub

4. 保存按钮代码保持不变 #

原有的确认保存按钮逻辑无需修改：

Private Sub CommandButton1_Click()
    SavePrompt.Hide
End Sub

关键逻辑说明 #

• 模块级变量：CancelSave可以在ThisWorkbook的所有过程之间共享，完美解决了不同过程间的状态传递问题。
• 模态对话框：用vbModal显示对话框，确保Workbook_BeforeSave的代码会暂停执行，直到用户操作完对话框再继续判断是否取消保存。
• 记录回滚：如果用户取消保存，自动删除之前新增的空行，避免表格里出现无效的空白记录。

内容的提问来源于stack exchange，提问作者Kenny