Note: The other languages of the website are Google-translated. Back to English

如何在Excel中恢复丢失的工作表保护密码?

我们总是设置密码以保护某些重要的工作表不被其他工作表破坏或修改。 但是,如果您忘记了密码,该怎么办? 幸运的是,Excel支持一些VBA代码来恢复丢失的工作表保护密码。 您可以这样处理此问题:

使用VBA代码在Excel中恢复丢失的工作表保护密码
有关保护工作表的更多教程...


使用VBA代码在Excel中恢复丢失的工作表保护密码

以下VBA代码可以帮助您快速取消工作表中的原始密码。

1。 打开您以前受保护的工作表。

2。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic for Applications窗口.

3。 点击 插页 > 模块,然后将以下代码粘贴到 模块窗口.

VBA代码:恢复丢失的工作表保护密码

Sub PasswordRecovery()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
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
ActiveSheet.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 ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

4。 然后点击 F5 键运行此代码,然后会弹出一个提示框,单击 OK 将其关闭,您的受保护工作表密码将立即被取消。

笔记:

1.使用此代码,您一次只能恢复一个工作表保护密码,如果有多个受保护的工作表,则需要一个一个地应用此代码。
2.上面的代码来自 http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.


使用Excel中的密码轻松地同时保护多个工作表:

新的 保护工作表 实用程序 Kutools for Excel 可以帮助您使用相同的密码批量保护多个工作表。 它还提供了实用程序来同时取消保护这些工作表。 下载完整功能 30- 现在免费试用 Kutools for Excel!


相关文章

如何在Excel中一次保护多个工作表?

如何在Excel中一次取消保护多个工作表?


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (98)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
在 excel 2013 中,通过恢复对我不起作用
该评论由网站上的主持人最小化
谢谢!!! 适用于 2007 年的办公室
该评论由网站上的主持人最小化
高超!!!!!!!!! 工作正常。
该评论由网站上的主持人最小化
简单的修复。 “知识就是力量”的又一案例! 感谢您分享您的知识以增强他人的能力!
该评论由网站上的主持人最小化
完美地工作。 知识就是力量,感谢您分享您的知识以赋予他人权力!
该评论由网站上的主持人最小化
亲爱的团队根据您的说法,我这样做并解决了我的问题,但另一个问题是我有一张 Excel 表,其中一张表受密码保护,当我按 Alt+F11 并选择插入选项时,会禁用 Moudle 选项,所以我该如何取回它。 请给我建议。
该评论由网站上的主持人最小化
在 Excel 2013 中像魅力一样工作!!! 你是最棒的,谢谢!
该评论由网站上的主持人最小化
太感谢了!! 它对我有用...
该评论由网站上的主持人最小化
谢谢Chacha G(谷歌)
该评论由网站上的主持人最小化
非常感谢您的帮助,几乎早早放弃了,直到我尝试了您的方法,它立即起作用,再次感谢
该评论由网站上的主持人最小化
我打开了我想取消保护的文件,并被要求输入密码。 我按住 Alt+F11 键,它使我的电脑屏幕变暗。 我从来没有超过那个点。
该评论由网站上的主持人最小化
我使用的是 Microsoft Excel 2007,当我打开受保护的文件时,它要求输入我忘记的密码。 当我同时按住 Alt+F11 时,屏幕变暗了,我从来没有超过那个点。
该评论由网站上的主持人最小化
非常有用和及时的信息。 谢谢。
该评论由网站上的主持人最小化
它工作......非常感谢你:-)
该评论由网站上的主持人最小化
我非常感谢你的帮助。 最良好的祝愿。
该评论由网站上的主持人最小化
这个的大约运行时间是多少? 我的机器现在卡住了 30 分钟。
该评论由网站上的主持人最小化
惊人的。 你是天才
该评论由网站上的主持人最小化
惊人的! 谢谢你的帮忙!
该评论由网站上的主持人最小化
惊人的!!! 帮了大忙 :lol:
该评论由网站上的主持人最小化
谢谢支持。 物联网世界正在真正改变我们的生活。 谢谢!
这里还没有评论
加载更多
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护