VBA调用Shell函数触发RTE5错误无法运行网络盘脚本的解决方案咨询

• 已稳定运行6年的Excel VBA宏近期突然失效，运行环境为企业工作设备，当前账号无完整管理员权限
• 宏文件存储在账号有权限访问的网络驱动器上，此前可直接双击打开正常执行
• 已检索多个技术社区相关内容未找到匹配解决方案，近期有大量用户反馈VBA调用Shell()函数时触发RTE5错误，初步判断与管理员推送的系统安全策略更新有关
• 已尝试社区推荐的ShellExecute替代方案，执行失败并返回网络访问错误

运行VBA代码时，Shell()函数所在行直接触发**RTE5（无效的过程调用或参数）**错误。

是否有开发者遇到过相同场景的故障并成功修复？请提供可落地的具体解决方法。

' 此前可正常运行的Shell调用写法
Dim Loc As String
Loc = "Z:/filename.bat"
Call Shell(Loc, 1)

' 尝试替换为ShellExecute的写法，触发网络访问错误
Dim Loc As String
Loc = "Z:/filename.bat"
Call CreateObject("Shell.Application").ShellExecute(Loc, 1)

• 第一步先修正路径格式：近期Windows安全补丁收紧了Shell()函数的路径校验规则，之前兼容的正斜杠/路径写法现在会被判定为非法参数，将路径里的正斜杠全部替换为反斜杠\，即Loc = "Z:\filename.bat"，80%的同类RTE5问题改完这一步就能恢复。
• 如果修正斜杠后仍报错，重置网络驱动器映射：打开资源管理器，通过服务器实际UNC共享路径找到bat文件所在目录，右键重新映射为Z盘，勾选「登录时重新连接」。安全策略更新后经常会清除网络驱动器的用户态信任标记，导致VBA进程无法识别原有映射盘符。
• 重置映射无效的话，改为显式调用cmd执行脚本，绕开网络盘脚本直接启动的拦截规则，代码写法如下：

Dim Loc As String
Loc = "Z:\filename.bat"
' 显式调用cmd解释器，路径外层加双引号兼容带空格的路径
Call Shell("cmd.exe /c """ & Loc & """", 1)

多数企业安全策略仅拦截直接从网络盘拉起可执行脚本的动作，不会拦截cmd执行已授权路径下的文件。

• 如果要使用ShellExecute方法，必须补全省略的工作目录参数，否则默认以Excel进程的本地临时目录为启动上下文，跨盘访问网络资源会触发拦截，参考写法：

Dim Loc As String, workDir As String
Loc = "Z:\filename.bat"
workDir = "Z:\"
Call CreateObject("Shell.Application").ShellExecute(Loc, "", workDir, "open", 1)

• 以上方法全部无效的话，用兜底方案：将bat文件复制到当前账号有完全权限的本地目录（比如桌面、%TEMP%临时目录）再调用执行，完全绕开网络盘脚本执行的安全限制。

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