解除EXCEL工作表锁定.doc

《解除EXCEL工作表锁定.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、解除2007版EXCEL工作表锁定（2003版方法也雷同）第一步，打开EXCEL第二步，点击标题视图——接着点击宏第三步，点击录制宏第四步，当弹出框体后按确定第五步，再次点击宏——停止录制第六步，再次点击宏——查看宏第七步，弹出框体后——点击编辑第八步，把以下代码复制进去——接着关闭就可以复制以下代码SubPasswordBreaker()DimiAsInteger,jAsInteger,kAsIntegerDimlAsInteger,mAsInteger,nAsIntegerDimi1AsIntege

2、r,i2AsInteger,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)

3、&Chr(j)&Chr(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)ActiveWorkb

4、ook.Sheets(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:NextEndSub第九步，再次点击宏——查看宏——点击执行第九步，再次点击宏——查看宏——点击执行——等

5、1-2分钟得到密码如下图：记住密码大功告成，可以修改了！