“访问被拒绝”从Excel宏运行VB脚本

Question

我需要做一个异步工作。从MAIN.xlsm循环，我想调用VB脚本（具有不同的参数）来打开更多执行.refreshAll方法的Excel实例。 （通过这种方式，我可以一次打开更多文件，而无需等待Excel中VBA的同步执行）。

导致问题的最后一件事是Shell中的权限。为了简化起见，我简化了代码（不带循环和参数）。 Sub OpenShell在Excel VBA模块中。 UAC已关闭，我是PC上的本地管理员。

Sub OpenShell()
    strShell = "cmd.exe /k cscript " & ThisWorkbook.Path & "\1.vbs"
    Shell strShell 
Exit Sub

VB脚本只有一行：Wscript.Echo "Running"

shell中的结果：“访问被拒绝”。