如何破解<em>excel</em>宏的密码-excel 宏加密,破解excel宏加密

新建一个文件，
打开VBA编辑器。
新建一个模块。
输入以下代码。
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlsm）,*.xls;*.xla;*.xlsm", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False
End If
End Sub
'设置VBA编码保护
Sub SetProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla& *.xlsm）,*.xls;*.xla;*.xlsm", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, True
End If
End 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

'替换加e69da5e6ba90e799bee5baa6e79fa5e98193333密部份机码
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 #1
End Function
保存后打开。

ALT+F8运行宏。
按要求破解就是了。
十有八九能破的。

• 1、我新建一个excel文件（.xlsx格式的）来测试破解过程，其它文件可以参考，但最好要备份原来的文件,设置工作表、工作薄为密百码保护，保存后

• 2、打开电脑上的压缩度软件，然后在菜单里选择打开压缩包，进入excel文件所在的目录，按图2所示内，找到excel文件，然后打开,打开后的界面如下图3所示

• 3、下面介绍一下删除工作薄的密码，如下图红色箭头所指的文件，用内部阅容读器打开

• 4、搜索，打开搜索界面，搜索“workbookProtection”，如下图所示，把该标签的内容全部删除，删除后如图2所示

• 5、保存修改到压缩，如图2所示

• 6、下面介绍一下删除工作表的密码，如下图红色箭头所指的文件，用内部阅读器打开,打下面的文件

• 7、打开后，搜索“sheetProtection ”，删除整个标签的内容，保存到压缩包

• 8

  8、关掉压缩包，重新打开那个测试的excel文件，可以看到密码保护已经没有了