试了千百种“信任对VBA工程对象模型的访问”打开的方法，没一个成功的-_-||

furao_1011 · 发表于 2015-8-20 15:50

1.
With Application
         .SendKeys "%tmst{tab}{tab}v~"
         .CommandBars.FindControl(ID:=3627).Execute
End With

2.
Application.SendKeys "%(qtmstv){ENTER}"

3.
With Application
   .SendKeys "t"
   .CommandBars.FindControl(ID:=3627).Execute
End With

4.
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\AccessVBOM", 1, "REG_DWORD"
Set WshShell = Nothing

其中第一种把文件保存成xlsm是可以的，但是xla就不能用了。我用的2013。求大神~~~~~~

furao_1011 · 发表于 2015-8-20 15:51

这几天发了几个关于VBA的问题，都没人给解答啊，求大神现身吧

liucqa · 发表于 2015-8-20 17:44

上面的代码和excel版本有关

furao_1011 · 发表于 2015-8-20 17:57

liucqa 发表于 2015-8-20 17:44
上面的代码和excel版本有关

大神能指点一个通用的么？

furao_1011 · 发表于 2015-8-20 20:36

大神帮忙呀

furao_1011 · 发表于 2015-8-21 09:15

顶~~~~~~~~~~~~~

ili · 发表于 2015-8-21 09:35

furao_1011 发表于 2015-8-21 09:15
顶~~~~~~~~~~~~~

不要把有限的生命用在无限的加密破解中。
这种设置，给个设置步骤就好了，会excel的人我想都能根据步骤找到设置的地方。
当然，你想做病毒当我没说。

furao_1011 · 发表于 2015-8-21 09:42

ili 发表于 2015-8-21 09:35
不要把有限的生命用在无限的加密破解中。
这种设置，给个设置步骤就好了，会excel的人我想都能根据步骤 ...

我没想做宏病毒，只是想制作xla文件双击后自动配置到addins下，连同需要用到的dll文件一起（system32）。

furao_1011 · 发表于 2015-8-21 09:43

ili 发表于 2015-8-21 09:35
不要把有限的生命用在无限的加密破解中。
这种设置，给个设置步骤就好了，会excel的人我想都能根据步骤 ...

当你做个工具要配置到很多pc机上，你就不认为你说的是对的了

liucqa · 发表于 2015-8-21 10:00

可以用安装工具做个安装包，可能需要具备管理员权限，具体百度

		自动登录	找回密码
密码			免费注册

[讨论] 试了千百种“信任对VBA工程对象模型的访问”打开的方法，没一个成功的-_-||

评分