Excel密码保护的解除方法与解除原理.docx

资源描述

Excel密码保护的解除方法与解除原理.docx

《Excel密码保护的解除方法与解除原理.docx》由会员分享，可在线阅读，更多相关《Excel密码保护的解除方法与解除原理.docx（30页珍藏版）》请在冰豆网上搜索。

Excel密码保护的解除方法与解除原理.docx

Excel密码保护的解除方法与解除原理

来源：

天极网发布时间：

2009-07-27 [评论条]

[anerroroccurredwhileprocessingthisdirective]

　　Excel弹出“您试图更改的单元格或图表受保护，因而是只读的。

若要修改受保护单元格或图表，请先使用‘撤消工作表保护’命令（在‘审阅’选项卡的‘更改’组中）来取消保护。

可能会提示您输入密码。

”窗口，如图1。

　　出现这种情况，应该怎么解决呢？

经过研究，找到了两种破解Excel工作表保护码的方法。

　　一、VBA宏代码破解法：

　　第一步：

打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“MicrosoftOffice安全选项”窗口，选择其中的“启用此内容”，“确定”退出（图2）；

　　再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：

PasswordBreaker（图3），点击“确定”退出；

　　第二步：

再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisualBasic”编辑器，用如下内容替换右侧窗口中的所有代码：

　　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

　　EndSub

　　第三步：

再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了（图4）。

　　第四步：

切换“审阅”选项卡，点击“撤消工作表保护”，然后输入密码即可解除锁定。

教你用OPRemove破解Word与Excel密码

来源：

eNet 发布时间：

2009-07-27 [评论条]

[anerroroccurredwhileprocessingthisdirective]

经常和办公软件打交道的人肯定知道，如果把加密文档的密码忘了就相当于将这个文件报废了,那将会是一件多么可怕的事情。

但人类是万能的，今天就为大家介绍一款软件，可以松破解Word和Excel密码，解您后顾之忧。

这个工具就是OfficePasswordRemover。

它可以在很短的时间内破解Word和Excel文档的密码，经过测试最多不超过5秒。

使用本软件时需要连接到Internet，因为要给该软件的服务器发送数据并解密。

不过大家可以放心，本软件不会泄露任何个人隐私。

使用方法：

首先运行解压好的OPRemove.exe这个程序，打开程序后可以看到中间文本框后面有个类似文件夹的按钮。

点击它浏览打开要破解的文档。

选择后出现下图的画面，点击移除密码。

呆几秒钟后便出现“该文档已经被成功破解”，点确定即可，这时候就大功告成了。

在这里要注意的是，破解后的文章名字会有点变化，加了“DEMO”这四个字母，翻译过来就是示范的意思，不必在意，重命名去掉就可以了。

另外，为了防止别人用该软件，也可以给它设置密码，打开软件后，点文件—设置访问密码，输两遍就OK了。

下次运行时就出现提示要求输入运行程序的密码。

软件名称：

OfficePasswordRemoverV1.0.0.2

破解excel保护密码的宏代码

来源：

CFAN 发布时间：

2009-07-27 [评论条]

[anerroroccurredwhileprocessingthisdirective]

我有个excel文档的保护密码忘记了，是保护密码不是打开密码！

现在编辑不了啦！

在网上搜了很久，都没有，OfficePasswordRemover这个我有，AdvancedOfficePasswordRecovery这个我也有，但都不能破解保护密码，但最后终于被我找到了。

使用方法:

1.工具---宏---录制新宏---（随便起个名字）---确定

2.停止录制

3.工具---宏---宏---（找到刚才命名那个宏）---编辑---（将上面的代码一个不剩复制粘贴）---退出

4.工具---宏---宏---执行刚才的宏

剩下来动作就是---咖啡（或香烟）---饮完（抽完）----结果出来了--成功!

可以进入了

如果你想下次又有藉口饮咖啡（或抽香烟）,可以不另存EXCEL文档

OptionExplicit

PublicSubAllInternalPasswords（）

'Breaksworksheetandworkbookstructurepasswords.BobMcCormick

'probablyoriginatorofbasecodealgorithmmodifiedforcoverage

'ofworkbookstructure/windowspasswordsandformultiplepasswords

'NormanHarkerandJEMcGimpsey27-Dec-2002（Version1.1）

'Modified2003-Apr-04byJEM:

Allmsgstoconstants,and

'eliminateoneExitSub（Version1.1.1）

'RevealshashedpasswordsNOToriginalpasswords

ConstDBLSPACEAsString=vbNewLine&vbNewLine

ConstAUTHORSAsString=DBLSPACE&vbNewLine&_

