&Excel工作表保护密码忘了怎么破解
秒后自动跳转到登录页
(奖励5下载豆)
快捷登录：
举报类型：
不规范：上传重复资源
不规范：标题与实际内容不符
不规范：资源无法下载或使用
其他不规范行为
违规：资源涉及侵权
违规：含有危害国家安全等内容
违规：含有反动/色情等内容
违规：广告内容
详细原因：
任何违反下载中心规定的资源，欢迎Down友监督举报，第一举报人可获5-10下载豆奖励。
【51CTO技术公开课】
51CTO论坛原创&
中小型计算机机房安
网页特效库特效源码
VCP 5.0实验手册（最
计算机机房安全性指
【51CTO技术公开课】
Excel工作表保护密码忘了怎么破解
上传时间：
技术分类：
资源评价：
（0位用户参与评价）
已被下载&4&次
Excel工作表保护密码忘了怎么破解
本资料共包含以下附件：
Excel工作表保护密码忘了怎么破解.doc
51CTO下载中心常见问题：
1.如何获得下载豆？
1)上传资料
2)评论资料
3)每天在首页签到领取
4)购买VIP会员服务，无需下载豆下载资源
5)更多途径：点击此处
2.如何删除自己的资料？
下载资料意味着您已同意遵守以下协议：
1.资料的所有权益归上传用户所有
2.未经权益所有人同意，不得将资料中的内容挪作商业或盈利用途
3.51CTO下载中心仅提供资料交流平台，并不对任何资料负责
4.本站资料中如有侵权或不适当内容，请邮件与我们联系（）
5.本站不保证资源的准确性、安全性和完整性, 同时也不承担用户因使用这些资料对自己和他人造成任何形式的伤害或损失
下载1128次
下载2026次
下载1022次
下载2541次
相关专题推荐
本专题主要收集了Auto CAD2010系列视
VideoStudio Pro X6 （会声会影 X6）
汇集各大知名厂商设备、服务器VISIO图
Dreamweaver CS6是世界顶级软件厂商a
VBA80集，是兰色幻想耗时一年精心为大
2012年，让桌面连接你我！ 51CTO将在
数字电子技术，西安电子科技大学视频
网络收集的中国科技大学龚升教授的《
收集个人认为较为经典的Selenium资料
收集个人认为教好的LoadRunner相关的
本周下载热点
意见或建议：
联系方式：
您已提交成功！感谢您的宝贵意见，我们会尽快处理excel密码忘记了怎么办？excel表格文件密码忘记了解决方法
- 绿茶文章中心
&&&&&&&&&excel密码忘记了怎么办？excel表格文件密码忘记了解决方法
excel密码忘记了怎么办？excel表格文件密码忘记了解决方法
作者：佚名
来源：绿茶软件园
　　为了保护个人隐私，我们通常会设置密码，对于办公软件也不例外，但是记性不好的朋友往往会将自己设置的密码忘记，如果excel密码忘记了怎么办呢?下面就是excel表格文件忘记密码的解决方法哦~
　　首先我们在网上下载一个Office Password Remover，运行解压好的OPRemove.exe 这个程序，打开程序后可以看到中间文本框后面有个类似文件夹的按钮，点击它浏览打开要破解的文档， 选择后点击移除密码，这时软件会提示需要连接到Internet，因为要给该软件的服务器发送数据并解密。
　　不过大家可以放心，软件不会泄露任何个人隐私，过几秒钟后便出现&该文档已经被成功破解&，点确定即可，这时候就大功告成了。
绿茶小编猜你还喜欢：
本类推荐本类排行
热门软件热门标签2943人阅读
乱七八糟（19）
1、打开您需要撤销保护密码的Excel文件；2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:ab；3、停止录制(这样得到一个空宏)；4、依次点击菜单栏上的工具---宏----宏,选ab,点编辑按钮；5、删除窗口中的所有字符(只有几个),替换为以下内容；Public Sub 工作表保护密码()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine
Const HEADER As String = &工作表保护密码&
Const VERSION As String = DBLSPACE & &版本 Version 1.1.2&
Const REPBACK As String = DBLSPACE & &&
Const ZHENGLI As String = DBLSPACE & &
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
If ShTag Then
For Each w1 In Worksheets
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
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
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADER
End Sub6、关闭编辑窗口；7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次，等候一两分钟,会出现以下对话框：&& 这是Excel密码对应的原始密码(此密码和之前设置的密码均能打开此文档。
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：1077180次
积分：12786
积分：12786
排名：第673名
原创：187篇
转载：174篇
评论：342条
(1)(2)(1)(1)(1)(1)(1)(3)(5)(4)(1)(1)(2)(2)(1)(1)(2)(3)(3)(1)(1)(1)(1)(1)(3)(3)(2)(3)(3)(3)(2)(1)(3)(2)(1)(6)(7)(3)(5)(2)(5)(4)(2)(2)(1)(3)(1)(1)(1)(2)(1)(2)(1)(3)(2)(3)(1)(4)(6)(7)(4)(3)(12)(6)(13)(19)(6)(16)(13)(9)(3)(2)(4)(4)(6)(8)(2)(6)(8)(1)(6)(1)(1)(9)(12)(1)(12)(28)(8)(1)(1)}