人经常从网上下载别人的一些Excel学习vba编码,不过有些人为了避免别人盗用所以给代码加了密码,其实这个密码破解起来很假单,下面我就跟大家分享一下如何破解vba工程代码:
将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文件
打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示
将代码复制到这个模块中,代码如下:
Private Sub VBAPassword() '你要解保护的Excel文件路径
Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename & ".bak" '备份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Sub
End If
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Close #1
End Sub
你会看到,打开了一个文件夹,找到我们要破解的这个文件,然后点击打开
稍等几分钟你就会看到破解成功的提示了
[img]http://hiphotos.baidu.com/exp/pic/item/e1bf8725bc315c60ff88efe08cb1cb1349547765.jpg/img]
再次打开你要破解的这个文件,你会看到这里已经可以查看代码了哈哈
引自:http://jingyan.baidu.com/article/2009576170cc05cb0721b437.html
分享到:
相关推荐
破解VBA工程密码(可恢复密码).xlsm
Excel VBA工程密码破解程序 Excel VBA工程密码破解程序
VBA密码破解,破解EXCEL宏,精彩不容错过
破解EXCELVBA工程密码.pdf
Excel-VBA工程密码破解
破解VBA工程密码.xlsm
破解excel vba 工程密码,参考文件,详情可见https://mp.csdn.net/postedit
通过文本编辑器的地址修改造成vba密码获取失败,比起vba工程解密要方便很多。亲测可行。
VBA工程密码破解代码及原理,备注解释解析代码及原理
Excel VBA工程密码破解程序.xls
简单便捷,无需转换至xls
Excel VBA 密码破解 简单的 VBA 工程密码破解代码
利用OFFICE内置VBA来破解EXCEL的密码保护
新建一个Excel工作簿,Alt+F11 打开VBA编辑器,新建一个模块 ,复制以下代码,注意如提示变量未定义,则把Option Explicit行删除即可
Excel VBA工程项目密码移除,可适用于xls、xlsx、xlsm等格式,亲测有效!注意看使用说明
用于破解VBA的工程密码,但是对于Excel VBA的工程密码是很脆弱的,其实吧里很早就有一篇这样的贴子,我也将其整理为加载宏
ExcelVBA工程密码破解.pdf
忘记密码?不用怕,它来帮你解除Excel的VBA工程密码,工程不可查看等
excel工程密码忘了重设,主要针对VBA工程源码设了密码的excel文件
Excel表格VBA工程密码解除,支持xls,务必请先将文件的扩展明转为为xls格式,或xla格式,然后开始解除密码,100%成功,遇到不能成功解除请私信我!