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

1、保存好文件后，先关掉文档再打开另存的文件，选择工具栏中的“解除文档保护”命令，不用填写密码就可以解除此文件的“文档保护功能”，而且任何信息都不会丢失。 一、解除WORD文档的保护方法一：插入文件法启动WORD，新建一个空白文档，执行“插入文件”命令，打开“插入文件”对话框，定位到需要解除保护的文档所在的文件夹，选中相应文档，单击“插入”按钮，将加密保护的文档插入到新文档中，文档保护会被自动撤销。（很实用，超简单） 方法二：文件另存法打开保护的文档，执行“文件另存为”命令，打开“另存为”对话框，将“文件类型”选定为“WORD97201X&6.0/95RTF（*.doc）”，然后取名保存，关闭该文

2、档，重新打开一下，执行“工具取消文档保护”命令即可。或者将文件类型另存为HTML，然后将其中的内容，复制粘贴到新建文档 中。方法三：写字板法启动写字板，打开保护的WORD文档，另存为WORD文档，同时可以取消对文档的保护。但此方法可能会使文档中的图片等要素丢失。方法四：第三方软件法（即一般所说的解密软件）推荐Passware Kit。二、解除EXCEL工作表的保护复制粘贴法启动EXCEL，打开加密保护的EXCEL工作薄文档，选中相应的数据区域，执行一下“复制”操作，然后新建一个工作表，选中某 单元 格，执行一下“粘贴”操作，则工作表保护被撤销。如果加密者在保护工作表时设置了让使用者不能选中工作

3、表中的单元格，则上述方法不能实现解除保护。可以采用以下方法：启动金山表格201X（或其他能打开EXCEL表格的第三方软件也可以）打开相应的EXCEL文档，然后再将表格另存为EXCEL表格，那么相应的保护即被撤销。使用第三方软件（即一般所说的解密软件）推荐Passware Kit。篇二：Excel中如何破解“撤销工作表保护密码”并获取原始密码一、 保护工作表的方法1、 全选定工作表 右击设置单元格格式 找到保护将锁定和隐藏两个的勾去掉；2、将要保护的工作表单元格选定右击设置单元格格式 找到保护将锁定和隐藏两个的勾打上；3、 点菜单栏的工具中的保护里的保护工作表将保护工作表及锁定 的单元内容打上勾

4、，下选允许此工作表的所有用户选定未锁定的单元格打上勾二、Excel工作表保护密码破解方法1、打开您需要破解保护密码的Excel文件；2、依次点击菜单栏上的工具-宏-录制新宏，输入宏名字如:aa；3、停止录制（这样得到一个空宏）；4、依次点击菜单栏上的工具-宏-宏,选aa,点编辑按钮；5、删除窗口中的所有字符（只有几个）,替换为下面的内容；从横线下开始复制-Option ExplicitPublic Sub AllInternalPasswords（） Breaks worksheet and workbook structure passwords. Bob McCormick probabl

5、y originator of base code algorithm modified for coverage of workbook structure / windows passwords and for multiple passwords Norman Harker and JE McGimpsey 27-Dec-201X （Version 1.1） Modified 201X-Apr-04 by JEM: All msgs to constants, and eliminate one Exit Sub （Version 1.1.1） Reveals hashed passwo

6、rds NOT original passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _Adapted from Bob McCormick base code by &Norman Harker and JE McGimpseyConst HEADER As String = AllInternalPasswords User MessageConst VERSION As String = DBLSPACE & Version 1.

7、1.1 201X-Apr-04Const REPBACK As String = DBLSPACE &Please report failure to the microsoft.public.excel.programming newsgroup.Const ALLCLEAR As String = DBLSPACE &The workbook should now be free of all password protection, so make sure you:DBLSPACE &SAVE IT NOW! DBLSPACE &and alsoBACKUP!, BACKUP!Also

8、, remember that the password was put there for a reason. Dont stuff up crucial formulas or data.Access and use of some data may be an offense. If in doubt, dont.Const MSGNOPWORDS1 As String = There were no passwords on sheets, or workbook structure or windows. AUTHORS & VERSIONConst MSGNOPWORDS2 As

9、String = There was no protection to workbook structure or windows.Proceeding to unprotect sheets.Const MSGTAKETIME As String = After pressing OK button this will take some time.Amount of time depends on how many different passwords, the passwords, and your computers specification.Just be patient! Ma

10、ke me a coffee!Const MSGPWORDFOUND1 As String = You had a Worksheet Structure or Windows Password set.The password found was:$Note it down for potential future use in other workbooks by the same person who set this password.Now to check and clear other passwords.Const MSGPWORDFOUND2 As String = pass

11、word set.Note it down for potential future use in other workbooks by same person who set this password.Now to check and clear other passwords.Const MSGONLYONE As String = Only structure / windows protected with the password that was just found.ALLCLEAR & VERSION & REPBACKDim w1 As Worksheet, w2 As W

12、orksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectW