有木有大神知道如何破解Excel表中的保护表密码[泪][泪][泪][泪][泪][泪][泪][泪]
全部答案（共3个回答）
E保护的破解软件
1、新建一个EXCEL文件“BOOK1”，在工具栏空白位置，任意右击，选择Visual Basic项，弹出Visual Basic工具栏：
EXCEL密码破解/破解工作表保护密码
2、在Visual Basic工具栏中，点击“录制”按钮，弹出“录制新宏”对话框，选择“个人宏工作簿”：
EXCEL密码破解/破解工作表保护密码
3、选择“个人宏工作簿”后按确定，弹出如下“暂停”按钮，点击停止：
EXCEL密码破解/破解工作表保护密码
4、在Visual Basic工具栏中，点击“编辑”按钮：
EXCEL密码破解/破解工作表保护密码
5、点击“编辑”按钮后，弹出如下图的编辑界面：
找到“VBAProject（PERSONAL.XLS）－模块－模块1（也可能是模块N-其他数字）”
双击模块1－将右边代码内容清空
EXCEL密码破解/破解工作表保护密码
6、复制“工作保护密码破解”代码到右边框中，点保存，然后关闭“BOOK1”
EXCEL密码破解/破解工作表保护密码
7、运行需要解密的“EXCEL文件”，在Visual Basic工具栏中，点击“运行”按钮
EXCEL密码破解/破解工作表保护密码
8、点击“运行”按钮后，弹出“宏”对话框，
点击运行“PERSONAL.XLS!工作保护密码破解”这个宏
EXCEL密码破解/破解工作表保护密码
9、运行“PERSONAL.XLS!工作保护密码破解”这个宏后，
如下图示意就可以 解除工作表的密码保护了
EXCEL密码破解/破解工作表保护密码
（这个图，如果工作表中有多组不同密码，
每解开一组，就会提示一次，也就说可能会出现几次）
EXCEL密码破解/破解工作表保护密码
EXCEL密码破解/破解工作表保护密码
工作表保护密码破解(代码）
=========请复制以下内容=============
Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick
JE McGimpsey "
Const HEADER As String = "工作表保护密码破解"
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & "
hfhzi3—戊冥 整理"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
& DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的?"
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
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag 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
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
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
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
《赠人玫瑰手有余香，祝您好运一生一世，如果回答有用，请点“好评”，谢谢^_^!》
Office是目前最为流行的办公软件之一，在企业日常工作中有非常广泛的使用范围。为了保护文件的安全，微软公司在设计Office时为其增加了密码保护功能。目前提供...
你查看一下文件属性就知道了。
香港木有D啦，回柳州再吃，这才正宗啦
大家还关注
长沙做企业app哪家做的比较好? 长沙做...
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区一列列车行驶在北京居庸关长城附近盛开的山桃花海中。
上了年纪的大爷大妈准点前来，早出晚归，堪比上下班。
声明：本文由入驻搜狐公众平台的作者撰写，除搜狐官方账号外，观点仅代表作者本人，不代表搜狐立场。
　　施老师：
　　EXCEL工作表有时为了需要，我们需要设置保护密码，可是密码如果忘了，该怎么破解呢！
　　1、打开文件
　　2、工具---宏----录制新宏---输入名字如:aa
　　3、停止录制(这样得到一个空宏)
　　4、工具---宏----宏,选aa,点编辑按钮
　　5、删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)
　　6、关闭编辑窗口
　　7、工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!
　　内容如下：
　　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
　　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
　　微信订阅号：myplwaai欢迎分享本文，转载请保留出处。
欢迎举报抄袭、转载、暴力色情及含有欺诈和虚假信息的不良文章。
请先登录再操作
请先登录再操作
微信扫一扫分享至朋友圈
搜狐公众平台官方账号
生活时尚&搭配博主 /生活时尚自媒体 /时尚类书籍作者
搜狐网教育频道官方账号
全球最大华文占星网站-专业研究星座命理及测算服务机构
宁双学好网创始人，教育培训讲师、在线教育达人。
主演：黄晓明/陈乔恩/乔任梁/谢君豪/吕佳容/戚迹
主演：陈晓/陈妍希/张馨予/杨明娜/毛晓彤/孙耀琦
主演：陈键锋/李依晓/张迪/郑亦桐/张明明/何彦霓
主演：尚格?云顿/乔?弗拉尼甘/Bianca Bree
主演：艾斯?库珀/ 查宁?塔图姆/ 乔纳?希尔
baby14岁写真曝光
李冰冰向成龙撒娇争宠
李湘遭闺蜜曝光旧爱
美女模特教老板走秀
曝搬砖男神奇葩择偶观
柳岩被迫成赚钱工具
大屁小P虐心恋
匆匆那年大结局
乔杉遭粉丝骚扰
男闺蜜的尴尬初夜
客服热线：86-10-
客服邮箱：西西软件园多重安全检测下载网站、值得信赖的软件下载站！
→ 轻松破解Microsoft excel 2007 密码保护图文教程
9.0 无限制版
类型：办公软件大小：2.9M语言：中文 评分：1.3
Microsoft发布Excel 2007时，引入了新的文件类型，即xlsx、xlsm、xltx，等等，称之为Open XML。因为这种新文件类型实质上是包含XML文件的包。如果将一个xlsx文件的扩展名修改为zip，那么能够看到组成该Excel文件的所有xml文档。
新的Open XML文件类型带来了许多好处。其主要的好处之一是可以通过操作组成文件的XML文档来简单地修改Excel 2007文件的内容和属性。
是的，当处理Open XML文件时，发现可以通过简单地编辑Excel文件里的xml文件，从而简单地移除工作表保护。
假设有一个工作簿，其工作表Sheet1被保护。现在，我希望取消该工作表的保护，但是不知道密码。怎么办呢？幸好这是Excel 2007，我们可以利用XML来移除工作表保护。
步骤1 首先备份工作簿，以防万一。
步骤2 修改工作簿文件的扩展名为zip。
步骤3 解压该文件。
步骤4 找到代表目标工作表的XML文件（在xl\worksheets文件夹中）。
步骤5 使用任一XML编辑器打开代表目标工作表的xml文档。
步骤6 找到“sheetProtection”标签并移除该标签所在的行。
步骤7 保存已编辑的XML文档，用其取代原Zip文件中相应的XML文档。
步骤8 将文件的扩展名修改回xlsx。
至此，工作表保护已解除。
在XML文件中看到的任何密码都不是真正的密码。
这种方法不能取消对整个工作簿的保护。
09-3002-0102-0101-2901-2901-2801-2701-2101-1501-13
阅读本文后您有什么感想? 已有23人给出评价!
名称大小下载excel密码清除工具|excel密码清除工具 中文免费版 - 软件下载 - 绿茶软件园|
&&&&&&&&&&&&excel密码清除工具 中文免费版
excel密码清除工具 中文免费版
软件大小：450KB
软件语言：简体中文
软件授权：免费版
软件类别：加密解密
软件等级：
更新时间：
官方网站：
应用平台：/Win8/Win7/WinXP
excel密码清除工具是一款excel表格的密码免费工具。excel密码清除工具能帮助用户免费有密码保护的excel表格，让用户可以对该excel表格进行正常的编辑、浏览与保存功能。推荐需要免费excel密码的朋友可以收藏该工具。
excel密码清除工具功能介绍：
1.解除工作簿密码
2.解除工作表密码(未知密码)
3.解除VBA密码
4.解除IE上网密码
5.工作表批量加密码
6.工作表批量解密码(已知密码)
所有功能皆可使用快捷键操作。Alt加菜单名中的字母即可。例如组合键[Alt+A]可解工作簿密码，[Alt+B]可解工作表密码。
excel2016官方下载 免费完整版已经发布，excel2016免费版为大家带来许多惊艳的新功能，所支持的数据插件以及各类功能都更加强大，支持基于云端的数据处理，整体界面更加美观，让用户获得更好的体验。为此，小编特地为需要的用户提供excel2016官方下载。。
excel密码清除工具&中文免费版
16:27:30绿茶网友[广东省深圳市]
真实有用，新手可上网查看 EXCEL 工作表忘记保护密码的快速破解方法
本类推荐本类排行
热门软件热门标签