"AdaptedfromBobMcCormickbasecodeby"&_

"NormanHarkerandJEMcGimpsey"

ConstHEADERAsString="AllInternalPasswordsUserMessage"

ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04"

ConstREPBACKAsString=DBLSPACE&"Pleasereportfailure"&_

"tothemicrosoft.public.excel.programmingnewsgroup."

ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_

"nowbefreeofallpasswordprotection,somakesureyou:

"&_

DBLSPACE&"SAVEITNOW!

"&DBLSPACE&"andalso"&_

DBLSPACE&"BACKUP!

BACKUP!

"&_

DBLSPACE&"Also,rememberthatthepasswordwas"&_

"putthereforareason.Don'tstuffupcrucialformulas"&_

"ordata."&DBLSPACE&"Accessanduseofsomedata"&_

"maybeanoffense.Ifindoubt,don't."

ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_

"sheets,orworkbookstructureorwindows."&AUTHORS&VERSION

ConstMSGNOPWORDS2AsString="Therewasnoprotectionto"&_

"workbookstructureorwindows."&DBLSPACE&_

"Proceedingtounprotectsheets."&AUTHORS&VERSION

ConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_

"willtakesometime."&DBLSPACE&"Amountoftime"&_

"dependsonhowmanydifferentpasswords,the"&_

"passwords,andyourcomputer'sspecification."&DBLSPACE&_

"Justbepatient!

Makemeacoffee!

"&AUTHORS&VERSION

ConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_

"StructureorWindowsPasswordset."&DBLSPACE&_

"Thepasswordfoundwas:

"&DBLSPACE&"$$"&DBLSPACE&_

"Noteitdownforpotentialfutureuseinotherworkbooksby"&_

"thesamepersonwhosetthispassword."&DBLSPACE&_

"Nowtocheckandclearotherpasswords."&AUTHORS&VERSION

ConstMSGPWORDFOUND2AsString="YouhadaWorksheet"&_

"passwordset."&DBLSPACE&"Thepasswordfoundwas:

"&_

DBLSPACE&"$$"&DBLSPACE&"Noteitdownforpotential"&_

"futureuseinotherworkbooksbysamepersonwho"&_

"setthispassword."&DBLSPACE&"Nowtocheckandclear"&_

"otherpasswords."&AUTHORS&VERSION

ConstMSGONLYONEAsString="Onlystructure/windows"&_

"protectedwiththepasswordthatwasjustfound."&_

ALLCLEAR&AUTHORS&VERSION&REPBACK

Dimw1AsWorksheet,w2AsWorksheet

DimiAsInteger,jAsInteger,kAsInteger,lAsInteger

DimmAsInteger,nAsInteger,i1AsInteger,i2AsInteger

Dimi3AsInteger,i4AsInteger,i5AsInteger,i6AsInteger

DimPWord1AsString

DimShTagAsBoolean,WinTagAsBoolean

Application.ScreenUpdating=False

WithActiveWorkbook

WinTag=.ProtectStructureOr.ProtectWindows

EndWith

ShTag=False

ForEachw1InWorksheets

ShTag=ShTagOrw1.ProtectContents

Nextw1

IfNotShTagAndNotWinTagThen

MsgBoxMSGNOPWORDS1,vbInformation,HEADER

ExitSub

EndIf

MsgBoxMSGTAKETIME,vbInformation,HEADER

IfNotWinTagThen

MsgBoxMSGNOPWORDS2,vbInformation,HEADER

Else

OnErrorResumeNext

Do'dummydoloop

Fori=65To66:

Forj=65To66:

Fork=65To66

Forl=65To66:

Form=65To66:

Fori1=65To66

Fori2=65To66:

Fori3=65To66:

Fori4=65To66

Fori5=65To66:

Fori6=65To66:

Forn=32To126

WithActiveWorkbook

.UnprotectChr（i）&Chr（j）&Chr（k）&_

Chr（l）&Chr（m）&Chr（i1）&Chr（i2）&_

Chr（i3）&Chr（i4）&Chr（i5）&Chr（i6）&Chr（n）

If.ProtectStructure=FalseAnd_

.ProtectWindows=FalseThen

PWord1=Chr（i）&Chr（j）&Chr（k）&Chr（l）&_

Chr（m）&Chr（i1）&Chr（i2）&Chr（i3）&_

Chr（i4）&Chr（i5）&Chr（i6）&Chr（n）

MsgBoxApplication.Substitute（MSGPWORDFOUND1,_

"$$",PWord1）,vbInformation,HEADER

ExitDo'Bypassallfor...nexts

