背景介绍：

实际工作中很多情况下需要把表格进行设置加密权限，让别人仅仅可以看，输入指定单元格内容，但是不能修改保存，其实这个是用到了表格权限，如果你是设置权限的人，需要对表格进行调整更改，这个时候你突然发现，保护密码忘记了；那么今天就教你如何清除这个密码！

【步骤开始】

首先你要关闭你的表格，然后将表格的名称重命名，后缀改为RAR格式（如图二所示），提示修改文件属性，点击确定就好，这个时候你会发现你的表格成为压缩包格式了！那么就继续看！

打开刚刚修改好的压缩包，然后找到【XL】文件夹打开，找到【worksheets】文件夹，将文件夹中的【sheet1.xml】文件拖拽到文件夹中，如图所示！

第一步打卡这个表格会弹出网页格式，然后关闭，然后对准文件点击鼠标右键，选择编辑，（不要问我为什么先要打开文件在进行编辑，其实我也不知道原因，因为不先打开，点击鼠标右键没有编辑选项）；根据自己电脑情况，我的编辑格式 写字板，也可以是Txt文本文档格式；

这一步比较重要，再打开的文档中使用Ctrl+F 搜索功能搜索【Protection】然后找到代码行，如图二所示，删除后如图三所示；然后保存退出！

这一步是将文件sheet1.xml拖拽回压缩文件，文件会提示是否替换，然后点击全部替换即可；到目前这一步仅仅是清除了文件中（Sheet1表格中的加密，想要清除Sheet2，重复以上步骤即可！）

这一步也是很重要的，把压缩文件名称改回原来的文件，如图所示：把【RAR格式改为xlsx，然后保存；接下来打开表格你会发现表格保护密码已经被清除了！完成~

原创不易，欢迎支持打赏！

其实文件管理在我们工作中尤为重要，比如说一个简单的电子表格如何去加密？如何对工作表加密？如何不让别人动我们的原有数据，只能编辑一些数据？如何能让我们表结构不别人破坏？今天就给大家谈谈excel“保护”的那些事儿吧！

其实excel“保护”的话，大致可以分为保护工作薄（就是整个文档）、保护工作表、允许用户编辑区域这三类。下面我们一一探讨。

一、保护工作表（就是别人打开你发的文件需要密码才能查看，否则无法打开）

①单击文件另存为，打开另存为对话框，在工具下拉菜单中选择“常规选项”

②打开常规选项对话框后，在相应位置输入密码，并单击确定按钮

③在随后出现的确认密码对话框里重新输入密码，单击确定按钮，返回“另存为”对话框，单击保存。至此，设置密码就ok啦！

④密码设置成功后，再次打开该工作薄，则需用到密码。

二、保护工作薄的结构（就是禁止他人增加、删除、隐藏我们的工作表）和窗口（禁止其他人更改工作表的窗口大小或位置）

①在审阅选项卡下，找到保护工作薄按钮，打开保护结构和窗口对话框。在该对话框选择是结构或窗口，并输入密码，单击确定。

②在随后打开的确认密码对话框里，重新输入密码，并单击确定，至此完成对工作薄或窗口的保护。完成后，审阅选项卡下的保护工作薄按钮高亮显示。

③ok

三、保护工作表（就是单元格内容不被别人修改）

①在审阅选项卡下，单击保护工作表按钮，打开保护工作表对话框

②随后打开的确认密码对话框里，重新输入密码，单击确定，完成工作表的保护。

四、允许修改部分单元格

①选择允许修改的单元格区域，（可以按ctrl选择不连续的区域），右击设置单元格格式，

②在单元格格式对话框中，选择保护选项卡，去掉锁定前面的对号，并单击确定。

③随后操作步骤同前，单击审阅选项卡下的保护工作表按钮，输入密码即可。

④完成ok啦，后面还有种情况，大家看后面的示意图

相信通过这次的分享，很多人都知道我们工作表保护的秘密了吧。其实这个在我们工作中用得也很广泛，之前有个人问我如何去不让别人去改变我们的内容和单元格大小。所以给大家总结了此次的excel密码的秘密，希望能帮到大家。

1打开表格，比如你突然收到这样的一个你中500万的表格，点击就能体现，那么你想要加密的话，跟着往下看！

2点击 左上方的【文件】按钮，显示 文件按钮的子文件夹，第一个就是 【保护工作簿】

3点开后会有价格选项，选择第二个选项【用密码进行加密】，然后弹出

新密码输入框

输入密码后，需要二次输入验证；

等 设置完成后，这个工作簿就算是加密了；

4

然后文件夹选项会提示你，【打开此工作簿需要密码】！

.

先关闭在打开，就会提示【需要输入密码才能打开】；

.

5

