破解EXCEL中工作表保护之密码.doc

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

1、如何破解EXCEL中工作表保护之密码？如题，本人以前使用了表格保护，现忘记密码，求助高手？好象可以用软件进行破解的。祝新年愉快！[献花][扔泥巴]百年不遇的金融风暴……不容易啊！顶端回复引用分享1楼 发表于:2009-01-1016:49只看该作者

2、小中大图片：Excel弹出“您试图更改的单元格或图表受保护，因而是只读的。若要修改受保护单元格或图表，请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。”窗口，如图1。[献花][扔泥巴]百年不遇的金融风暴……不容易啊！顶端回复引用分享2楼 发表于:2009-01-1016:50只

3、看该作者

4、小中大4/4图片：出现这种情况，应该怎么解决呢？经过研究，找到了两种破解Excel工作表保护码的方法。VBA宏代码破解法：第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“MicrosoftOffice安全选项”窗口，选择其中的“启用此内容”，“确定”退出(图2)；[献花][扔泥巴]百年不遇的金融风暴……不容易啊！顶端回复引用分享3楼 发表于:2009-01-1016:50只看该作者

5、小中大图片：4/4再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBrea

6、ker(图3)，点击“确定”退出；[献花][扔泥巴]百年不遇的金融风暴……不容易啊！顶端回复引用分享4楼 发表于:2009-01-1016:51只看该作者

7、小中大第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisualBasic”编辑器，用如下内容替换右侧窗口中的所有代码：SubPasswordBreaker()　　DimiAsInteger,jAsInteger,kAsInteger　　DimlAsInteger,mAsInteger,nAsInteger　　Dimi1AsInteger,i

8、2AsInteger,i3AsInteger　　Dimi4AsInteger,i5AsInteger,i6AsInteger　　OnErrorResumeNext　　Fori=65To66:Forj=65To66:Fork=65To66　　Forl=65To66:Form=65To66:Fori1=65To66　　Fori2=65To66:Fori3=65To66:Fori4=65To4/466　　Fori5=65To66:Fori6=65To66:Forn=32To126　　ActiveSheet.UnprotectChr(i)&Chr(j)&Chr(k)&_　　Chr

9、(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_　　Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)　　IfActiveSheet.ProtectContents=FalseThen　　MsgBox"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.Sheets(1).Select　　Range("a1").FormulaR

10、1C1=Chr(i)&Chr(j)&_　　Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_　　Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)　　ExitSub　　EndIf　　Next:Next:Next:Next:Next:Next　　Next:Next:Next:Next:Next:Next　　EndSub第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了(图4)。4/4