取消工作表保护excelword版本 16页文档格式.docx

取消工作表保护excelword版本 16页文档格式.docx

《取消工作表保护excelword版本 16页文档格式.docx》由会员分享，可在线阅读，更多相关《取消工作表保护excelword版本 16页文档格式.docx（13页珍藏版）》请在冰豆网上搜索。

保存好文件后，先关掉文档再打开另存的文件，选择工具栏中的“解除文档保护”命令，不用填写密码就可以解除此文件的“文档保护功能”，而且任何信息都不会丢失。

一、解除WORD文档的保护

方法一：

插入文件法启动WORD，新建一个空白文档，执行“插入——〉文件”命令，打开“插入文件”对话框，定位到需要解除保护的文档所在的文件夹，选中相应文档，单击“插入”按钮，将加密保护的文档插入到新文档中，文档保护会被自动撤销。

（很实用，超简单）

方法二：

文件另存法打开保护的文档，执行“文件——〉另存为”命令，打开“另存为”对话框，将“文件类型”选定为“WORD97—201X&

6.0/95—RTF（*.doc）”，然后取名保存，关闭该文档，重新打开一下，执行“工具——〉取消文档保护”命令即可。

或者将文件类型另存为HTML，然后将其中的内容，复制粘贴到新建文档

中。

方法三：

写字板法启动写字板，打开保护的WORD文档，另存为WORD文档，同时可以取消对文档的保护。

但此方法可能会使文档中的图片等要素丢失。

方法四：

第三方软件法（即一般所说的解密软件）推荐PasswareKit。

二、解除EXCEL工作表的保护

复制粘贴法启动EXCEL，打开加密保护的EXCEL工作薄文档，选中相应的数据区域，执行一下“复制”操作，然后新建一个工作表，选中某单元格，执行一下“粘贴”操作，则工作表保护被撤销。

如果加密者在保护工作表时设置了让使用者不能选中工作表中的单元格，则上述方法不能实现解除保护。

可以采用以下方法：

启动金山表格201X（或其他能打开EXCEL表格的第三方软件也可以）打开相应的EXCEL文档，然后再将表格另存为EXCEL表格，那么相应的保护即被撤销。

使用第三方软件（即一般所说的解密软件）推荐PasswareKit。

篇二：

Excel中如何破解“撤销工作表保护密码”并获取原始密码

一、保护工作表的方法

1、全选定工作表右击[设置单元格格式]找到[保护]将

[锁定]和[隐藏]两个的勾去掉；

2、将要保护的工作表单元格选定右击[设置单元格格式]找到[保护]将[锁定]和[隐藏]两个的勾打上；

3、点菜单栏的[工具]中的[保护]里的[保护工作表]将[保护工作表及锁定的单元内容]打上勾，下选允许此工作表的所有用户[选定未锁定的单元格]打上勾

二、Excel工作表保护密码破解方法

1、打开您需要破解保护密码的Excel文件；

2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:

aa；

3、停止录制（这样得到一个空宏）；

4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；

5、删除窗口中的所有字符（只有几个）,替换为下面的内容；

从横线下开始复制

------------------------------------------------------------------------------------------

OptionExplicit

PublicSubAllInternalPasswords（）

'

Breaksworksheetandworkbookstructurepasswords.BobMcCormick

probablyoriginatorofbasecodealgorithmmodifiedforcoverage

ofworkbookstructure/windowspasswordsandformultiplepasswords

NormanHarkerandJEMcGimpsey27-Dec-201X（Version1.1）

Modified201X-Apr-04byJEM:

Allmsgstoconstants,and

eliminateoneExitSub（Version1.1.1）

RevealshashedpasswordsNOToriginalpasswords

ConstDBLSPACEAsString=vbNewLine&

vbNewLine

ConstAUTHORSAsString=DBLSPACE&

vbNewLine&

_

"

AdaptedfromBobMcCormickbasecodeby"

&

NormanHarkerandJEMcGimpsey"

ConstHEADERAsString="

AllInternalPasswordsUserMessage"

ConstVERSIONAsString=DBLSPACE&

"

Version1.1.1201X-Apr-04"

ConstREPBACKAsString=DBLSPACE&

Pleasereportfailure"

tothemicrosoft.public.excel.programmingnewsgroup."

ConstALLCLEARAsString=DBLSPACE&

Theworkbookshould"

nowbefreeofallpasswordprotection,somakesureyou:

DBLSPACE&

SAVEITNOW!

DBLSPACE&

andalso"

BACKUP!

BACKUP!

!

Also,rememberthatthepasswordwas"

putthereforareason.Don'

tstuffupcrucialformulas"

ordata."

Accessanduseofsomedata"

maybeanoffense.Ifindoubt,don'

t."

ConstMSGNOPWORDS1AsString="

Therewerenopasswordson"

sheets,orworkbookstructureorwindows."

AUTHORS&

VERSION

ConstMSGNOPWORDS2AsString="

Therewasnoprotectionto"

workbookstructureorwindows."

Proceedingtounprotectsheets."

ConstMSGTAKETIMEAsString="

AfterpressingOKbuttonthis"

willtakesometime."

Amountoftime"

dependsonhowmanydifferentpasswords,the"

passwords,andyourcomputer'

sspecification."

Justbepatient!

Makemeacoffee!

ConstMSGPWORDFOUND1AsString="

YouhadaWorksheet"

StructureorWindowsPasswordset."

Thepasswordfoundwas:

$$"

Noteitdownforpotentialfutureuseinotherworkbooksby"

thesamepersonwhosetthispassword."

Nowtocheckandclearotherpasswords."

ConstMSGPWORDFOUND2AsString="

passwordset."

Noteitdownforpotential"

futureuseinotherworkbooksbysamepersonwho"

setthispassword."

Nowtocheckandclear"

otherpasswords."

ConstMSGONLYONEAsString="

Onlystructure/windows"

protectedwiththepasswordthatwasjustfound."

ALLCLEAR&

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.ProtectW