Excel2007VBA工程密码破解方法.docVIP

下载本文档

38
0
约7.94千字
约 8页
2020-12-15 发布于浙江
举报
版权申诉

Excel2007VBA工程密码破解方法.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

ExcelVBA工程密码破解程序 2008-08-29 21:06 新建一个Excel工作簿,Alt+F11 打开VBA编辑器,新建一个模块 ,复制以下代码,注意如提示变量未定义,则把Option Explicit行删除即可,经测试已经通过. 移除VBA编码保护Sub MoveProtect()??? Dim FileName As String??? FileName = Application.GetOpenFilename(Excel文件（*.xls *.xla）,*.xls;*.xla, , VBA破解)??? If FileName = CStr(False) Then?????? Exit Sub??? Else?????? VBAPassword FileName, False??? End IfEnd Sub 设置VBA编码保护Sub SetProtect()??? Dim FileName As String??? FileName = Application.GetOpenFilename(Excel文件（*.xls *.xla）,*.xls;*.xla, , VBA破解)??? If FileName = CStr(False) Then?????? Exit Sub??? Else?????? VBAPassword FileName, True??? End IfEnd Sub Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)????? If Dir(FileName) = Then???????? Exit Function????? 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 Function????? End If?????????? If Protect = False Then???????? 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, 提示????? Else???????? Dim MMs As String * 5???????? MMs = DPB=???????? Put #1, CMGs, MMs???????? MsgBox 对文件特殊加密成功......, 32, 提示????? End If????? Close #1End Function Excel VBA密码破解工具（VBA实现） 2007-10-13 08:00 使用UltreEdit之类的十六进制编辑程序打开.XLS文件，在文本模式下查找“[Host Extender Info]”(也可只查Host)，切换到十六进制模式，将前面的“D