您当前所在位置：
Excel技巧 如何撤销工作表保护密码
Excel技巧 如何撤销工作表保护密码
对于重要的表格文件，我们都会设置保护密码 ，但时间一久，忘记了密码，如果想破解密码那么可以做点什么呢？？
相关软件下载：Microsoft Office 2010
软件名称：Microsoft Office 2010
下载地址：
软件版本：SP1 64Bit 简体中文官方版
软件类别：文字处理
Office 2010支持Windows XP SP3、Windows Vista SP1、Windows Server 2003 R2、Windows Server 2008 SP2、Windows 7 32 64-bit等操作系统(未列出Windows Server 2008 R2)，建议安装所在硬盘分区至少有3GB可用空间，供安装程序和临时文件所用。
今天小编就给大家介绍如何快速撤销工作表保护密码，密码瞬间得到破解。
具体设置步骤：
1、打开您需要破解保护密码的Excel文件;
2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:
3、停止录制(这样得到一个空宏);
4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮;
5、删除窗口中的所有字符(只有几个),替换为下面的内容;
从横线下开始复制-----------------------------
Option Explicit
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
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
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
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, vbInformation, HEADER
----------------------
复制到横线以上
6、关闭编辑窗口;
7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
关键词标签：
延伸相关阅读：
第九专题推荐
每周酷软推荐
一款电脑系统重装软件
小黑马系统重装大师是一款简单好用的电脑系统重装软件，小黑马一键...
第九Excel推荐Word\Excel是我们日常工作者必备的办公软件、我们大多数数据都要通过这个软件来输入和存储的，有时需要给文档设置一个密码，这样能给文档带来安全性！在此同时，如果自己忘记了密码，自己也查看不了自己文档的内容。所以就需要找个办法清除文档的密码。&
Office Password Remover下载：
OPRemove在线密码清除工具
为了便于测试，我在桌面新建 Microsoft Word 文档，然后双击打开，在里面输入一些内容，然后设置一个密码如1所示。
我们把设置密码的文档保存一下，然后重新打开，会提示输入密码的对话窗，如图2所示
这个密码是我自己设置的，假设现在我设置的密码忘记了，又想打开这个文档，尝试了自己设置的几次密码都不行，如图3所示，密码错误的提示。
为了找回我们的数据，就需要记得密码，密码忘记了就得破解他，或者是清除密码，首先需要去下载一个名为PRemove密码清除软件，然后运行，软件如图4所示。
我们单击软件窗口中的选择文件图标，浏览到需要清除密码的文档，然后打开该文档，如图5所示。
打开之后如图6所示，我们单击移除密码按钮。
弹出信息窗口，单击确定即可，如图7所示。
单击确定按钮之后，弹出如图8联网查找按索匹配的密码。
解密完成弹出如图9所示对话窗口。
解密完成之后会在文件目录生成多一个新建 Microsoft Word 文档 (DEMO)文件，这时这个文件的密码已经被清除，原文件就可以删除了。因为原文件的密码还在，这个软件清除密码之后会生成清除密码之后的文件，内容就是你加密文件的内容。所以可以放心的删除原文件。
如果你在没有联网的情况下进行清除密码的话，是清除不了的，会弹出如图10错误提示的对话窗口。&&&&&&&&&&&&&&&&&&&
&本软件属于在线破解的工具，使用必须联网才可以进行破解。
版权声明：本站收录的文章及教程都是本站小编精心制作，仅供学习交流之用，如转载请注明出处。
已有1条评论，
xp510网友 于
03:11:45 发布
不错，解决了我的问题，赞一个
建议使用以上版本或、浏览器访问本站，获得更好的用户体验。如何设置、修改及删除Excel 2010文档的密码 - Office办公助手
专业的Office办公软件学习和Office办公软件教程网站！
如何设置、修改及删除Excel 2010文档的密码
发布时间：03-11　来源：未知
在 Microsoft Office system 中，您可以使用密码防止其他人打开或修改文档、工作簿和演示文稿。
友情提醒：Microsoft 无法找回忘记的密码。
在 Excel 电子表格中设置密码
若要加密工作簿和设置打开文件密码，请执行下列操作：
1、单击&Office 按钮&，指向&准备&，然后单击&加密文档&。
2、在&密码&框中，键入密码，然后单击&确定&。
可以键入多达 255 个字符。默认情况下，此功能使用 AES 128 位高级加密。加密是一种可使您的文件更加安全的标准方法。
3、在&重新输入密码&框中，再次键入密码，然后单击&确定&。
若要保存密码，请保存文件。
从 Excel 电子表格中删除密码保护
1、使用密码打开电子表格。
2、单击&Office 按钮& ，指向&准备&，然后单击&加密文档&。
3、在&加密文档&对话框的&密码&框中，删除加密密码，然后单击&确定&。
4、保存电子表格。
设置修改 Excel 电子表格密码
除了设置打开 Excel 电子表格密码之外，您可以设置密码以允许其他人修改电子表格。
1、单击&Office 按钮& ，单击&另存为&，然后在&另存为&对话的底部单击&工具&。
2、在&工具&菜单上，单击&常规选项&。将打开&常规选项&对话框。
3、在&文件共享&下方，在&修改权限密码&框中键入密码。
4、在&确认密码&框中再次键入密码。单击&确定&。
5、单击&保存&。
注意： 要删除密码，请重复这些说明，然后从&修改权限密码&框中删除密码。单击&保存&。在 Microsoft Office system 中，您可以使用密码防止其他人打开或修改文档、工作簿和演示文稿。
友情提醒：Microsoft 无法找回忘记的密码。
在 Excel 电子表格中设置密码
若要加密工作簿和设置打开文件密码，请执行下列操作：
1、单击&Office 按钮&，指向&准备&，然后单击&加密文档&。
2、在&密码&框中，键入密码，然后单击&确定&。
可以键入多达 255 个字符。默认情况下，此功能使用 AES 128 位高级加密。加密是一种可使您的文件更加安全的标准方法。
3、在&重新输入密码&框中，再次键入密码，然后单击&确定&。
若要保存密码，请保存文件。
从 Excel 电子表格中删除密码保护
1、使用密码打开电子表格。
2、单击&Office 按钮& ，指向&准备&，然后单击&加密文档&。
3、在&加密文档&对话框的&密码&框中，删除加密密码，然后单击&确定&。
4、保存电子表格。
设置修改 Excel 电子表格密码
除了设置打开 Excel 电子表格密码之外，您可以设置密码以允许其他人修改电子表格。
1、单击&Office 按钮& ，单击&另存为&，然后在&另存为&对话的底部单击&工具&。
2、在&工具&菜单上，单击&常规选项&。将打开&常规选项&对话框。
3、在&文件共享&下方，在&修改权限密码&框中键入密码。
4、在&确认密码&框中再次键入密码。单击&确定&。
5、单击&保存&。
注意： 要删除密码，请重复这些说明，然后从&修改权限密码&框中删除密码。单击&保存&。在 Microsoft Office system 中，您可以使用密码防止其他人打开或修改文档、工作簿和演示文稿。
友情提醒：Microsoft 无法找回忘记的密码。
在 Excel 电子表格中设置密码
若要加密工作簿和设置打开文件密码，请执行下列操作：
1、单击&Office 按钮&，指向&准备&，然后单击&加密文档&。
2、在&密码&框中，键入密码，然后单击&确定&。
可以键入多达 255 个字符。默认情况下，此功能使用 AES 128 位高级加密。加密是一种可使您的文件更加安全的标准方法。
3、在&重新输入密码&框中，再次键入密码，然后单击&确定&。
若要保存密码，请保存文件。
从 Excel 电子表格中删除密码保护
1、使用密码打开电子表格。
2、单击&Office 按钮& ，指向&准备&，然后单击&加密文档&。
3、在&加密文档&对话框的&密码&框中，删除加密密码，然后单击&确定&。
4、保存电子表格。
设置修改 Excel 电子表格密码
除了设置打开 Excel 电子表格密码之外，您可以设置密码以允许其他人修改电子表格。
1、单击&Office 按钮& ，单击&另存为&，然后在&另存为&对话的底部单击&工具&。
2、在&工具&菜单上，单击&常规选项&。将打开&常规选项&对话框。
3、在&文件共享&下方，在&修改权限密码&框中键入密码。
4、在&确认密码&框中再次键入密码。单击&确定&。
5、单击&保存&。
注意： 要删除密码，请重复这些说明，然后从&修改权限密码&框中删除密码。单击&保存&。
上一篇： 下一篇：电脑教程_计算机子分类}