excel工作表密码破解(最新整理)

1、excel 工作表密码破解一些有着重要的 excel 文件，工作表肯定会添加密码，但是有时会忘记密码，这是该如何破解呢?下面随 x 一起来看看吧。excel 破解工作表密码的步骤打开 excel 工作表。然后在 excel 表中找到视图。点开宏。然后选择录制宏。接着会弹出一个窗口，点击确定。在此点开宏，点击停止录制。然后再点击宏，弹出窗口点击编辑。然后点击模板 1，并清空右边红框里的代码，如下图。然后把破解代码复制粘贴进入空白处(破解代码 x 将在文章最底部分享给大家)。然后在打开查看宏，点击执行破解代码。会弹出一个框，是英文的，看不懂没关系，点击确定，解密需要一段时间。12 破解代码:pub

2、lic sub allinternalpasswords() breaks worksheet and workbookstructure passwords. bob mccormick probably originator of basecode algorithm modified for coverage of workbook structure / windowspasswords and for multiple passwords norman harker and je mcgimpsey 27-dec-20xx (version ) modified 20xx-apr-0

3、4 by jem:all msgs to constants, and eliminate one exit sub (version ) reveals hashed passwords notoriginal passwordsconst dblspace as string = vbnewline & vbnewlineconst authors as string =dblspace & vbnewline & _adapted from bob mccormick basecode by & _norman harker and je mcgimpsey const header a

4、s string =allinternalpasswords user message const version as string =dblspace & version20xx-apr-04 const repback as string =dblspace & please report failure &_to thenewsgroup.const allclear as string =dblspace & the workbook should & _ now be free of all passwordprotection, so make sure you: & _ dbl

5、space & save it now! &dblspace & and also & _dblspace & backup!, backup!, backup! & _dblspace & also, remember that the password was & _put there for a reason. dont stuff up crucial formulas & _or data. & dblspace & access and use of some data & _may be an offense. if in doubt, dont.const msgnopword

6、s1 as string = there were no passwords on & _sheets, or workbook structure or windows. & authors & versionconst msgnopwords2 as string = there was no protection to & _workbook structure or windows. & dblspace & _proceeding to unprotect sheets. & authors & versionconst msgtaketime as string = after p

7、ressing ok button this & _will take some time. & dblspace & amount of time & _depends on how many different passwords, the & _passwords, and your computers specification. & dblspace & _just be patient! make me a coffee! & authors & versionconst msgpwordfound1 as string = you had a worksheet & _struc

8、ture or windows password set. & dblspace & _the password found was: & dblspace & & dblspace & _note it down for potential future use in other workbooks by &_the same person who set this password. & dblspace & _now to check and clear other passwords. & authors & versionconst msgpwordfound2 as string

9、= you had a worksheet & _password set. & dblspace & the password found was: & _dblspace & & dblspace & noteit down for potential & _future use in other workbooks bysame person who & _set this password. & dblspace & now to check and clear & _other passwords. & authors & versionconst msgonlyone as str

10、ing = only structure / windows & _protected with the password that was just found. & _allclear & authors & version & repbackdim 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

11、as integer, i5 as integer, i6 as integerdim pword1 as stringdim shtag as boolean, wintag as boolean= falsewith activeworkbookwintag = .protectstructure or.protectwindows end with shtag = falsefor each w1 in worksheets shtag = shtag ornext w1if not shtag and not wintag then msgbox msgnopwords1,vbinfo

12、rmation, header exit subend ifmsgbox msgtaketime, vbinformation, headerif not wintag then msgbox msgnopwords2,vbinformation, header elseon error resume next do dummy do loopfori=65to66: for j =65 to66:fork=65to66forl=65to66: for m =65 to66:fori1=65to66fori2=65to66: for i3= 65to66:fori4=65to66fori5=6

13、5to66: for i6= 65to66:forn = 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 then pword1 = chr(i) & chr(j) & chr(k)& chr(l) & _chr(m) & chr

14、(i1) & chr(i2) & chr(i3) & _chr(i4) & chr(i5) & chr(i6) & chr(n)msgbox (msgpwordfound1, _, pword1), vbinformation, headerexit do bypass all for.nexts end ifend withnext: next: next: next: next:nextnext: next: next: next: next:nextloop until true on error goto 0 end ifif wintag and not shtag then msg

15、box msgonlyone, vbinformation,headerexit sub end ifon error resume nextfor each w1 in worksheetsattempt clearance with pword1 pword1next w1on error goto 0 shtag = falsefor each w1 in worksheets checks for all clear shtagtriggered to 1 if not.shtag = shtag or next w1if shtag thenfor each w1 in worksh

16、eets with w1if .protectcontents then on 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 to66:fori1=65to66fori2=65to66: for i3= 65 to66:fori4=65to66for i5 = 65 to 66: for i6 = 65 to 66: for n = 32 to 126.unprotect chr(i) & chr(j) & chr

17、(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 (msgpwordfound2, _, pword1), vbinformation, headerl

18、everage finding pword by trying on other sheetsfor each w2 in worksheets pword1next w2exit do bypass all for.nexts end ifnext: next: next: next: next:nextnext: next: next: next: next:nextloop until true on error goto 0 end ifend with next w1 end ifmsgbox allclear & authors &version & repback, vbinformation, headerend subexcel 破解工作表密码“”“”at the end, xiao bian gives you a passage. minand once said, people who learn to learn ar