Excel VBA宏运行时如何临时抑制MsgBox弹窗，运行完成后恢复触发？

问题本质 #

现有权限校验逻辑无差别对所有触发场景弹出提示，未区分「用户主动访问工作表」和「代码自动调用触发」两种场景，我们通过新增全局状态标记的方式实现弹窗静默，侵入性极低，且完全保留原有权限控制规则。

实现步骤 #

步骤1：声明全局控制变量 #

在任意公共模块（通用函数模块或新建模块均可）的顶部（所有函数/过程之外）添加全局开关声明：

' 全局控制开关：True=临时禁止权限弹窗，False=正常触发弹窗
Public SuppressPermissionMsg As Boolean

步骤2：修改原有权限校验代码 #

调整你当前使用的工作表权限校验代码，仅新增开关判断逻辑，原有业务规则完全保留：

Application.ScreenUpdating = False

If Application.UserName = "Smith, John" Then
    Exit Sub
Else 
    ' 仅当静默开关未开启时才弹出权限提示
    If Not SuppressPermissionMsg Then
        MsgBox "You do not have permission to view this"
    End If
    Worksheets("General").Activate
End If
Application.ScreenUpdating = True

步骤3：改造业务调用代码 #

在需要静默执行的业务代码前后添加开关控制，同时增加错误捕获保证开关不会异常永久开启：

If Not check_setup_input Then
    Exit Sub
End If

' 开启权限弹窗静默模式
SuppressPermissionMsg = True
' 错误捕获：避免代码异常中断导致开关一直处于开启状态
On Error GoTo ErrHandler

Worksheets("lists").Cells(2, 16).Value2 = True
show_user_who_completes_form
row_control.hide_relevant_rows

With Worksheets("General").Cells(12, 4)
    .Value2 = "Calculate"
    .Interior.Color = 49407
    .Borders.LineStyle = xlContinuous
End With

ErrHandler:
' 无论代码执行成功还是报错，都强制恢复弹窗开关
SuppressPermissionMsg = False
' 可选：抛出错误提示
If Err.Number <> 0 Then
    MsgBox "执行出错：" & Err.Description
End If

注意事项 #

• 不要使用Application.DisplayAlerts = False尝试屏蔽该弹窗，该配置仅对Excel系统级提示生效，对VBA主动调用的MsgBox无效
• 错误捕获逻辑必须添加，否则如果业务代码中途报错中断，全局开关会一直处于开启状态，导致后续用户主动访问隐藏工作表时不会触发权限提示，破坏原有安全规则
• 该方案仅新增开关判断，未修改原有权限校验逻辑，不会降低工具的安全控制能力

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