然后输入设置的密码，打开工作簿；这样你的工作簿就会处于密码保护状态谁都不能随便打开你的表格了！

不管是微软Office还是国人喜欢用的WPS，它们的Excel文档除了常见的打开密码之外还有好几种密码，今天跟大家主要探讨的是WPS的Excel启动强制保护模式后，如何使用Excel密码破解工具破解保护密码。

启动Excel强制保护模式

1、在Excel页面左上角WPS表格右侧的下拉菜单中依次选择“工具->保护”，会有保护工作表、允许用户编辑区域、保护工作簿、保护并共享工作簿4个子选项可供选择。保护工作表只是对单个Excel表格进行保护，保护程度相对较低，下面就以保护工作表为例进行讲解。

2、选择“保护工作表”之后，就要为当前Excel工作表设置密码，在弹出的密码对话框中输入密码“AA2”。如下图所示，对话框下面的一列复选框是用户可以选择的保护项目，保护密码保护的是勾选后的项目。点击确定按钮之后在弹出逇确认密码对话框中再输入一次并点击确定。

3、保存此次密码设置后，关闭Excel文档。

使用Excel密码破解工具破解保护密码

启动Excel密码破解工具并用其打开之前设密的Excel文档，系统会自动运行准备攻击（初步攻击），如果想了解准备攻击的具体信息请点击详解Advanced Office Password Recovery的初步攻击。等待3秒左右便弹出结果对话框，破解出的表格保护密码如下图红框中所示：

以上就是实例展示的Excel密码破解工具破解工作表密码的步骤，教程内容十分简单，Excel文档的强制保护模式是一种强而有效的文档保护，除了Excel密码破解工具，其他破解软件束手无策。

更多AOPR教程：http://passwordrecovery/support.html

之前讲到工作表的保护和可编辑区域，那个保护是打开之后的，我们通常要加密是不允许不知道密码的人进入表格。这就需要对office进行加密。

一。 加密文档

1， 打开文档后，点另存为：

2， 工具正面有一个常规选项、

3， 输入密码，建议只读的意思是，设置两个权限，第一个密码通过之后，可以读取内容，要修改工作表，还要输入第二个密码。多重保护。当然，两个密码最好不一样，要不然也没意义。

二。 解密，对于excel文档加密的解密，目前常用的解密软件的解密逻辑是从数据字典（即常用密码集合）中或者通过组合一个一个尝试，直到破解为止，这种方式原则上所有的密码都可以破解，只是时间的问题，如果你的密码够复杂（位数长，内容复杂），破解需要花的时候就越长。为了尽可能安全，设置密码时，尽量：

1， 尽可能长。

2，尽可能不要有规律，不要用连续的数字（123456），不要用有意义的字母（password等)，有要用重复字符（000000）。不要用生日作为密码。

3， 尽量包含大写字母，小写字母，数字，符号等。

讲了这么多，大家最关心的可能还是如何破解吧。

网上有很多破解软件，有免费的，也有要注册的，效果是一样的。我用过的：Excel Password Unlocker 还算比较好用。

http://xiazai.zol/detail/44/430993.shtml

如果怎么使用，网上有很多教程，在此就不复述了。

另外，密码破解只可应用于在法律允许范围内使用，不可用于破解有关机密的文件，由此造成的后果，一律由其本人承担！

面对一个加了密的excel文件，要想打开怎么办？总不能一个密码一个密码的试吧。。。别担心，让小编来告诉你Excel密码破解究竟有多简单！

更多密码破解资讯：http://passwordrecovery/

小编先用Microsoft Office  Excel 2003（可用金山WPS Office 2012 表格代替）创建一个“2003.xls”的普通方式加密Excel文档，然后用Office Password Remover这个在线破解工具来破解，1,2,3，3秒之后，就生产一个已经被成功破解的新Excel文档——2003（DEMO）.xls 。破解一个普通加密方式的Excel文档，只需3秒钟！如果你真的不信，可以自己测试一下！

当然，这个3秒破解Excel文档密码是有条件的。第一个条件：Excel文档保存格式必须为古老的“.XLS ”格式（同理，Word文档保存为“.DOC”格式，PPT文档为“.PPT格式”），第二个条件为加密方式必须为Office 2003或2007（WPS Office 2012）的默认加密方式。

注：要想得到完全的破解文件，需要付费，免费破解的Excel文档只能看到前几行。

Excel密码破解工具一秒能测试多少个密码？

如果不付费就破解不了，那就大错特错。要知道，在一台普通配置的电脑上，Excel密码破解工具一秒能测试约88万个密码（需符合以上两个条件）。假设一个6位数的全数字密码，你猜要多长时间来破解？答案是2秒不到（破解时间因测试环境不同而不同）。

