Win11/Office365更新后，无法通过VBA Shell启动msra.exe远程协助？

错误原因 #

Win11/Office365更新后出现Err.Number: 5（无效过程调用或参数），主要有以下几种可能：

• Shell函数无法定位msra.exe：系统更新后，Office运行上下文的环境变量PATH可能不再包含C:\Windows\System32目录，直接调用msra.exe会导致Shell找不到程序路径。
• 权限限制：新版本系统或Office加强了UAC（用户账户控制）权限，Access以普通权限运行时，Shell调用外部系统程序可能触发权限拦截。
• Office宏安全策略更新：Office365的宏安全设置升级，默认限制宏调用外部程序，导致Shell执行被阻止。

解决方法 #

1. 使用msra.exe的完整路径 #

修改代码，直接指定msra.exe的绝对路径（路径加双引号避免潜在的空格问题）：

Dim commandLine As String
commandLine = """C:\Windows\System32\msra.exe"" /offerRA " & par_terminalId
Call Shell(commandLine, vbNormalFocus)

2. 改用ShellExecute函数替代Shell #

ShellExecute对系统程序的路径解析和权限处理更友好，适合64位Office环境，代码示例：

' 64位Office需添加PtrSafe声明
Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As LongPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As LongPtr

Sub LaunchRemoteAssistance()
    ShellExecute 0, "open", "msra.exe", "/offerRA " & par_terminalId, vbNullString, vbNormalFocus
End Sub

3. 调整运行权限或宏设置 #

• 右键Access图标，选择以管理员身份运行，再执行代码，验证是否为权限问题。
• 检查Office宏安全设置：依次进入「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」，按需调整宏权限（建议仅启用受信任位置的宏，避免安全风险）。

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