Excel VBA如何检测代码单步执行状态并屏蔽ScreenUpdating=False设置

VBA 本身没有直接暴露单步执行状态的原生属性，以下两个方案都可以实现自动屏蔽 Application.ScreenUpdating = False 设置的需求，比手动维护 StepCode 内部变量更可靠：

方案1：条件编译+统一封装（最推荐，无额外依赖） #

这个方案无需引入API，只需做一次全局配置即可：

1. 打开VBA编辑器，右键点击左侧工程面板的VBA工程，选择「VBAProject 属性」，在「生成」选项卡的「条件编译参数」输入框中：
   • 调试阶段填写 DEBUG_MODE = 1
   • 正式发布宏时修改为 DEBUG_MODE = 0
2. 新增一个通用工具模块，写入如下封装过程：

Public Sub SetScreenUpdating(enableStatus As Boolean)
    #If DEBUG_MODE = 1 Then
        ' 调试模式下强制保持屏幕刷新开启，忽略所有关闭请求
        Application.ScreenUpdating = True
    #Else
        ' 发布模式下正常执行参数设置
        Application.ScreenUpdating = enableStatus
    #End If
End Sub

3. 将业务代码中所有直接修改 Application.ScreenUpdating 的语句，全部替换为对上述封装过程的调用：
   • 原 Application.ScreenUpdating = False 替换为 SetScreenUpdating False
   • 原 Application.ScreenUpdating = True 替换为 SetScreenUpdating True

这个方案不会出现发布时忘记改调试变量的问题，所有逻辑收口在一处，修改成本极低。

方案2：自动检测调试状态（无需手动切换配置） #

如果不想每次发布手动修改条件编译参数，可以引入Win32 API自动检测当前是否处于调试状态，自动切换逻辑：

1. 通用工具模块中先写入API声明（兼容32/64位Office）：

#If VBA7 Then
    Declare PtrSafe Function CheckRemoteDebuggerPresent Lib "kernel32" (ByVal hProcess As LongPtr, ByRef pbDebuggerPresent As Long) As Long
    Declare PtrSafe Function GetCurrentProcess Lib "kernel32" () As LongPtr
#Else
    Declare Function CheckRemoteDebuggerPresent Lib "kernel32" (ByVal hProcess As Long, ByRef pbDebuggerPresent As Long) As Long
    Declare Function GetCurrentProcess Lib "kernel32" () As Long
#End If

2. 新增调试状态判断函数和封装的屏幕刷新设置过程：

Private Function IsInDebugMode() As Boolean
    Dim debugFlag As Long
    CheckRemoteDebuggerPresent GetCurrentProcess(), debugFlag
    IsInDebugMode = (debugFlag <> 0)
End Function

Public Sub SetScreenUpdating(enableStatus As Boolean)
    If IsInDebugMode() Then
        ' 调试状态强制开启屏幕刷新
        Application.ScreenUpdating = True
    Else
        ' 正常运行状态按参数设置
        Application.ScreenUpdating = enableStatus
    End If
End Sub

3. 同样将所有直接修改 Application.ScreenUpdating 的语句替换为对 SetScreenUpdating 的调用即可，无需做任何配置切换，单步执行、断点暂停场景下都会自动保持屏幕刷新开启。

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