第128期｜Excel 工作表破解

本文Excel版本为2016

【 一 】｜Excel工作表介绍

【工作表】：是显示在工作簿窗口中的表格，一个工作表可以由1048576行和256列构成，行的编号从1到1048576，列的编号依次用字母A、B ……IV表示，行号显示在工作簿窗口的左边，列号显示在工作簿窗口的上边。

Excel默认一个工作簿有三个工作表，分别为：sheet1、sheet2、sheet3，当然用户可以根据需要添加工作表，但每一个工作簿中的工作表个数受可用内存的限制，当前的主流配置已经能轻松建立超过255个工作表了。

好了，前面的工作表介绍说完了，我们来说说这个工作表有一种密码保护的用法吧。当出现如下几种情况的时候可以对其设置密码（设置方法略）

文件传递过程中，不希望内容被人修改；

文件内容不希望被人复制或者说盗取；

保护文件的知识产权；

【注】：设置时，请大家取消默认允许的上图2个选项，否则直接复制就破解了~

【 一 】｜Excel工作表VB代码破解法

但是，我们人的记忆是有期的，往往，我们会忘记密码，在【程序猿大神破解EXCEL和WORD保护文档密码只需1分钟~】这一期，飞哥就分享过三种破解方法。今天，我们要分享的是一种VB代码破解的方法。当然，更直接，更暴力~也更有效。

【第1步】：打开需要破解的表格，进入【开发工具－visual Basic】

【第2步】：在弹出的界面，双击选中任意一张工作表，例如：sheet1

【第3步】：在打开的界面，复制粘贴如下代码后，点击，运行代码即可

【注】：因代码有116行，不方便复制，完整代码已整理成文档，获取方法如下

三、 以上VB代码获取方法：

第1步：点击文章末端【广告】，(点一下，打开，关掉，OK)

第2步：进入【工作表破解】,即可免费获取下载方法~

END

「往期」关于Excel技巧的文章推荐：

Excel动态图表99%的人都不会做

Excel动态图表之index用法,你会吗?

我被“表妹”折磨了一早上，真受不了

下一期：第129期｜Excel技巧100例

上一期：第128期｜我被“表妹”折磨了一早上，真受不了

来源：feigeketang

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

一。 加密文档

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

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

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

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

1， 尽可能长。

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

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

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

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

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

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

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

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

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

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

我们点击查看代码

或者点击查看代码

粘贴下面的代码

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文件，要想打开怎么办？总不能一个密码一个密码的试吧。。。别担心，让小编来告诉你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表密码忘记或者别人的表格设置密码无法查看，简单破解方法。

先选择一个设定了密码的表格

在百度搜索框搜索软件名称，如图

建议在安全的大的下载网站下载正版软件

下载好了，在桌面找到软件的快捷方式，点击打开

点击如图的那个文件按钮，选择需要打开的目标文件

选择好了要破解的文件后，点击remove就好。

014年平安银行广州分行不断的推陈出新各类银行产品，各业务条线亟需开发一系列的电子处理平台，用于优化内部管理流程和业务报表，带着这份需求，我们在互联网上寻找合适的开发平台，通过试用，我们发现勤哲EXCEL服务器能够解决目前的困劲。同年10月份我部采购了勤哲EXCEL服务器2013版本。

相对于专业的软件开发平台，基于EXCEL服务器平台的系统投入成本低，开发周期短。对于需要跨部门协同处理、流程简单的信息管理系统，使用IT开发语言需要30-60个人月时间，而使用本产品，可以充分利用EXCEL服务器的功能，将开发周期缩短至20-40个人月，为业务部门快速解决技术发展瓶颈。

经过一年时间的使用，利用此平台已建立了多个应用系统，如“流程优化建议报送审批系统”、“合同管理台帐系统”、“银监局要求落实台帐系统”分别为运营、公司、风控等各条线工作提供了电子化处理手段，提高了内部管理效率。

利用勤哲EXCEL服务器实现“流程优化建议报送审批系统”

1、 系统需求

广州分行运营条线开展流程优化活动，提高扩大运营条线员工的参与意识和协作精神，科技部需要开发配套的优化建议报送审批系统，为500多位用户提供一个电子化集中处理平台， 实现线上流程优化建议的上报、审批、补充意见等环节，替代各网点运营人员通过邮件进行上报、管理人员线下审核的繁琐工作。

2、 选择勤哲EXCEL服务器原因：

通过对比分析，发现勤哲EXCEL服务器特别适合我部的需求，它可以快速实现数据的收集、查询、下载等功能，快速开发出便捷的信息处理工具，缩短系统需求的软件开发周期。

3、 系统设计

(1)根据需求，设计“网点流程优化建议申报表”，实现了优化建议的上报、初审、复审、补充意见及发布等各环节。

(2)工作流设计：

“网点流程优化建议申报表”的业务逻辑通过工作流和表间公式实现各环节的自动流转，初审人员由指定的分行管理人员进行管理设置，初审员对申报项目进行评分，系统根据评分自动判定该项目是否通过审核，当此建议通过数超半数即进入复审，复审员复审通过后，所有运营人员可对此建议进行上报补充建议，补充建议结束后由复审员进行再次审核。

4、 总结

该系统使用勤哲EXCEL服务器平台，历经1个半月时间完成了开发和测试，充分体现了开发平台的优势，显著提高了我部的软件开发效率。同时，用户使用类似EXCEL的界面操作，较容易接受且用户体验良好，用户还可以根据简单的业务逻辑，设计出符合自身需求的业务流程。

何为工作表保护密码？

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

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

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

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

今天最重要的问题来了：

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

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

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

开始破解：

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

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

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

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

3、用记事本打开sheet1

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

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

完工！

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

当为了防止别人修改工作表内容，会设置工作表保护密码，如果忘记了密码或者编辑人没给我我们密码，怎么办呢？让我教你一招破解她！

第一步：修改工作表后缀，将工作表名称后缀中的 .xlsx 修改为.rar（修改后悔变成一个压缩包）；

二步：查找压缩包里面的sheet1.xml文件（如果你需要修改sheet1的内容，你就选择sheet1.xml，如果修改别的sheet，你就选择sheet2或者sheet3），打开压缩包→xl文件夹→worksheets→sheet1.xml，选中sheet1.xml复制出来；

第三步：记事本打开sheet1.xml文件；

第四步：删除工作表保护编程。记事本打开后，ctrl+F调出查找窗口，输入protect搜索，找到编程并删除（编程为下图中选中蓝色区域），修改后关闭记事本；

第五步：将文件放回原位置和改回后缀。1.文件放回原位置：打开压缩包→xl文件夹→worksheets→删除原来sheet1.xml→放回修改后的sheet1.xml。2.文改回后缀：将 .rar 后缀改回 .xlsx 。3.打开excel检查是否已破解。

　　小编这个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使用教程，会告诉大家，忘记密码时改如何打开表格。也很简单哟，很容易就能学会哒。

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

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

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

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