欢迎来到天天文库
浏览记录
ID:26396545
大小:77.53 KB
页数:4页
时间:2018-11-26
《excel中如何破解“撤销工作表保护密码”并获取原始密码》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、Excel中如何破解“撤销工作表保护密码”并获取原始密码一、保护工作表的方法1、全选定工作表右击[设置单元格格式]找到[保护]将[锁定]和[隐藏]两个的勾去掉;2、将要保护的工作表单元格选定右击[设置单元格格式]找到[保护]将[锁定]和[隐藏]两个的勾打上;3、点菜单栏的[工具]中的[保护]里的[保护工作表]将[保护工作表及锁定的单元内容]打上勾,下选允许此工作表的所有用户[选定未锁定的单元格]打上勾二、Excel工作表保护密码破解方法(如果Excel文件的打开密码忘记了,且密码是 6位数以内的数字,可用以下步骤解开(关掉所有程序,为了速度):新开一Exce
2、l,同时按Alt和F11,进入VBA界面,点菜单上的插入,模块,在新出来的窗口粘贴一下代码:然后在此界面直接按F5运行此宏,选择文件,等啊等(看密码长度了)1、打开您需要破解保护密码的Excel文件;2、依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:aa;3、停止录制(这样得到一个空宏);4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮;5、删除窗口中的所有字符(只有几个),替换为下面的内容;从横线下开始复制------------------------------------------------------------
3、------------------------------OptionExplicitPublicSubAllInternalPasswords()'Breaksworksheetandworkbookstructurepasswords.BobMcCormick'probablyoriginatorofbasecodealgorithmmodifiedforcoverage'ofworkbookstructure/windowspasswordsandformultiplepasswords''NormanHarkerandJEMcGimpsey27-D
4、ec-2002(Version1.1)'Modified2003-Apr-04byJEM:Allmsgstoconstants,and'eliminateoneExitSub(Version1.1.1)'RevealshashedpasswordsNOToriginalpasswordsConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_"AdaptedfromBobMcCormickbasecodeby"&_"NormanHarkerandJEM
5、cGimpsey"ConstHEADERAsString="AllInternalPasswordsUserMessage"ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04"ConstREPBACKAsString=DBLSPACE&"Pleasereportfailure"&_"tothemicrosoft.public.excel.programmingnewsgroup."ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_"nowbefre
6、eofallpasswordprotection,somakesureyou:"&_DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_DBLSPACE&"BACKUP!,BACKUP!!,BACKUP!!!"&_DBLSPACE&"Also,rememberthatthepasswordwas"&_"putthereforareason.Don'tstuffupcrucialformulas"&_"ordata."&DBLSPACE&"Accessanduseofsomedata"&_"maybeanoffense.Ifin
7、doubt,don't."ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_"sheets,orworkbookstructureorwindows."&AUTHORS&VERSIONConstMSGNOPWORDS2AsString="Therewasnoprotectionto"&_"workbookstructureorwindows."&DBLSPACE&_"Proceedingtounprotectsheets."&AUTHORS&VERSIONConstMSGTAKETIMEAsString=
8、"AfterpressingOKbuttonthis
此文档下载收益归作者所有