vba密码破解宏模块代码【已失效,仅供学习】

    选择打赏方式

????????bet365体育投注188工作学习中难免会遇到保存有宏的文件,想点开查看宏是否存在病毒或者是单纯的想学习中间的代码,却发现模块被加密,只需要新建一个工作表,在vba编辑器中加入以下代码到对象里面(不要加到模块里面),点击运行宏选择加密的文件即可解除工作表中的宏密码。

完整代码:


Sub VBAPassword()
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
Get #1, CMGs - 2, St
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


?

收录状态:[百度已收录]
版权声明:若无特殊注明,本文皆为《 铜山小皇帝 》原创,转载请保留文章出处。
本文链接:vba密码破解宏模块代码【已失效,仅供学习】 http://www.excelbiji.com/vba/4.html
正文到此结束

热门推荐

发表吐槽

你肿么看?

你还可以输入 250 / 250 个字

?嘻嘻 大笑 可怜 吃惊 害羞 调皮 鄙视 示爱 大哭 开心 偷笑 嘘 奸笑 委屈 抱抱 愤怒 思考 日了狗 胜利 不高兴 阴险 乖 酷 滑稽

评论信息框

吃奶的力气提交吐槽中...


既然没有吐槽,那就赶紧抢沙发吧!