如何用VBA勾选信任对于“Visual Basic项目”的访问（已解决）

ugyun

各位老师：
    如何用VBA勾选信任对于“Visual Basic项目”的访问呀？是下面这两句吧？
Application.SendKeys "%(tmstv){ENTER}"                 '在 Excel 窗口操作
Application.SendKeys "%(qtmstv){ENTER}"                '在 VBE 窗口操作

把它放在Workbook_Open事件中为什么不起作用呢？
Private Sub Workbook_Open()     
'如果 信任对于“VISUal basic项目”的访问 已经打了勾，就不执行，否则就执行
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
If WSH.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\AccessVBOM") = 0 Then Application.SendKeys "%(QTMSTV){enter}"
Set WSH = Nothing
End Sub

[ 本帖最后由 ugyun 于 2010-10-3 13:28 编辑 ]

ugyun

　　经过反复测试和查阅资料，上面的VBA代码均不能勾选信任对于“Visual Basic项目”的访问，因为这个项目是微软用来防止宏病毒而设定的，如果代码可以启用此项的话，就可以在Excel的工程中写入代码，这样就不能起到上面的作用了。
  　但利用注册表文件却可以实现;
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Excel\Security]
"Level"=dword:00000002

[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security]
"AccessVBOM"=dword:00000001
第三行是将安全性设为“中”，第五行是勾选信任对于“Visual Basic项目”的访问
winxp和win7均适用

[ 本帖最后由 ugyun 于 2010-10-3 13:27 编辑 ]

恒河沙1

好东西呀，收下了，大家有需要的看看啊

dddoooccct

神作收藏了。

恒河沙1

2楼有这句话：“第三行是将安全性设为“中”，第五行是勾选信任对于“Visual Basic项目”的访问”

不知道设置安全性的 低 中 高 非常高 数值分别是什么，要知道就更好了，肯定用得着的

[ 本帖最后由 恒河沙1 于 2010-10-12 15:44 编辑 ]

ugyun

高的语句为：
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Excel\Security]
"Level"=dword:00000003
中的语句：
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Excel\Security]
"Level"=dword:00000002


低的语句：
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Excel\Security]
"Level"=dword:00000001

恒河沙1

原帖由 ugyun 于 2010-10-12 18:43 发表
高的语句为：
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Excel\Security]
"Level"=dword:00000003
中的语句：
Windows Registry Editor Version 5.00

[H ...

哈哈，太好了遇到原作者了
老师这个安全性的设定能用vba实现吗？感觉逻辑上不能，您看看

ugyun

应该是不行的，因为这个项目是微软用来防止宏病毒而设定的，如果代码可以启用此项的话，就可以在Excel的工程中写入代码，这样就不能起到上面的作用了。

恒河沙1

原帖由 ugyun 于 2010-10-13 11:52 发表
应该是不行的，因为这个项目是微软用来防止宏病毒而设定的，如果代码可以启用此项的话，就可以在Excel的工程中写入代码，这样就不能起到上面的作用了。

谢谢老师，我估计也不行，咱想到的微软早就想到了

hhzjxss

学习楼主的代码！