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

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

vba
Sub AppleScriptExample()
    Dim script As String
    
    ' 构建AppleScript脚本
    script = "tell application ""Finder""" & vbNewLine
    script = script & "   set theFile to choose file" & vbNewLine
    script = script & "   set thePath to POSIX path of theFile" & vbNewLine
    script = script & "end tell" & vbNewLine
    script = script & "tell application ""Microsoft Word""" & vbNewLine
    script = script & "   open thePath" & vbNewLine
    script = script & "end tell"
    
    ' 执行AppleScript脚本
    MacScript (script)
End Sub

applescript
tell application "Finder"
    set theFile to choose file
    set thePath to POSIX path of theFile
    duplicate theFile to folder "Macintosh HD:Users:YourUsername:Desktop"
end tell