EndIf

EndWith

LoopUntilTrue

OnErrorGoTo0

EndIf

IfWinTagAndNotShTagThen

MsgBoxMSGONLYONE,vbInformation,HEADER

ExitSub

EndIf

OnErrorResumeNext

ForEachw1InWorksheets

'AttemptclearancewithPWord1

w1.UnprotectPWord1

Nextw1

OnErrorGoTo0

ShTag=False

ForEachw1InWorksheets

'ChecksforallclearShTagtriggeredto1ifnot.

ShTag=ShTagOrw1.ProtectContents

Nextw1

IfShTagThen

ForEachw1InWorksheets

Withw1

If.ProtectContentsThen

OnErrorResumeNext

Do'Dummydoloop

Fori=65To66:

Forj=65To66:

Fork=65To66

Forl=65To66:

Form=65To66:

Fori1=65To66

Fori2=65To66:

Fori3=65To66:

Fori4=65To66

Fori5=65To66:

Fori6=65To66:

Forn=32To126

.UnprotectChr（i）&Chr（j）&Chr（k）&_

Chr（l）&Chr（m）&Chr（i1）&Chr（i2）&Chr（i3）&_

Chr（i4）&Chr（i5）&Chr（i6）&Chr（n）

IfNot.ProtectContentsThen

PWord1=Chr（i）&Chr（j）&Chr（k）&Chr（l）&_

Chr（m）&Chr（i1）&Chr（i2）&Chr（i3）&_

Chr（i4）&Chr（i5）&Chr（i6）&Chr（n）

MsgBoxApplication.Substitute（MSGPWORDFOUND2,_

"$$",PWord1）,vbInformation,HEADER

'leveragefindingPwordbytryingonothersheets

ForEachw2InWorksheets

w2.UnprotectPWord1

Nextw2

ExitDo'Bypassallfor...nexts

EndIf

LoopUntilTrue

OnErrorGoTo0

EndIf

EndWith

Nextw1

EndIf

MsgBoxALLCLEAR&AUTHORS&VERSION&REPBACK,vbInformation,HEADER

EndSub

关于Word/Excel的密码安全

来源：

小路工作室发布时间：

2009-07-27 [评论条]

[anerroroccurredwhileprocessingthisdirective]

给Word/Excle加密码，可能大家都知道如何做，可是你知道Word/Excel默认的加密方法是什么吗？

默认的加密方法安全又怎样吗？

看下面的图片：

打开安全性选项：

我想大多数的朋友都会在这里直接输入密码，然后确认、完成！

！

看看它默认的加密类型吧：

看到了吧，Office97/2000兼容！

现在网上可以找到一个比较流行的破解Office密码的OfficePasswordRemover（另有一个比较常用的：

AccentOfficePasswordRecovery）小软件，这个软件很小，但是对使用Office97/2000兼容模式加密的文件，却几乎做到了秒杀的程度。

我自己下载过这个软件试过，给一个文档设相同的密码、不同加密类型的情况下，Office97/2000兼容模式是相当容易破解的，而如果是使用其它的加密方法：

比如随便选择一个密钥长度为128的加密类型，当使用这个软件破解软件时就会变得很难、很难……

所以，如果你很在意你文档的安全性，如果你不想自己已经加过密码的文档不轻易被别人打开，那么就在你设密码的时候多点三下鼠标吧（我试过，三下，一下都不多！

），这三下鼠标虽然不能保证除你之外的所有人都打无法打开文件，但是它却能让至少90%试图打开这个文件的人，无法完成他的“任务”。

当然，如果你把密码设为“123456”，那么我也就没有什么好说的了……:

）

也不管有没有用了，贴出来大家如果能用到就用吧！

穷举破解EXCEL、WORD文档密码

来源：

CFAN 发布时间：

2009-07-27 [评论条]

[anerroroccurredwhileprocessingthisdirective]

摘要：

本文讨论了如何使用VB编程，通过穷举法解除EXCEL文档和WORD文档的密码。

并在破解过程中加入了中断，以方便用户随时中断破解过程。

关键字：

穷举法、解密、EXCEL文档、WORD文档、密码

Excel和Word提供了多种方法限制访问用户文档，以免XX者的查看和更改。

但在信息化的今天，用户需要记忆的密码太多，一旦密码丢失，用户将无法打开或访问该文档，给用户造成很大的损失。

能否借助计算机的高速运行，解开密码呢？

通过尝试，笔者认为：

在无法弄清Excel和Word加密算法的情况下，利用穷举法尝试解密文档，是解密唯一的选择。

1。

实

展开阅读全文