信任对 Visual Basic 项目的访问

Dead丶小峰

在excel2010中，如何在代码里面设置“信任对 Visual Basic 项目的访问”这项为勾选的？不知道这样可不可以实现，目前知道安全级别是可以设置的。求大神帮忙

wpxxsyzx

Application.SendKeys "%ft{END}%t{UP}{UP}%v"

Dead丶小峰

wpxxsyzx 发表于 2013-1-7 17:36
Application.SendKeys "%ft{END}%t{UP}{UP}%v"

在2010里面试过了，没有效果。
我昨天也查了一下，感觉这个在代码里面应该是不可以实现的，因为如果实现了的话，那2010的宏的安全性就太差了点，微软应该不会搞这种飞机的。网上也说得不可以额，不过貌似可以通过修改注册表的方法来实现。

wpxxsyzx

Dead丶小峰 发表于 2013-1-8 09:44
在2010里面试过了，没有效果。
我昨天也查了一下，感觉这个在代码里面应该是不可以实现的，因为如果实现 ...

奇怪，我这可以，测试附件：

zhaogang1960

这是精粹中的代码，可在我这里无效(win7+2003)

1. Option Explicit
   
2. Sub SetTrustInVBE()
   
3.     Dim blChgset As Boolean
   
4.     On Error Resume Next
   
5.     '陷阱测试，下面第一句blChgset赋值无实质意义
   
6.     blChgset = ThisWorkbook.VBProject.Protection
   
7.     '如果发生错误则说明需要设置信任工程
   
8.     blChgset = Err
   
9.     If blChgset Then
   
10.         Err.Clear
    
11.         '设置信任工程访问
    
12.         SendKeys "%TMS%T%V{ENTER}"
    
13.         DoEvents    '更新状态
    
14.     End If
    
15.     '要执行的操作....
    
16.     '.....
    
17.     Application.VBE.MainWindow.Visible = False
    
18.     '操作完成后还原操作前的状态
    
19.     If blChgset Then
    
20.         SendKeys "%TMS%T%V{ENTER}"
    
21.     End If
    
22. End Sub
    

复制代码

lee1892

我这XP+2003执行Application.SendKeys "%tms%t%v{ENTER}"到跳出“安全性”的对话框，%v和回车没实现操作。。。
如果MS让简单的sendkey就可以实现的话也太闹残了吧~~

Dead丶小峰

现在上传修改注册表的附件，网上找的。

liucqa

lee1892 发表于 2013-1-8 12:40
我这XP+2003执行Application.SendKeys "%tms%t%v{ENTER}"到跳出“安全性”的对话框，%v和回车没实现操作。。 ...

2007\2003都可以用sendkeys实现这个功能

wpxxsyzx

win7+office2010

zhaogang1960

win7+2010: