已知VBA工程密码，怎么用代码实现自动解密

lskvslgt

已知VBA工程密码为“123”，怎么用代码实现自动解密VBA工程，那位老师有实例，谢谢。

论坛找的，运行不起来，提示错误。
Sub 解密()
    Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute
    Application.SendKeys "{TAB 9}"
    Application.SendKeys "{RIGHT}"
    Application.SendKeys "{TAB}"
    Application.SendKeys "v" & "{TAB}"
    Application.SendKeys "123" & "{TAB}"
    Application.SendKeys "123" & "{ENTER}"
    DoEvents
End Sub

zhaogang1960

《VBA精粹修订版》技巧260 轻松打开受密码保护的项目：

1. 
   
2. Sub OpenVBPrjWithPassword()
   
3. '引用 Microsoft Visual Basic For Application Extensibility 5.3
   
4.     Dim strPassWord As String
   
5.     '关闭VBE主窗口
   
6.     Application.VBE.MainWindow.Visible = False
   
7.     strPassWord = "123" '密码字符串
   
8.     '判断是否设置了工程保护,使用密码打开工程
   
9.     If ActiveWorkbook.VBProject.Protection = vbext_pp_locked Then
   
10.         Application.VBE.CommandBars.FindControl(ID:=2578).Execute
    
11.         SendKeys strPassWord & "{ENTER}{TAB}{ENTER}"
    
12.         DoEvents '更新工程状态
    
13.     End If
    
14.     '要执行其它的操作….
    
15.     '.....
    
16. End Sub
    

复制代码

zhaogang1960

也可以不引用：

1. Sub OpenVBPrjWithPassword()
   
2.     Dim strPassWord As String
   
3.     '关闭VBE主窗口
   
4.     Application.VBE.MainWindow.Visible = False
   
5.     strPassWord = "123" '密码字符串
   
6.     '判断是否设置了工程保护,使用密码打开工程
   
7.     If ActiveWorkbook.VBProject.Protection = 1 Then
   
8.         Application.VBE.CommandBars.FindControl(ID:=2578).Execute
   
9.         SendKeys strPassWord & "{ENTER}{TAB}{ENTER}"
   
10.         DoEvents '更新工程状态
    
11.     End If
    
12.     '要执行其它的操作….
    
13.     '.....
    
14. End Sub

复制代码

lskvslgt

zhaogang1960 发表于 2013-2-7 15:28
也可以不引用：

谢谢 zhaogang1960版主，“DLL加载错误”，在别的电脑做了测试，以上代码都能正常运行，看来不是代码本身的问题，估计是加载了别的东西的原因，两段代码很精彩，学习了。

yqdaqinqin

给你个复杂的！！！

lskvslgt

yqdaqinqin 发表于 2013-2-7 16:00
给你个复杂的！！！

很牛，就是看不到源码，，呵呵

yqdaqinqin

lskvslgt 发表于 2013-2-7 16:05
很牛，就是看不到源码，，呵呵

代码貌似封装了！！！

zhaogang1960

用它自己破解它自己：
VBA工程加解锁器(完全版)(VBA破解).rar (72.16 KB, 下载次数: 2072)

2013-2-7 16:25 上传

点击文件名下载附件

zdmcys

zhaogang1960 发表于 2013-2-7 16:25
用它自己破解它自己：

真是佩服 羡慕 大师。

shgmp

zhaogang1960 发表于 2013-2-7 15:23
《VBA精粹修订版》技巧260 轻松打开受密码保护的项目：

老大 请问这段代码运行完毕后，原有的工程密码还能再自动恢复吗？
现在想对已经对工程密码加密的vba代码进行批量更换，希望在不需要人工取消工程密码的前提下，批量修改VBA代码，请问如何操作？假设设定的工程密码时123.谢谢