Excel破解vba密码

一：将要破解的Excel文件打开，另存为Excel 97-2003工作簿(*.xls)版本，然后关闭。

二：新建一个Excel文件

三：打开新建的Excel，按下Alt+F11，打开vba界面，新建一个模块。

四：将代码复制到这个模块中，代码如下。

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 IfDim 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

五：点击运行按钮(F5)。

六：会打开了一个文件夹，找到我们要破解的Excel文件，点击打开，稍等几分钟就会看到破解成功的提示了。

七：再次打开要破解的Excel文件，就可以正常查看代码了。

Excel破解vba密码相关推荐

EXCEL破解VBA密码（测试有效）
EXCEL破解VBA密码(测试有效) 准备 1)待破解的EXCEL文件(通常可能是.xlsm)格式 2)Notepad++ 开始步骤一将待破解.xlsm文件另存为97-2003工作簿(*.xls) ...
Excel宏(VBA)密码破解
最近在研究一个Excel宏,想查看VBA代码但是有密码,于是想着能不能移除密码.网上查找一番资料后进行了尝试. 一,准备工具 Excel Hex Editor Neo 二,开始实践首先将.xlsm后 ...
Excel破解宏密码
1.打开Excel文件,如果是xlsm文件可跳过第一步,不是的就另存为xlsm文件(注意:这个时候不要启动宏,因为宏可能会报错,不让你保存) 2.将另存为的xlsm文件的后缀名更改为rar或zip 3 ...
[转载]如何破解Excel VBA密码
原文链接:http://yhf8377.blog.163.com/blog/static/1768601772012102111032840/ 在此之前,先强调一下,这个方法只是用来破解Excel内部 ...
Excel VBA密码破解工具（VBA实现）
http://www.oschina.net/code/snippet_54124_15443 使用UltreEdit之类的十六进制编辑程序打开.XLS文件,在文本模式下查找"[Host E ...
有没有办法破解密码的Excel的VBA项目
我一直要求更新Excel 2003中的宏,但VBA项目有密码保护,而且似乎还有欠缺,没有人知道密码. 有没有对VBA项目删除或破解口令的方法是什么? 本文地址 :CodeGo.net/60693/ ...
Excel2013破解vba工程密码以及工作表保护密码
今天从网上学到如何破解vba工程密码以及工作表保护密码,在这里分享一下. 破解vba工程密码:(引用自http://jingyan.baidu.com/article/2009576170cc05c ...
vbapython破解各种密码合集
系列文章目录文章目录系列文章目录前言一.excel设置工作薄&工作表保护二.VBA解除excel工作薄&工作表保护三.修改源文件解除excel工作表保护四.excel设置 ...
苦学Excel、VBA，工作效率依旧低下？你该认识这个新工具了
到底是谁的错? " 996......998......1000......",抬头望着办公室唯一一盏亮着的灯,再低头看看PC端,成百上千的excel数据表单,你内心烦闷,似乎有话 ...

Excel破解vba密码

Excel破解vba密码相关推荐

最新文章

热门文章