如何在用户取消操作时退出Excel VBA的Test子程序？

你的核心问题是Application.CommandBars("Workbook Tabs").Controls(16).Execute这个方法不会返回用户操作结果，没法直接判断是否取消。下面给你两种可行的解决方案：

方案一：使用内置对话框对象（推荐） #

直接调用对应的内置对话框，它会返回布尔值：用户点击确定返回True，取消返回False，能直接判断并退出子程序，还能避免因Excel版本不同导致控件索引变化的问题。

修改后的代码：

Sub Test()
    Dim dialogResult As Boolean
    
    ' 调用对应功能的内置对话框（和你原控件的功能一致）
    dialogResult = Application.Dialogs(xlDialogMoveSheet).Show
    
    ' 判断用户是否取消操作
    If Not dialogResult Then
        MsgBox "用户取消了操作"
        Exit Sub
    End If
    
    ' 后续的VBA代码
    MsgBox "用户完成操作，继续执行后续逻辑"
End Sub

方案二：对比执行前后的工作表状态（兼容原CommandBar方式） #

如果必须保留使用CommandBar控件的方式，可以通过记录执行前的工作表状态（数量、名称顺序），执行后对比状态是否变化来判断用户是否取消。示例如下：

Sub Test()
    ' 注意：需要至少16个工作表才能保证原控件存在
    Dim sheetCountBefore As Integer
    Dim sheetNameOrderBefore As String
    Dim i As Integer
    
    ' 记录执行前的工作表状态
    sheetCountBefore = ThisWorkbook.Sheets.Count
    For i = 1 To sheetCountBefore
        sheetNameOrderBefore = sheetNameOrderBefore & ThisWorkbook.Sheets(i).Name & "|"
    Next i
    
    ' 执行CommandBar控件
    Application.CommandBars("Workbook Tabs").Controls(16).Execute
    
    ' 记录执行后的工作表状态
    Dim sheetCountAfter As Integer
    Dim sheetNameOrderAfter As String
    sheetCountAfter = ThisWorkbook.Sheets.Count
    For i = 1 To sheetCountAfter
        sheetNameOrderAfter = sheetNameOrderAfter & ThisWorkbook.Sheets(i).Name & "|"
    Next i
    
    ' 状态无变化则说明用户取消了操作
    If sheetCountBefore = sheetCountAfter And sheetNameOrderBefore = sheetNameOrderAfter Then
        MsgBox "用户取消了操作"
        Exit Sub
    End If
    
    ' 后续的VBA代码
    MsgBox "用户完成操作，继续执行后续逻辑"
End Sub

补充说明 #

• 方案一更稳定，是官方支持的判断方式，不会因Excel版本差异出现控件索引失效的问题。
• 方案二仅适合必须使用CommandBar的场景，但要注意：如果用户打开对话框后操作又撤销，可能会导致状态对比误判。

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