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

王永谦

用代码修改注册表也可以的，只是大部分杀软会报警。用Sendkeys完全可以：
   Sub 设定安全级为高()
      Application.SendKeys "%tmss{tab}h~"
   End Sub

   Sub 设定安全级为中()
      Application.SendKeys "%tmss{tab}m~"
   End Sub

   Sub 设定安全级为低()
      Application.SendKeys "%tmss{tab}l~"
   End Sub

Sub 信任对于Visual Basic项目的访问()
      Application.SendKeys "%tmst{tab}{tab}v~"
End Sub

以上均为在Excel工作表视窗上执行代码，若在vbe视窗验试，在%号前加个%q，以切换到Excel视窗，实际代码是不需要这个%q的。
另外，如果只对2003以下版本，用宏表函数SEND.KEYS亦可，如设定安全级为低=SEND.KEYS("%tmss{tab}l~")，其它类推。用宏表（如果隐藏宏表）可以看不到代码也看不到工作表

lotteryman

Sub 信任对于Visual Basic项目的访问()
      Application.SendKeys "%tmst{tab}{tab}v~"
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
针对以上，好象不成功，
没有以上语句， 程序编译不过， 出现运行时错误‘1004’
方法VBProject 作用于对象失败。（ThisWorkbook.VBProject.References.AddFromFile ("C:\windows\system32\wshom.ocx")）
如有以上语句，程序编译会通过，
但不起作用，并没有实现对信任VB项目打勾。

王永谦

lotteryman 发表于 2012-5-27 01:44
Sub 信任对于Visual Basic项目的访问()
      Application.SendKeys "%tmst{tab}{tab}v~"
End Sub

你注册一下wshom.ocx呀！
Application.SendKeys "%TMST%V~"和Application.SendKeys "%tmst{tab}{tab}v~"都行，一样的

老谭酸菜

ugyun 发表于 2010-10-2 11:02
　　经过反复测试和查阅资料，上面的VBA代码均不能勾选信任对于“Visual Basic项目”的访问，因为这个项目是 ...

一个字：好！两个字：太好了！收藏！

yuanhongly

老谭酸菜 发表于 2013-8-15 18:17
一个字：好！两个字：太好了！收藏！

简单的事情被楼上的都想复杂了。运行如下过程之后就可以对VBE进行操作了。


[code=vb]Sub 信任对VB项目的操作() 'EXCEL重启后才可以在菜单中看见勾选  但实际已生效
Set D = CreateObject("Wscript.Shell")
D.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\AccessVBOM", "1", "REG_DWORD" '信任对VB项目的操作
End Sub[/code]

sunny_8848

yuanhongly 发表于 2013-8-15 19:22
简单的事情被楼上的都想复杂了。运行如下过程之后就可以对VBE进行操作了。

请教楼上，试过了，好像不行哦。系统是win 7 64 excel 2003

老谭酸菜

yuanhongly 发表于 2013-8-15 19:22
简单的事情被楼上的都想复杂了。运行如下过程之后就可以对VBE进行操作了。

牛人不少! 待我一一试过....

老谭酸菜

yuanhongly 发表于 2013-8-15 19:22
简单的事情被楼上的都想复杂了。运行如下过程之后就可以对VBE进行操作了。

在简体2003版下测试无效!

老谭酸菜

王永谦 发表于 2012-11-2 18:10
你注册一下wshom.ocx呀！
Application.SendKeys "%TMST%V~"和Application.SendKeys "%tmst{tab}{tab}v ...

在简体2003版下也没有成功,只调出了界面.

yuanhongly

sunny_8848 发表于 2013-8-15 20:41
请教楼上，试过了，好像不行哦。系统是win 7 64 excel 2003

我测试了  没有问题