运行Excel VBA调用Python脚本时触发恶意宏检测，需调整哪些设置？

我想用以下VBA代码运行一个简单的Python脚本：

Sub RunPythonScrip()

Set objShell = VBA.CreateObject("Wscript.shell")

PythonExePath = """C:\Users\user1\AppData\Local\Programs\Python\Python311\python.exe"""
PythonScriptPath = """C:\Users\user1\PycharmProjects\webscraping\main.py"""

objShell.Run PythonExePath & PythonScriptPath

End Sub

但运行时出现恶意宏检测的错误提示（错误提示截图：恶意宏检测报错）。请问需要调整哪些设置，才能避免该宏被判定为恶意程序？

• 将文件添加到信任位置
  打开Excel选项 → 信任中心 → 信任中心设置 → 受信任位置，把存放这个宏文件的文件夹添加进去。Office会信任该文件夹下的所有文件，不再触发恶意检测。

• 临时调整宏安全级别（谨慎使用）
  在信任中心设置的宏选项里，把安全级别改成"启用所有宏（不推荐；可能会运行有潜在危险的代码）"。这个方法风险高，只适合临时测试，用完记得改回默认的"禁用所有宏，并发出通知"。

• 给宏添加数字签名
  用Office自带的自我签名证书工具生成证书，给宏签名后，Office会识别到可信签名，不会拦截。操作步骤：打开VBA编辑器 → 工具 → 数字签名 → 选择已有的证书即可。

• 优化代码写法规避检测
  CreateObject("Wscript.shell")属于高危操作，容易被检测。可以换成Shell函数直接执行，同时修正原代码路径拼接无空格的问题：

  Sub RunPythonScrip()
      Dim PythonExePath As String
      Dim PythonScriptPath As String
      PythonExePath = "C:\Users\user1\AppData\Local\Programs\Python\Python311\python.exe"
      PythonScriptPath = "C:\Users\user1\PycharmProjects\webscraping\main.py"
      ' 用Chr(34)包裹路径避免空格问题，路径间加空格分隔
      Shell Chr(34) & PythonExePath & Chr(34) & " " & Chr(34) & PythonScriptPath & Chr(34), vbNormalFocus
  End Sub
  

  这种写法既可能绕过检测，也能保证脚本正常执行。

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