2024年5月11日发(作者：)

希望对大家有所帮助，多谢您的浏览！

1. 将你要破解的Excel文件关闭，切记一定要关闭呀！然后新建一个Excel文

件

2. 打开新建的这个Excel，按下alt+F11，打开vb界面，新建一个模块，如图

所示

授课：XXX

希望对大家有所帮助，多谢您的浏览！

3. 将代码复制到这个模块中，代码如下：

Private Sub VBAPassword() '你要解保护的Excel文件路径

Filename = nFilename("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

授课：XXX