欢迎来到天天文库
浏览记录
ID:56703797
大小:139.50 KB
页数:3页
时间:2020-07-05
《宏密码破解方法.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、VBA宏代码破解法: 第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“MicrosoftOffice安全选项”窗口,选择其中的“启用此内容”,“确定”退出(图2); 再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:PasswordBreaker(图3),点击“确定”退出; 第二步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“编辑”,打开“MicrosoftVisualBasi
2、c”编辑器,用如下内容替换右侧窗口中的所有代码: SubPasswordBreaker() DimiAsInteger,jAsInteger,kAsInteger DimlAsInteger,mAsInteger,nAsInteger Dimi1AsInteger,i2AsInteger,i3AsInteger Dimi4AsInteger,i5AsInteger,i6AsInteger OnErrorResumeNext Fori=65To66:Forj=65To66:Fork=65To66
3、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.ProtectC
4、ontents=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)&_
5、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)。 第四步:切换“审阅”选项卡,点击“撤消工作表保护”,然后输入密码即可解除锁定。
此文档下载收益归作者所有