查看Excel的宏模块代码

遇到需要输⼊Excel VBA⼯程密码才能打开代码的时候，可以通过宏命令破解的⽅式解除锁定。具体⽅法为：

1.将代破解的excel⽂件另存为2003格式（.xls）；2.新建Excel，在宏编辑窗⼝，增加模块，输⼊如下代码：

Private Sub VBAPassword() '你要解保护的Excel⽂件路径（把要破解的excel保存为2003-97 xls）

Filename = Application.GetOpenFilename(\"Excel⽂件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt\破解\")If Dir(Filename) = \"\" Then

MsgBox \"没找到相关⽂件,清重新设置。\"Exit SubElse

FileCopy Filename, Filename & \".bak\" '备份⽂件。End If

Dim GetData As String * 5

Open Filename For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1, i, GetData

If GetData = \"CMG=\"\"\" Then CMGs = i

If GetData = \"[Host\" Then DPBo = i - 2: Exit ForNext

If CMGs = 0 Then

MsgBox \"请先对VBA编码设置⼀个保护密码...\提⽰\"Exit SubEnd If

Dim St As String * 2Dim s20 As String * 1

'取得⼀个0D0A⼗六进制字串Get #1, CMGs - 2, St'取得⼀个20⼗六制字串Get #1, DPBo + 16, s20'替换加密部份机码

For i = CMGs To DPBo Step 2Put #1, i, StNext

'加⼊不配对符号

If (DPBo - CMGs) Mod 2 <> 0 ThenPut #1, DPBo + 1, s20End If

MsgBox \"⽂件解密成功......\提⽰\"Close #1End Sub

　　3. 运⾏上述代码，在弹出的⽂件窗⼝路径中选择第⼀步另存为的.xls⽂件。此时密码已经破解。