excel表格怎么解除保護

1、竭誠為您提供優(yōu)質文檔 /雙擊可除第1頁共 8 頁excel 表格怎么解除保護篇一：excel 表格密碼保護的解除方法excel 表格密碼保護的解除方法表格受密碼保護時，我們修改數(shù)據(jù)excel 彈出“您試圖更改的單元格或圖表受保護，因而是只讀的。若要修改受保護單元格或圖表，請先使用撤消工作表保護 命令(在審閱選項卡的更改組中)來取消保護?？赡軙崾灸?入密碼。這時候我們可以用Vba 宏代碼破解法來破解表格保護密碼：第一步：打開該文件，先解除默認的“宏禁用”狀 態(tài)，方法是點擊工具欄下的“選項”狀態(tài)按鈕，打開“ microsoftoffice安全選項”窗口，選擇其中的“啟用此內容”,“確定”。再切

2、換到“視圖”選項卡，點擊“宏”-“錄制宏”，出現(xiàn)“錄制新宏”窗口，在“宏名”定義一個名稱為：passwordbreaker，點擊“確定” 退出；第二步：再點擊“宏”“查看宏”，選擇“宏名” 下的“passwordbreaker ”并點擊“編輯”，打開“ microsoftVisualbasic”編輯器，用如下內容替換右側窗口中的所有代碼：竭誠為您提供優(yōu)質文檔 /雙擊可除第2頁共 8 頁subpasswordbreaker()第3頁共 8 頁dimiasinteger,jasinteger,kasintegerdimlasinteger,masinteger,nasintegerdimi1asi

3、nteger,i2asinteger,i3asintegerdimi4asinteger,i5asinteger,i6asinteger onerrorResumenextFori=65to66:Forj=65to66:Fork=65to66Forl=65to66:Form=65to66:Fori1=65to66Fori2=65to66:Fori3=65to66:Fori4=65to66Fori5=65to66:Fori6=65to66:Forn=32to126activesheet.unprotectchr(i)breaksworksheetandworkbookstructurepassw

4、ords.bobmccormickprobablyoriginatorofbasecodealgorithmmodifiedforcoverageofworkbookstructure/windowspasswordsandformultiplepasswordsnormanharkerandjemcgimpsey27-dec-20 xx(Version1.1)modified20 xx-apr-04byjem:allmsgstoconstants,andeliminateoneexitsub(Version1.1.1)Revealshashedpasswordsnotoriginalpass

5、wordsconstdblspaceasstring=vbnewlinet.第4頁共 8 頁constmsgnopwoRds1asstring=therewerenopasswordsonsspecification.dummydoloopFori=65to66:Forj=65to66:Fork=65to66Forl=65to66:Form=65to66:Fori1=65to66Fori2=65to66:Fori3=65to66:Fori4=65to66Fori5=65to66:Fori6=65to66:Forn=32to126withac tiveworkbook.unprotectchr(

6、i)bypassallfornextsendifendwithnext:next:next:next:next:nextnext:next:next:next:next:nextloopuntiltrueonerrorgoto0endififwintagandnotshtagthenmsgboxmsgonlyone,vbinformation,headeRexitsubendifonerrorResumenextForeachw1inworksheetsattemptclearancewithpword1w1.unprotectpword1nextw1onerrorgoto0shtag=Fal

7、seForeachw1inworksheetschecksforallclearshtagtriggeredto1ifnot.shtag=tectcontentsnextwl第5頁共 8 頁ifshtagthenFtectcontentsthenonerrorResumenextdodummydolooPFori=65to66:Forj=65to66:Fork=65to66Forl=65to66:Form=65to66:Fori1=65to66Fori2=65to66:Fori3=65to66:Fori4=65to66.unprotectchr(i)leveragefindingpwordbytryingonothersheetsForeachw2inworksheetsw2.unprotectpword1ne xtw2exitdobypassallfornextsendifnext:next:next:next:next:nextnext:next:next:next:next:nex