Excel如何破解密码(win7如何破解电脑密码)

本教程仅供学习！请勿用作不正当用途

有时候我们会遇到excel无法编辑需要输入密码的情况，那么遇到这种问题如何解决呢？

步骤如下：

1.点击“视图”，找到【宏】，点击“查看宏”

（也可以去开发工具菜单栏找到'宏'）

2.先随便创建一个宏名，点击“创建”

3.创建后，会弹出一个vb界面，输入如下代码：（感谢大佬赐予代码）

Public Sub Password_cracking()Const DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _" Author - jnxxhzz "Const HEADER As String = "Password_cracking"Const VERSION As String = DBLSPACE & " Version 1.0"Const REPBACK As String = DBLSPACE & ""Const ZHENGLI As String = DBLSPACE & ""Const ALLCLEAR As String = DBLSPACE & "All password is clear" & DBLSPACE & "Please remember to save"Const MSGnopWORDS1 As String = "No password!"Const MSGnopWORDS2 As String = "No password!"Const MSGTAKETIME As String = "This will take some time,please wait for a while" & DBLSPACE & "Press next to start"Const MSGPWORDFOUND1 As String = "Password is : " & DBLSPACE & "$" & DBLSPACE & _"If the file worksheet has a different password,it will search for the next set of passwords and release"Const MSGPWORDFOUND2 As String = "Password is : " & DBLSPACE & "$" & DBLSPACE & _"If the file worksheet has a different password,it will search for the next set of passwords and release"Const MSGONLYONE As String = ""Dim w1 As Worksheet,w2 As WorksheetDim i As Integer,j As Integer,k As Integer,l As IntegerDim m As Integer,n As Integer,i1 As Integer,i2 As IntegerDim i3 As Integer,i4 As Integer,i5 As Integer,i6 As IntegerDim PWord1 As StringDim ShTag As Boolean,WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectwindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGnopWORDS1,vbinformation,HEADERExit SubEnd IfMsgBox MSGTAKETIME,HEADERIf Not WinTag ThenElSEOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If .ProtectStructure = False And _.Protectwindows = False ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND1,_"$",PWord1),HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE,HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If Not .ProtectContents ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND2,HEADER'Leverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI,HEADEREnd Sub