excel表格怎么解除保护

1、竭诚为您提供优质文档 /双击可除第1页共 8 页excel 表格怎么解除保护篇一：excel 表格密码保护的解除方法excel 表格密码保护的解除方法表格受密码保护时，我们修改数据excel 弹出“您试图更改的单元格或图表受保护，因而是只读的。若要修改受保护单元格或图表，请先使用撤消工作表保护 命令(在审阅选项卡的更改组中)来取消保护。可能会提示您输 入密码。这时候我们可以用Vba 宏代码破解法来破解表格保护密码：第一步：打开该文件，先解除默认的“宏禁用”状 态，方法是点击工具栏下的“选项”状态按钮，打开“ microsoftoffice安全选项”窗口，选择其中的“启用此内容”,“确定”。再切

2、换到“视图”选项卡，点击“宏”-“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：passwordbreaker，点击“确定” 退出；第二步：再点击“宏”“查看宏”，选择“宏名” 下的“passwordbreaker ”并点击“编辑”，打开“ microsoftVisualbasic”编辑器，用如下内容替换右侧窗口中的所有代码：竭诚为您提供优质文档 /双击可除第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