两招破解工作薄保护密码

前言

上次老崔讲了工作表保护的破解方法，今天履行昨天的承诺，给大家一个工作薄破解的方法。

工作薄保护分窗口保护和结构保护，可以单选，也可以多选。

结构保护：将不能更改工作表的结构，即不能插入，删除，隐藏，重命名，也不可以移动或复制。

窗口保护：窗口的新建、拆分、冻结，对比查看将变成灰色。

1方法一

复制下列代码到VBA窗口

Sub 工作薄保护破解()

On Error Resume Next

Dim winpwd As Boolean

Dim ws As Worksheet

Dim P1, P2, P3, P4, P5, P6, P7, P8, P9,P10, P11, P12 As Integer

winpwd = ActiveWorkbook.ProtectStructure Or ActiveWorkbook.ProtectWindows

If winpwd Then

With ActiveWorkbook

For P1 = 65 To 66: For P2 = 65 To 66: For P3 = 65 To 66

For P4 = 65 To 66: For P5 = 65 To 66: For P6 = 65 To 66

For P7 = 65 To 66: For P8 = 65 To 66: For P9 = 65 To 66

For P10 = 65 To 66: For P11 = 65 To 66: For P12 = 32 To 126

.Unprotect Chr(P1) & Chr(P2) & Chr(P3) & _

Chr(P4) & Chr(P5) & Chr(P6) & Chr(P7) & Chr(P8) & _

Chr(P9) & Chr(P10) & Chr(P11) & Chr(P12)

If .ProtectStructure = False And .ProtectWindows = False Then

PWD = Chr(P1) & Chr(P2)& Chr(P3) & _

Chr(P4) & Chr(P5) &Chr(P6) & Chr(P7) & Chr(P8) & _

Chr(P9) & Chr(P10) &Chr(P11) & Chr(P12)

MsgBox "工作薄密码已破解，密码为"& PWD

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End With

Else

MsgBox "工作薄未设置密码"

End If

End Sub

按F5运行程序，密码保护就没有了，不过他会告诉你一个密码，这个密码可不是你原来设的密码，但是你用这个密码重新设置，用原来的密码照样可以打开，相当于原密码的副本，所以如果你动了别人的文件，请记得恢复原状。

2方法二

这个更简单

Sub 工作薄破解拷贝法()

ActiveWorkbook.Sheets.Copy

For Each sh In ActiveWorkbook.Sheets

sh.Visible = True

Next

End Sub

按F5运行，程序会将设置了工作薄保护的源文件中的所有工作表重新复制一份，另存就可以了，新的工作薄将不再有密码保护。

总结

到此为止，工作表和工作薄的保护密码已破解完毕，但是如果你忘了EXCEL的打开密码，就没有什么好办法了，不过也可以找我试试，说不定能帮到你呢？

本方法仅适用于忘记密码的情况，不可用于非法之目的。

END