Excel工作表保护密码.doc

Excel工作表保护密码.doc
Excel工作表保护密码 Excel工作表保护密码方法: 1打开文件 2工具---宏----录制新宏---输入名字如:aa 3停止录制(这样得到一个空宏) 4工具---宏----宏,选aa,点编辑按钮 5删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧) 6关闭编辑窗口 7工具---宏----- 宏,选PasswordBreaker,运行,确定两次,等2分钟,再确定.OK,密码完全被你看见了!! 内容如下: SubPasswordBreaker() 　　DimiAsInteger,jAsInteger,kAsInteger 　　DimlAsInteger,mAsInteger,nAsInteger 　　Dimi1AsInteger,i2AsInteger,i3AsInteger 　　Dimi4AsInteger,i5AsInteger,i6AsInteger 　　OnErrorResumeNext 　　Fori=65To66:Forj=65To66:Fork=65To66 　　Forl=65To66:Form=65To66:Fori1=65To66 　　Fori2=65To66:Fori3=65To66:Fori4=65To66 　　Fori5=65To66:Fori6=65To66:Forn=32To126 　　ActiveSheet.UnprotectChr(i)&Chr(j)&Chr(k)&_ 　　Chr(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").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) 　　ExitSub 　　EndIf 　　Next:Next:Next:Next:Next:Next　　Next:Next:Next:Next:Next:Next 　　EndSub