用VBA代码开启“信任对VBA工程对象模型的访问”的方法

硅谷少年

太费劲了，用shell调用cmd命令一句搞定。

硅谷少年

Set oWshell = CreateObject("WScript.Shell")
oWshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\AccessVBOM", 1, "REG_DWORD"
这个亲测可以。

硅谷少年

shell "cmd /c reg add HKEY_CURRENT_USER\Software\Microsoft\Office\" & application.Version  & "\Excel\Security /v AccessVBOM /t REG_DWORD  /d 1 /f"
这个是我调试OK的，也可以。用shell运行cmd命令，来完成那些需要多行VBA代码完成的事，让代码更简练，我很喜欢。

sunny_8848

硅谷少年 发表于 2017-10-31 10:48
shell "cmd /c reg add HKEY_CURRENT_USER\Software\Microsoft\Office\" & application.Version  & "\Excel ...

请教，2003版本，win 7 64位
Shell "cmd /c reg add HKEY_CURRENT_USER\Software\Microsoft\Office\" & 11# & "\Excel\Security /v AccessVBOM /t REG_DWORD  /d 1 /f"
运行这句代码没效果？

硅谷少年

sunny_8848 发表于 2017-10-31 13:46
请教，2003版本，win 7 64位
Shell "cmd /c reg add HKEY_CURRENT_USER\Software\Microsoft\Office\" &  ...

你代码里那个11#是什么？
你用我那个代码一字不差在VBA的立即窗口里测试一下试试。

sunny_8848

硅谷少年 发表于 2017-11-1 09:30
你代码里那个11#是什么？
你用我那个代码一字不差在VBA的立即窗口里测试一下试试。

那个11，我是按照代码在注册表中找到对应的excel版本修改的，即使不修改也不行哦

硅谷少年

那不知道。反正我测试了几台电脑都是可以的。要不电脑有问题，要不人有问题。
你在cmd命令提示符下，直接运行
reg add HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security /v AccessVBOM /t REG_DWORD  /d 1 /f
试试。前提是你知道运行前后，在哪里看，有什么变化。

sunny_8848

硅谷少年 发表于 2017-11-1 10:04
那不知道。反正我测试了几台电脑都是可以的。要不电脑有问题，要不人有问题。
你在cmd命令提示符下，直接 ...

多谢，还是不行。win 7 64位 office2003

硅谷少年

sunny_8848 发表于 2017-11-1 11:13
多谢，还是不行。win 7 64位 office2003

       '开启VBA访问，并将VBA宏安全设置为高.
        Dim Reg As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser
        'EXCEL 2003安全设置
        Dim EReg As Microsoft.Win32.RegistryKey = Reg.CreateSubKey("Software\Microsoft\Office\11.0\Excel\Security")
        EReg.SetValue("Level", "3", Microsoft.Win32.RegistryValueKind.DWord)
        EReg.SetValue("DontTrustInstalledFiles", "0", Microsoft.Win32.RegistryValueKind.DWord)
        EReg.SetValue("AccessVBOM", "1", Microsoft.Win32.RegistryValueKind.DWord)
        EReg.Close()
        'EXCEL 2007安全设置
        EReg = Reg.CreateSubKey("Software\Microsoft\Office\12.0\Excel\Security")
        EReg.SetValue("Level", "3", Microsoft.Win32.RegistryValueKind.DWord)
        EReg.SetValue("DontTrustInstalledFiles", "0", Microsoft.Win32.RegistryValueKind.DWord)
        EReg.SetValue("AccessVBOM", "1", Microsoft.Win32.RegistryValueKind.DWord)
        EReg.Close()
        Reg.Close() '关闭注册表

根据上面代码，office2003的注册表位置有不同，你自己修改一下。另外，为什么不换07或10呢？死守2003有特殊原因？

sunny_8848

硅谷少年 发表于 2017-11-3 18:59
'开启VBA访问，并将VBA宏安全设置为高.
        Dim Reg As Microsoft.Win32.RegistryKey = My.C ...

谢谢帮助。习惯2003的界面了，反正平时用的也不是很多
我直接复制代码后怎么很多都显示红色的错误，不知能否直接上传一个附件？