EXCEL工作表保护解密方法

《EXCEL工作表保护解密方法》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、EXCEL工作表保护解密方法1、新建一个EXCEL文件“B00K1”,在工具栏空白位置,任意右击，选择VisualBasic项,弹出VisualBasic工具栏:在这里任意右击，选择VisualBasic▼©VisualBasicYieb保护=1VisualBasicIA0安全…丄土］弹出公式审核绘图监视窗口VisualBasic控件工具箱三頃栏列表任务窗格审阅2、在VisualBasicI具栏中，点击“录制”按钮,弹出“录制新宏”对话框，选择“个人宏工作簿”:录制新宏KLVisualBasic▼X安全•••法辺里］宏名(M):选择个

2、人宏工作簿这项Macrol快捷键逐):Ctrl+说明@)：保存在a)::个人宏工作溥亍人宏工作薄宏由ab录制>时冲当前工作溥5——i1.点击录制按钮2.弹出录制新宏选框取消3、选择“个人宏工作簿”后按确定，弹出如下“暂停”按钮，点击停止:按停止按钮4、在VisualBasic工具栏中，点击“编辑”按钮:一Z-▼AL▼一■■■■5、点击“编辑”按钮后，弹出如下图的编辑界面:找到"VBAProject(PERSONAL.XLS)一模块一模块1(也可能是模块N-其他数字)”双击模块1—将右边代码内容清空6、复制“工作保护密码破解”代码到右边

3、框中，点保存,然后关闭“B00K1”<^licrosoftVisualBasic一FERSOBAL.XLS一[Otl码)]?竭文件①鋼指⑧视圉®插入（1）格式Q）调试迦运行©）工貝⑴外接程序①宙口址）；帮肋⑩一2.复制代码后保存3.关闭Bookl"xX©一fBiProject口丄口•赵atpwbaenxls(ATP¥B«1XLJl)[±jfuicres(FU1CRESXUL)♦I越VBAPr©j«ct(Bookl)VBATrojectCPEBSOI^XLST]""jMicro^r.ftE:：'p-1vf^"l曰2dJd块l穆块按字雄序

4、按分类序7▼lacrolzJPublicSub工作表保护窖码砚解()ConstDBLSPKCEAwString=vbN”Liiw&vbN^wLin^CoriitAUTHORSString二DBLSPACEA.vLNewLine&_"作者McCorinickJEfleGimpsey，vHEADERAsString-^AlllnternalPasswordsUserleVZRS1OMAsString二DBLSPACE&"版本Version1.1REPBACKAsString二DBLSPACEA_ZMEHGLIAsString=DBLSPA

5、CE<"ALLCLEARAsString=DBLSPACE&•该工作溥中的工fJA"注意:不襄用在不当地方>要茸重地人的劳动.二二辽作表中没育加空MSGWOPWORDS2AsString=■诩文什工作表中投离加埜;MSGTAKETIME*String=“鮮密需璧一定时间，诣耐MSGPTORDFOUKD1MString二"密码盂新爼合为川&D•作看ConstConstConstConstConxt&DBLSPACEConstMSGMOPIORDS1AsString=■邃文件ConstConstConst__.一—r■如果该文件工作表有不

6、同密码'将攪索下一姐密码井修改港除ConstMSGPTORDF01JKD2AsStrin="毎;码重斬组合为："&D•如爰该文件工作表育不同密码，下一组巒码并解际*ConstMSGONLYOMEAsString二’确保为唯一的厂DinDi

7、wlProtectCont^ntsKaxtwlI£NotShT・gAndNotfinT«.gThenRsgBoxWSG1OPW0RDS1,vblnformation,HEADERExitSubEndIfHs«BoxISGTAKETIME,vblnform^tion.KEMER；斜小心“.将代码复制到这里OnErrorResumeNextDoduin»ydoloopwlAsWorksheet,w2AsWorksheetiAsg«r,jAwIntokAwInto1AzIntmAsInteger,nAzInteger^,i1XzInlege

8、r/i2AsII丄3AsInteger^i4AsInteger^i5AsInteger^i6AsPlordlAsStringShT铭AsBoolean.WinTagAsBooleanzJ7、运行需要解密的“EXCEL文件