WPS表格（用途相当于Excel）虽然提供多种加密方式，但其中的XOR加密方式在Advanced Office Password Recovery里就形成虚设。可能是Advanced Office Password Recovery已经掌握了怎么完美破解XOR加密方式的方法，否则不可能做到无论你设置什么密码，都会被瞬间打开！

笔者在此强调一下，这不代表WPS Office 2012 的加密方式不行，只是想说明，Excel加密要选对加密方式才靠谱，后面就是详细讲解这个。

从另一个角度探讨看XOR加密方式，XOR加密方式虽然可以被 Advanced Office Password Recovery 瞬间破解，但却完全不怕Office Password Remover的在线破解。因为Office Password Remover对XOR加密方式的Office 文档无可奈何。如果有人想找随时找回密码的加密方式，那WPS内置的XOR加密毫无疑问是最适合的方式。

Advanced Office Password Recovery下载

之前的Excel使用教程讲了怎么在工作中保护好Excel表格里的数据。虽然强调了一定要记得密码，不然自己也只能哭着重做一份。但凡是总有万一，今天的Excel使用教程，会告诉大家，忘记密码时改如何打开表格。也很简单哟，很容易就能学会哒。

首先，右键点忘记密码的Excel表格，把文件后缀名改成RAR（如果右键看不到文件后缀的话，请先修改文件夹查看属性哟），打开压缩文件，找到xl→worksheets→你的工作表格。把这个文件从压缩包拖到文件夹里。

第二个步骤，右键点击拖出来的文件，选择记事本工具打开文件。搜索“protece”→把整段代码删掉（代码会放在动图后面）→保存文本→把这个修改完毕的文件，重新拖回到rar文件里的的worksheets文件夹下→把rar文件名称的后缀改回xlsx→再打开表格，就可以编辑啦。是不是超简单？

下面这个就是要删掉的代码内容，不需要完整记得。差不多长这样就可以啦。

学会了吗？是不是超简单呢？就算学会了，也不能去做坏事哟~

工作中有些人为了保护自己的资料不别任何人修改，就需要设置工资表保护密码。只有知道密码的人才可以修改。但是有时候很急需要往里面添加资料。就得需要破解密码。

别人设置的密码只能看不能编辑

点击撤销工资表保护需要密码

我们点击查看代码

或者点击查看代码

粘贴下面的代码

Public Sub AllInternalPasswords()

' Breaks worksheet and workbook structure passwords. Bob McCormick

' probably originator of base code algorithm modified for coverage

' of workbook structure / windows passwords and for multiple passwords

'

' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)

' Modified 2003-Apr-04 by JEM: All msgs to constants, and

' eliminate one Exit Sub (Version 1.1.1)

' Reveals hashed passwords NOT original passwords

Const DBLSPACE As String = vbNewLine & vbNewLine

Const AUTHORS As String = DBLSPACE & vbNewLine & _

"Adapted from Bob McCormick base code by" & _

"Norman Harker and JE McGimpsey"

Const HEADER As String = "AllInternalPasswords User Message"

Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"

Const 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 also" & _

DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _

DBLSPACE & "Also, remember that the password was " & _

"put there for a reason. Don't stuff up crucial formulas " & _

"or data." & DBLSPACE & "Access and use of some data " & _

"may be an offense. If in doubt, don't."

Const MSGNOPWORDS1 As String = "There were no passwords on " & _

"sheets, or workbook structure or windows." & AUTHORS & VERSION

Const MSGNOPWORDS2 As String = "There was no protection to " & _

"workbook structure or windows." & DBLSPACE & _

"Proceeding to unprotect sheets." & AUTHORS & VERSION

Const MSGTAKETIME As String = "After pressing OK button this " & _

"will take some time." & DBLSPACE & "Amount of time " & _

"depends on how many different passwords, the " & _

"passwords, and your computer's specification." & DBLSPACE & _

"Just be patient! Make me a coffee!" & AUTHORS & VERSION

Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _

"Structure or Windows Password set." & DBLSPACE & _

"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _

"Note it down for potential future use in other workbooks by " & _

"the same person who set this password." & DBLSPACE & _

"Now to check and clear other passwords." & AUTHORS & VERSION

Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _

"password set." & DBLSPACE & "The password found was: " & _

DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _

"future use in other workbooks by same person who " & _

"set this password." & DBLSPACE & "Now to check and clear " & _

"other passwords." & AUTHORS & VERSION

Const MSGONLYONE As String = "Only structure / windows " & _

"protected with the password that was just found." & _

ALLCLEAR & AUTHORS & VERSION & REPBACK

Dim w1 As Worksheet, w2 As Worksheet

Dim i As Integer, j As Integer, k As Integer, l As Integer

Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer

Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer

