我的代码,使用VBA从MS Access 2016运行:
Function download() as Boolean
Dim errorcode as Long
Dim wsh as Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn as Boolean: waitOnReturn = True
Dim windowStyle as Integer: windowStyle = 1
errorcode = wsh.Run(Chr(34) & "\\path\to\script.bat" & Chr(34), windowStyle, waitOnReturn)
If errorcode = 0 Then
download = True
Else
download = False
End If
End Function
切换到Windows 10之前,此脚本运行良好。但是现在当它尝试运行.bat文件时,我收到了安全警告:
发布者无法验证。您确定要运行此软件吗?
后接一些名称/类型/路径详细信息,“运行”按钮和“取消”按钮。
我是否可以通过某种方式告诉脚本绕过此提示或自动告诉它运行?
我知道从Excel的角度来看,您可以使用以下命令禁用MOST警报:
application.displayalerts = false