破解excel密码宏程序代码

To 66: For i4 = 65 To 66РFor 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 ThenРPWord1 = 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, _Р"$$", PWord1), vbInformation, HEADERР'leverage finding Pword by trying on other sheetsРFor Each w2 In WorksheetsРw2.Unprotect PWord1РNext w2РExit Do 'Bypass all for...nextsРEnd IfРNext: Next: Next: Next: Next: NextРNext: Next: Next: Next: Next: NextРLoop Until TrueРOn Error GoTo 0РEnd IfРEnd WithРNext w1РEnd IfРMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADERРEnd Sub