Office 2016 for Mac 的 VB 宏每次尝试访问文件时都需要权限！有什么办法可以绕过这种行为吗

如何绕过 Office 2016 for Mac 的 VB 宏权限限制？

tell application "Microsoft Word"
    set docPath to choose file with prompt "选择要转换为 PDF 的 Word 文档"
    set docName to name of docPath
    set savePath to (path to desktop folder as string) & docName & ".pdf"
    open docPath
    save as active document file format format PDF file name savePath
    close active document saving no
end tell

Sub RunAppleScript()
    Dim scriptPath As String
    scriptPath = "Macintosh HD:Users:YourUsername:Desktop:script.scpt" ' 替换为实际的脚本路径
    Dim appleScript As Object
    Set appleScript = CreateObject("AppleScript.ScriptingBridge")
    appleScript.Run scriptPath
End Sub