Dim PWord1 As String

Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False

With ActiveWorkbook

WinTag = .ProtectStructure Or .ProtectWindows

End With

ShTag = False

For Each w1 In Worksheets

ShTag = ShTag Or w1.ProtectContents

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

End If

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else

On Error Resume Next

Do 'dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

With ActiveWorkbook

.Unprotect Chr(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 = False And _

.ProtectWindows = False Then

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)

MsgBox Application.Substitute(MSGPWORDFOUND1, _

"$$", PWord1), vbInformation, HEADER

Exit Do 'Bypass all for...nexts

End If

End With

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE, vbInformation, HEADER

Exit Sub

End If

On Error Resume Next

For Each w1 In Worksheets

'Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo 0

ShTag = False

For Each w1 In Worksheets

'Checks for all clear ShTag triggered to 1 if not.

ShTag = ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1 In Worksheets

With w1

If .ProtectContents Then

On Error Resume Next

Do 'Dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If Not .ProtectContents Then

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)

MsgBox Application.Substitute(MSGPWORDFOUND2, _

"$$", PWord1), vbInformation, HEADER

'leverage finding Pword by trying on other sheets

For Each w2 In Worksheets

w2.Unprotect PWord1

Next w2

Exit Do 'Bypass all for...nexts

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

End With

Next w1

End If

MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER

End Sub

把这段代码粘贴到代码框里面。等待一到两分钟。期间会弹出几个对话框。

运行期间会有几个对话框点确定就好

关掉代码窗口。保存会出现这样提示点击是

成果

方便你我他

喜欢就收藏备用，谢谢大家多多关注啊！

　　小编这个Excel“客户销售明细表”文件，包含8张Excel工作表，其中第七张（sheet7）是“宁夏店”的销售数据。从图中，可以看到这个工作表是有密码的，单击“撤销工作表保护”，要求我们输入密码，可是密码忘记了，怎么办呢？

　　关于XLSX文件和压缩文件的关系，前面的推送教程，我们做过深入的讲解，当前这个EXCEL撤销工作表格保护密码破解问题，就需要使用到这里面的知识点。

　　下面，请看小雅的步骤：

第一，修改文件后缀

　　将原始文件：客户销售明细表.xlsx修改为客户销售明细表.zip。

　　修改文件后缀的过程，会弹出下面的对话框，询问我们是否需要改变文件扩展名，咱们点击“是”即可。

第二，从zip中复制密保工作表文件

　　打开压缩后的文件，并在xl\worksheets中找到有密码保护的文件（本例中为sheet7.xml），拖拽复制该文件到文件夹下面。

　　复制后的效果，如下面截图所示：

第三，记事本打开sheet7.xml文件

　　打开之后，并找到下面这段代码，将其删除。

　　保存，并关闭sheet7.xml文件。

第四，复制替换sheet7.xml文件

　　将删除了sheetProduction代码的sheet7.xml文件复制替换回压缩包里面。

　　第五，将ZIP文件改回为XLSX文件，再打开工作表，可以看到工作表保护密码已经被强制破解删除了。

　　总结：Excel工作表保护密码是一种很弱的保护，使用本文的方法，就可以破解撤销工作表保护密码。亲们可以收藏转发备用，说不定哪天就用上了哦。

何为工作表保护密码？

审阅 - 保护工作表- 添加密码

添加工作表保护密码有什么 作用？

可以禁止编辑已锁定的单元格，还可以有选择的禁止下面的操作：

很多同学没有仔细关注过这个小框框，其实每一条都可以延出一个Excel小绝招，比如：禁止别人复制你的Excel表格

今天最重要的问题来了：

Excel工作表保护的密码忘了，怎么办？

想破解，就跟我一起做个测试吧

E:\汇总报表.xlsx 文件中“汇总表” 添加了保护密码

开始破解：

1、把文件后辍改为Rar,文件图标会变成压缩包形式

2、双击打开压缩包，把xl\worksheets文件夹中的sheet1拖动复制出来

为什么要拖出sheet1？因为sheet1就是汇总表工作表，查看方法：

工作表标题上右键 - 查看代码 - 在弹出的新窗口中右上角“工程”小窗口中可以看到工作表的 顺序名(自定义的工作表名)

3、用记事本打开sheet1

4、查找protect 并删除下面蓝色的代码，最后保存

5、把sheet1拖回到压缩包中替换原文件，然后把压缩包后辍名改回 xlsx

完工！

Excel技巧说明：关于工作表密码破解，可能你找不到写这么详细的教程了，一步不落。建议收藏起来，保不准哪天你脑子断路，密码给忘了呢....肯定还会有同学提问Excel打开密码怎么破？可以肯定的回答：如果是07及以后版本，基本破解无望。