验证列表下拉框打开时调用VBA宏触发运行时错误

问题现象 #

• 触发条件：打开单元格数据验证的下拉框但未选择值时，点击关联了VBA宏的表单按钮
• 报错范围：所有涉及Excel对象模型的代码（如ThisWorkbook.Activate、Application.ScreenUpdate、单元格/工作表操作）都会触发运行时错误；仅执行独立计算（如i = 1后用MsgBox输出）可正常运行
• 复现性：在当前M365版本的多台电脑上可稳定复现，最初发现于大型工作簿

原因分析 #

当数据验证下拉框处于激活状态时，Excel的UI交互线程处于锁定状态，此时VBA代码尝试访问Excel对象模型会引发线程冲突，导致运行时错误。

解决方案 #

1. 宏开头强制关闭下拉框 #

在宏的最开始添加代码，先关闭打开的下拉框，再执行后续逻辑：

方法一：使用SendKeys模拟ESC按键

Sub TargetMacro()
    ' 模拟ESC按键关闭下拉框
    SendKeys "{ESC}"
    ' 可选：添加短延迟确保下拉框完全关闭
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 你的原有宏代码
    ThisWorkbook.Activate
    Application.ScreenUpdating = False
    ' ...其他操作
    Application.ScreenUpdating = True
End Sub

注意：SendKeys可能受系统焦点影响，若运行不稳定可尝试第二种方法。

方法二：通过激活单元格关闭下拉框

Sub TargetMacro()
    ' 激活当前单元格以关闭下拉框
    ActiveCell.Activate
    
    ' 你的原有宏代码
    ' ...
End Sub

2. 预防式提示（可选） #

若希望避免用户在下拉框打开时触发宏，可在工作表中添加监控逻辑，比如在SelectionChange事件中检测数据验证状态并给出提示：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    ' 检查当前单元格是否有数据验证且下拉框是否打开
    If Target.Validation.Type = xlValidateList Then
        MsgBox "请先关闭下拉框再执行宏操作", vbInformation
    End If
    On Error GoTo 0
End Sub

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