Excel文档保护密码破解方法.doc

《Excel文档保护密码破解方法.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、Excel文档保护密码破解方法1、运行Excel，打开有密码保护的文档；点击工具菜单，选择宏——visualbasic编辑器，如下图1：（图1）2、如未出现如下图2，点击“工程资源管理器图标”，双击sheet1，出现图3所示的编辑框，将代码复制到编辑框中；图2（图3）代码：SubPasswordBreaker()DimiAsInteger,jAsInteger,kAsIntegerDimlAsInteger,mAsInteger,nAsIntegerDimi1AsInteger,i2AsIntege

2、r,i3AsIntegerDimi4AsInteger,i5AsInteger,i6AsIntegerOnErrorResumeNextFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126ActiveSheet.UnprotectChr(i)&Chr(j)&Ch

3、r(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)IfActiveSheet.ProtectContents=FalseThenMsgBox"Oneusablepasswordis"&Chr(i)&Chr(j)&_Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)ActiveWorkbook.Shee

4、ts(1).SelectRange("a1").FormulaR1C1=Chr(i)&Chr(j)&_Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)ExitSubEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextEndSub3、点击图4中箭头所指图标，运行宏；等上几秒或几分，就会出现一个对话框，如图5所示：如果出现公式出

5、错提示，请将代码先粘贴到其他文档中，再复制粘贴即可。（图5）现在的密码就被破解了。A1单元格出现密码需要删除还原。