最新-excel2019保护工作表忘记密码怎么办 精品

excel密码忘记了怎么办？这是我见过最好的解决方法之前给大家有讲过保护工作表的那些事儿，简单回忆一下吧，整个excel文档加密，工作表加密、部分单元格加密、excel窗口的加密。

那么我们已经加了密的文档忘记密码了如何解决呢？之前都是给大家说密码一定要自己要备份，那么肯定有人会问那万一就是忘记了怎么办呢？其实解决方法是有的。

下面小菜老师给大家说一下关于6位一下的密码如何解决？第一步：新打开一个excel文档，同时按Alt和F11，进入VBA 界面，第二步：点菜单上的插入，模块，第三步：在新出来的窗口粘贴一下代码：Sub crack()Dim i As LongDim FileName As Stringi = 0FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))Application.ScreenUpdating = Falseline2: On Error GoT o line1Workbooks.Open FileName, , True, , iMsgBox "Password is " & iExit Subline1: i = i + 1Resume line2Application.ScreenUpdating = TrueEnd Sub注意事项：在测试的时候尽量关掉其他程序，提高速度。

想知道工作表的保护事儿吗？赶紧关注微信号“路凡教育”。

小菜老师告诉你相关的秘密。

1.按常规，输入可能是，但不确定的密码后，弹出密码错误的提示，无法对文件进行修改，如
果从头到尾重新制作文件，太消耗脑力了，这样会使无辜少年头变成白发嗡的；
2.如果这份资料是自己制作的，再来一次又何妨？如果是别人的资料，你就真的要吓忙了；这里告诉你一个绝对可靠而简单的办法，先点确定关掉提示吧！
3.下载EXCEL 密码清楚工具；
打开
解压
4.解压并打开下载的破解工具；
5.点击这个尾缀为exe 的美女图标（破解工具），进行安装；
6.如果你已打开同类
型的文件，会弹出
此提示框，按提示
关闭工作表，再
点下一步继续安
装软件；
7.注意，你不同意此协议就无法点下一步噢！
8.点击所有出现的下
一步按钮，直到出
现安装按钮，再点
一下安装；
9.完成安装，再次打开忘记保护密码的文件（实际是所有此类文件）后，此处多了一个解密
工具箱；
8.点击所有出现的下
一步按钮，直到出
现安装按钮，再点
一下安装；
1
2
10.点工具箱右边三角形，选择工作表密码；
11.点确定按钮；
EXCEL 工作表忘记保护密码快速破解方法
12.这时，激动人心的结果出来了，鼠标一点，工作表里面的图片可以重复编辑，任何单元格都
可以重新编辑了，真道高一尺，魔高一丈啊；
编后语：
1.衷心感谢，无私上传此工具的大神，也感谢免费下载的网站；
2.如果此大神再努力一把，我们可以掌控美日的通讯（指挥）系统，保卫海疆，收复失土就
可不费吹灰之力也，我们也不必每逢天下大事，都要去感概一下成吉思汗，只识弯弓射大雕了！。

excel工作表保护密码忘了在日常工作中，我们经常会使用Excel进行数据处理和分析。

而在使用Excel 的过程中，我们经常会为工作表设置保护密码，以防止他人对工作表进行未经授权的修改。

然而，有时候我们可能会忘记设置的保护密码，导致无法对工作表进行修改。

那么，当我们忘记了Excel工作表的保护密码该怎么办呢？首先，我们可以尝试使用一些常见的密码来解锁工作表。

有时候，我们可能会设置一些常用的密码，比如生日、电话号码、或者是一些简单的数字组合。

所以，我们可以先尝试这些常见的密码，看是否能够成功解锁工作表。

如果使用常见密码无法解锁工作表，我们还可以尝试使用一些密码破解工具。

在互联网上有很多针对Excel密码破解的软件，我们可以下载并尝试使用这些软件来破解工作表的保护密码。

当然，在使用这些软件的过程中，我们需要注意选择正规可靠的软件，以免下载到一些带有恶意软件的程序，导致电脑受到损害。

此外，我们还可以尝试使用VBA代码来解锁Excel工作表的保护密码。

通过编写一些简单的VBA代码，我们可以尝试绕过保护密码，对工作表进行修改。

当然，这需要一定的VBA编程知识，如果我们不熟悉VBA，可以寻求一些专业人士的帮助。

如果以上方法都无法解锁Excel工作表的保护密码，我们还可以考虑使用一些第三方工具来解决这个问题。

在互联网上有一些专门针对Excel密码破解的软件，它们通常具有强大的破解能力，可以帮助我们解锁工作表的保护密码。

当然，在选择使用第三方工具时，我们需要注意选择正规可靠的软件，以免下载到一些不安全的程序。

总的来说，当我们忘记了Excel工作表的保护密码时，我们可以尝试使用一些常见密码、密码破解工具、VBA代码或者第三方工具来解决这个问题。

当然，在进行这些操作时，我们需要注意选择安全可靠的方式，以免给电脑带来安全隐患。

希望以上方法可以帮助到你，解决忘记Excel工作表保护密码的问题。

excel解密方法
Excel文件受到来自Microsoft Office的加密保护，有时候当我们需要打开一个已加密的Excel文件的时候可能会出现一些错误，Windows会要求我们提供解密密码。

打开被加密的 Excel 文件是必不可少的，也许我们已经忘记了密码怎么办呢?这里就推荐几种Excel解密方法给大家，我们可以试试去实现。

1、使用文件打开密码恢复工具来恢复文件解密密码。

这种方法需要使用专业免费的文件加密密码恢复工具，这样我们可以用加密工具针对特定的文件类型(如Word 、PDF、Excel等文件 )，来进行安全的文件解密密码恢复。

2、使用密码暴力破解软件来解密Excel。

虽然这种方法可以有效地破解文件密码，但是破解速度极慢，尤其是当文件加密强度比较高的时候，破解工具可能要花费好几个小时甚至几到几天的时间才能破解出密码，当然，这也取决于文件大小、文件加密算法和文件的密码强度等因素。

3、如果不小心忘记文件的密码，我们可以使用穷举法暴力破解Excel文件的密码；穷举法暴力破解的方法也很简单，就是让计算机列举出所有可能的密码，从中找出正确的解密密码。

4、还有就是使用解密服务，我们可以找到一些专业的文件解密服务来为我们提供文件解密服务，这样就可以省去麻烦，把文件交给解密专家，他们可以针对不同加密算法提供解码工具和技术，给出解密方案以及提供解密服务的收费标准。

总之，上述四种常见的Excel解密方法基本可以满足绝大多数人的需求，如果你遇到了Excel被加密文件，不要担心，上述四种解密方法是可以帮助你解密文件的，但是有时候，你可能需要尝试几种方案，才能实现解密文件，希望大家能够掌握一定的解密技能，及时解决文件加解密问题。

excel表格保护密码忘了怎么办在使用Excel的时候，都会讲excel给设置了密码，以防他人篡改或误删数据。

但时间长了，密码却遗忘了，这是该如何是好。

下面让学习啦我为你带来excel表格爱护密码忘了的解决方法。

excel密码解除步骤如下：1、打开excel，点击菜单栏的“视图”，点击二级菜单里的“宏”，选择录制宏。

2、在弹出来的方框中输入宏的名字，点击确认。

3、重复第一步的步骤，不过这次点击“停止录制”。

4、选择查看宏。

5、编辑宏。

6、在弹出来的代码框输入下面的代码。

Public Sub AllInternalPasswords()Breaks worksheet and workbook structure passwords. Bob McCormickprobably originator of base code algorithm modified for coverageof workbook structure / windows passwords and for multiplepasswordsNorman Harker and JE McGimpsey 27-Dec-2021 (Version 1.1)Modified 2021-Apr-04 by JEM: All msgs to constants, andeliminate one Exit Sub (Version 1.1.1)Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine vbNewLineConst AUTHORS As String = DBLSPACE vbNewLine _Adapted from Bob McCormick base code by _Norman Harker and JE McGimpseyConst HEADER As String = AllInternalPasswords User Message Const VERSION As String = DBLSPACE Version 1.1.1 2021-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. Dont stuff up crucial formulas _or data. DBLSPACE Access and use of some data _may be an offense. If in doubt, dont.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 VERSIONConst 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 computers specification. DBLSPACE _Just be patient! Make me a coffee! AUTHORS VERSIONConst 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 VERSIONConst MSGONLYONE As String = Only structure / windows _ protected with the password that was just found. _ ALLCLEAR AUTHORS VERSION REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim 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 StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADER ElseOn Error Resume NextDo dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For 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 ThenPWord1 = 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, HEADERExit Do Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADER Exit SubEnd IfOn Error Resume NextFor Each w1 In WorksheetsAttempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In WorksheetsChecks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For 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 ThenPWord1 = 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, HEADERleverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR AUTHORS VERSION REPBACK, vbInformation,HEADEREnd Subexcel表格爱护密码忘了怎么办。

excel密码忘记了怎么解锁导读：本文将介绍如何解锁忘记密码的Excel文件。

当您忘记了您的Excel密码时，可以使用两种方法进行解锁。

第一种方法是使用第三方密码恢复工具，第二种方法是使用VBA宏代码进行解锁。

下面将详细介绍这两种方法的步骤。

对于Excel密码的忘记，有两种可行的解锁方法。

第一种方法是使用第三方密码恢复工具，第二种方法是使用VBA宏代码。

下面将详细介绍这两种方法的步骤。

方法一：使用第三方密码恢复工具第一步：下载并安装密码恢复工具访问一个可信的软件下载网站，搜索并下载一个Excel密码恢复工具。

确保选择一个经过验证的工具，并确保从安全可信的来源下载。

第二步：打开密码恢复工具双击下载的文件，按照安装向导的指示进行安装，并打开密码恢复工具。

第三步：导入Excel文件在密码恢复工具中选择“导入”选项，然后选择您忘记密码的Excel文件，并点击“导入”。

第四步：选择恢复模式工具会提供不同的恢复模式，如暴力恢复、字典恢复等。

选择一个适合的恢复模式，并设置相应的选项。

第五步：开始密码恢复点击“开始”按钮，密码恢复工具将开始尝试恢复您的Excel密码。

这个过程可能需要一些时间，取决于密码的复杂性。

第六步：获得密码当密码恢复工具找到密码时，它会在屏幕上显示出来。

将找到的密码记下来，然后使用它来解锁您的Excel文件。

方法二：使用VBA宏代码第一步：打开Excel文件双击您忘记密码的Excel文件，打开它。

第二步：按下快捷键同时按下“ALT”和“F11”键，打开VBA编辑器。

第三步：插入新的模块在VBA编辑器中，选择“插入”菜单，并选择“模块”。

第四步：复制VBA代码从可信来源复制以下VBA宏代码，并在新建的模块中粘贴。

Sub PasswordBreaker()'Breaks worksheet password protection.On Error Resume NextFor Each ws In Worksheetsws.Unprotect Password:=""Next wsEnd Sub第五步：运行宏代码按下“F5”或点击“运行”按钮运行宏代码。

忘记excel密码的解决方法
忘记Excel密码是一个常见的问题，但幸运的是有几种方法可以解决这个问题。

首先，你可以尝试使用一些基本的密码，比如你常用的密码或者与你相关的日期或数字组合。

如果你仍然无法记起密码，以下是一些更具体的解决方法：
1. 使用密码提示，在输入密码时，Excel通常会提示你设置一个密码提示。

这个提示可能会帮助你回忆起密码。

2. 使用密码恢复工具，有一些第三方工具可以帮助你恢复忘记的Excel密码。

这些工具可以通过暴力破解或其他方法来尝试解锁文件。

但请注意，使用第三方工具可能存在安全风险，因此请确保从可信赖的来源获取工具并且在使用后立即删除工具。

3. 重置密码，如果你无法通过上述方法解决问题，你可以考虑重置密码。

你可以尝试将文件另存为另一种格式或者将文件内容复制到新文档中，这样可以去除密码保护。

4. 使用Excel密码恢复服务，有一些在线服务可以帮助你恢复Excel密码。

你可以上传受保护的文件，并支付费用以获取密码。

5. 联系Microsoft支持，作为最后的手段，你可以尝试联系Microsoft支持团队寻求帮助。

他们可能有一些高级的方法来帮助
你解决问题。

总的来说，忘记Excel密码是一个令人沮丧的问题，但通常情
况下是可以解决的。

希望上述方法中的某一个能够帮助你解决问题。

怎么给excel2019加密和解密篇一：2019破解密码操作07版工作表宏如何开启在空白菜单栏处右击出现"自定义快速访问工具栏"-->信任中心-->信任中心设置按钮-->宏设置-->点击启用所有宏-->确定-->确定,下次开文件时就可以自动打开文件中的宏了1在空白菜单栏处右击出现《自定义快速访问工具栏》2点击《信任中心》3点击《信任中心设置按钮》4点击《宏设置》5点击《启用所有宏》，再点击《确定》密码破解（撤销工作表保护）1打开文件2工具---宏----录制新宏---输入名字如（必须是字母的）3停止录制(这样得到一个空宏)4工具---宏----宏,选,点编辑按钮5删除窗口中的所有字符(只有几个),替换为下面的内容(复制吧)6关闭编辑窗口7工具---宏-----宏,选,运行,确定两次,等2分钟,再确定,密码就会出现，然后在撤销工作保护中输入。

内容如下：()'''''27--2019(11)'2019--04,'(111)'=&=&&_""&_""=""=&"1112019--04"=&" "&_""=&""&_","&_&"!"&&""&_&"!,!!,!!!"&_&","&_"'"&_""&&""&_",'"1=""&_" ,"&&2=""&_""&&_""&&=""&_""&&""&_","&_",'"&&_"!!"&&1=""&_""&&_""&&"$$" &&_""&_""&&_""&&2=""&_""&&""&_&"$$"&&""&_""&_""&&""&_""&&=""&_""&_&&& 1,2,,,,,1,23,4,5,61,===1=111,,,,2,,'=6566=6566=6566=6566=65661=65662= 65663=65664=65665=65666=6566=32126()&()&()&_()&()&(1)&(2)&_(3)&(4)&(5 )&(6)&()=_=1=()&()&()&()&_()&(1)&(2)&(3)&_(4)&(5)&(6)&()(1,_"$$",1),, '0,,1'11110=1'1=1111'=6566=6566=6566=6566=65661=65662=65663=65664=656 65=65666=6566=32126篇二：怎么打开2019加密文档怎么打开2019加密文档文档的密码可谓是所有产品中最复杂的，密码类型最多，从整个账簿的密码到单个工作表密码，从常设的打开密码到密码。

excel表格保护密码忘了怎么办在使用Excel的时候，都会讲excel给设置了密码，以防他人篡改或误删数据。

但时间长了，密码却忘记了，这是该如何是好。

下面让为你带来excel表格保护密码忘了的解决方法。

excel密码破解步骤如下：打开受密码保护的工作表工具---宏----录制新宏---输入名字如:hh停止录制(这样得到一个空宏)工具---宏----宏,选hh,点编辑按钮删除窗口中的所有字符,替换为下面的内容: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 & vbNewLineConst 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 makesure 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 & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _"workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _"protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShT ag As Boolean, WinTag As Boolean Application.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindows End WithShT ag = FalseFor Each w1 In WorksheetsShT ag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADER Exit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinT ag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADER ElseOn Error Resume NextDo 'dummy do loopFor 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 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With 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 ThenPWord1 = 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, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShT ag ThenMsgBox MSGONLYONE, vbInformation, HEADER Exit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShT ag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not. ShT ag = ShTag Or w1.ProtectContentsNext w1If ShT ag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For 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 ThenPWord1 = 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 sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADEREnd Sub关闭编辑窗口，工具---宏-----运行,等1分钟,再确定.OK,没有密码了关于excel密码破解的。

Excel工作表（簿）保护密码忘了怎么办？在Excel中可以通过工作表保护那些不希望别人修改的区域：也可以保护工作簿，以防止某些关键的工作表被删除或者结构修改：但是，经常会遇到一个麻烦事：保护密码忘了怎么办？下面介绍一种非常简单的去除工作表和工作簿保护密码的方法：1. 去除工作表保护密码首先，在资源管理器中将设置了工作表保护密码的Excel文件名称中添加后缀：.zip，系统会提示你警告信息，忽略它，点击是。

如果系统中装了RAR之类的压缩软件，就可以双击改名后的文件，将其打开。

或者，在文件上点击鼠标右键，选择在Windows 资源管理器中打开，在上述目录结构中，双击进入“xl”目录：继续双击进入worksheets目录首先，这里列出了所有的以工作表名称命名的xml文件，例如，在我们的示例文件中，只有一个工作表，sheet1，所以只有一个文件：sheet1.xml，将其复制到另外的地方（如果有多个，就复制那个设置了工作表保护密码的文件）。

选择以记事本打开复制出来的sheet1.xml文件在记事本中，搜索protect，你会找到<sheeProtection ...... />这样的一节内容：将上图中蓝色部分标识的文字全部删除：关闭记事本，保存文件。

然后将修改后的sheet1.xml复制回去，覆盖原来的文件：关闭打开的zip文件夹资源管理器，然后将文件后缀中的.zip删除，点击是。

双击打开该文件，你会发现该工作表已经没有保护了：2. 去除工作簿保护密码同样，将设置了工作簿保护的Excel文件名称后面加上.zip后缀，并在资源管理器中打开：进入到xl目录，将其中的workbook.xml复制到其他目录，并用记事本打开：同样搜索protect，找到蓝色加亮的一节：<workbookProtection ....../>将其删除，并保存。

复制回刚才改名后的zip文件夹：去掉zip后缀，完成。

Excel黑科技：帮你破解Excel工作表保护密码和工作簿密码一、工作表密码破解在Excel中，为了保护自已的工作表不被修改，我们可以添加保护密码。

如果有一天密码忘了怎么办？如图1，撤消工作表保护需要输入密码。

图 1今天小编就教你一个绝大多数用户都不知道的黑科技：一招破解工作表保护密码。

操作步骤：Step1:把Excel文件的扩展名xlsx修改为Rar。

瞬间Excel文件变成了压缩包。

如果你的文件扩展名没有显示出来，请点击此电脑→查看→显示与隐藏，把文件扩展名前面的方框打勾，如图2。

图 2修改文件扩展名之前的文件图标长成这样，如图3：图 3点击右键修改文件扩展名为rar，提示如图4：图 4点击“是”，修改扩展名之后的文件图标变成这样了，如图5。

图 5Step2:双击打开压缩包，找到xl→Worksheets（如图6和图7）,把受保护的工作表sheet1.xml（如图8）拖动复制出来。

图 6图 7图 8Step3、用记事本打开sheet1.xml文件，搜protect快速找到保护代码并删除，如图9和图10，保存后把文件拖回到压缩包中。

图 9图 10Step4、重新把后辍名由rar改回xlsx，打开Excel文件后发现工作表保护密码已删除，如图11。

图 11二、工作簿密码破解Excel工作簿保护后（审阅→保护工作簿），工作表无法插入、删除和取消隐藏等操作。

如果要撤销工作簿保护，必须输入密码，如图12：图 12如果忘记了密码怎么办？按照以下步骤操作可以解除密码。

操作步骤如下：Step1、在工作表标签右键菜单中点击“查看代码”，如图13，打开一个新的窗口(Visual baisc..编辑器)，插入→模块，然后把下面的代码粘贴到右侧的空白窗口，如图14。

图 13代码Sub test()ActiveWorkbook.Sheets.CopyFor Each sh In ActiveWorkbook.Sheetssh.Visible = TrueNextEnd Sub图 14Step2、把光标放在代码中，点工具栏中的”运行”按钮，运行上面代码后，会把原文件另存为一个新的Excel文件，这时只需要重新保存即可。

工作表保护密码破解（图解）1、新建一个EXCEL文件“BOOK1”，在工具栏空白位置，任意右击，选择Visual Basic项，弹出Visual Basic工具栏：2、在Visual Basic工具栏中，点击“录制”按钮，弹出“录制新宏”对话框，选择“个人宏工作簿”：3、选择“个人宏工作簿”后按确定，弹出如下“暂停”按钮，点击停止：4、在Visual Basic工具栏中，点击“编辑”按钮：5、点击“编辑”按钮后，弹出如下图的编辑界面：找到“VBAProject（PERSONAL.XLS）－模块－模块1（也可能是模块N-其他数字）”双击模块1－将右边代码容清空6、复制“工作保护密码破解”代码到右边框中，点保存，然后关闭“BOOK1”7、运行需要解密的“EXCEL文件”，在Visual Basic工具栏中，点击“运行”按钮8、点击“运行”按钮后，弹出“宏”对话框，点击运行“PERSONAL.XLS!工作保护密码破解”这个宏9、运行“PERSONAL.XLS!工作保护密码破解”这个宏后，如下图示意就可以解除工作表的密码保护了（这个图，如果工作表中有多组不同密码，每解开一组，就会提示一次，也就说可能会出现几次）工作表保护密码破解(代码）=========请复制以下容=============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 IntegerDim 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 ElseOn 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 IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If On Error Resume NextFor 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 IfEnd With Next w1 End If MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADEREnd Sub =========================================================。

excel2019保护工作表忘记密码怎么办篇一：Excel表格中忘了撤销工作表保护密码怎么办？Excel表格中忘了撤销工作表保护密码怎么办？用宏代码破解密码：以office2019为例说明，（2019也是一样的，只是菜单命令的位置不同）第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“确定”退出；再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PassWordBreaker，点击“确定”退出；第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码：Sub PasswordBreaker()Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim i1 As Integer, i2 As Integer, i3 As IntegerDim i4 As Integer, i5 As Integer, i6 As IntegerOn Error Resume NextFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126ActiveSheet.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 ThenMsgBox "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)ActiveWorkbook.Sheets(1).SelectRange("a1").FormulaR1C1 = 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 SubEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextEnd Sub第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了。

Excel表格密码破解的方法一、概述Excel表格是一款广泛使用的电子表格程序，它的安全性和隐私保护至关重要。

然而，有时候我们会忘记自己设置的Excel表格密码，或者需要破解别人设置的密码。

本文将对Excel表格密码破解的方法进行详细介绍，希望对大家有所帮助。

二、查看Excel表格的密码保护方式在尝试破解Excel表格密码之前，我们首先需要了解Excel表格的密码保护方式。

Excel表格的密码保护主要分为两种：文档开放密码和工作表保护密码。

文档开放密码用于限制用户打开Excel文档，而工作表保护密码则是用于限制其编辑或者查看内容。

我们需要查看Excel表格使用了哪种密码保护方式，以便有针对性地进行破解。

三、常见的Excel表格密码破解工具1. Excel密码破解大师Excel密码破解大师是目前比较流行的一款Excel表格密码破解工具，它可以帮助用户快速破解各种类型的Excel表格密码。

用户只需简单操作，即可轻松完成密码破解。

该工具操作简单，界面友好，适合各类用户使用。

2. Passper for ExcelPassper for Excel是一款专业的Excel表格密码破解软件，它可以帮助用户恢复忘记的Excel打开密码和修改密码。

该软件兼容各种版本的Excel文档，能够高效、安全地进行密码破解。

用户只需按照软件提示进行操作，即可完成密码破解。

3. iSunshare Excel密码破解iSunshare Excel密码破解是一款专业的Excel表格密码破解工具，它支持多种密码破解方式，包括暴力破解、字典破解和智能破解等。

用户可以根据自己的需求选择合适的破解方式，高效地破解Excel表格密码。

四、Excel表格密码破解的具体步骤1. 准备破解工具用户需要下载并安装一款专业的Excel表格密码破解工具，如Excel密码破解大师、Passper for Excel或iSunshare Excel密码破解等。

Excel工作表忘记密码解决方法在我们平时工作中，经常会遇到有的Excel工作簿是设有密码的，当我们想修改里面的内容的时候，是没办法修改的，这时候我们可能对这个表格就束手无策了。

尤其有时候比较郁闷的是，这个表格是自己设置的密码，然后想不起来了，这时候就更尴尬了。

那遇到这样的情况，我们要怎么做呢？今天就教大家2种方法，教你破解Excel设置的密码~~方法一、使用压缩包的方法1、首先我们对设置密码的Excel名称进行重命名，把后缀名的.xlsx，改成RAR。

有的小伙伴讲，我这个怎么看不到后缀名怎么办呢？这时我们只要打开【我的电脑】-【文件夹选项】-【查看】，把里面的【隐藏已知文件类型的扩展名】前面的√取消掉，即可显示了所有文件的后缀名了。

2、直接双击打开这个.rar文件，可以看到如下的图示3、我们找到【xl】文件夹，即上图的第3个文件夹，我们打开它，并找到worksheets文件夹，然后点开，可以看到几个sheet名称。

4、这时确认好，设置密码保护的工作表是哪个，然后双击打开它。

我们上面设置密码的工作表是sheet1，所以我们打开sheet1，可以看到很多字符。

不用管它，我们只需要按Ctrl+F查找，查找内容为：Protect，然后选中包含protect内容的两个符号<>（包含这两个符号）之间的内容，全部点击delete删除即可。

5、删除后，关闭文档，这时会提示我们是否更新，我们选择【是】6、更新完成后，关闭压缩包，最后再把文件的后缀名，由.RAR格式更改为.xlsx格式，然后我们再打开工作簿，即可以正常编辑了。

最后在给大家分享下原理：在office 2007及以上版本中，Excel的后缀名变为.xlsx，其本质是一个压缩包，构成Excel的所有源代码都在这个压缩包中，所以我们可以通过将其后缀更改为.rar，以压缩包的形式提取出里面的代码内容，并加以修改。

如果是07版本以前的.xls文件，我们只要用office 2007版或以上版本，打开此Excel表格，并另存为.xlsx文件，再使用如上操作即可方法二、借用VBA实现用上面的方法做的时候，大家应该发现了，我们需要找到设置密码保护的工作表，然后再把此工作表内的protect内容删除，如果只有一个那还好操作，如果一个工作簿内有多个工作表，那我们再一个个的去解除密码保护就非常慢了。

忘记工作表保护密码的解决方法你是不是也有过这种烦恼呀，工作表设了保护密码，结果自己给忘了，这可太让人头疼了。

别担心，我这儿有几个解决办法呢。

一、利用VBA代码。

如果你对VBA有点了解，这可是个挺酷的方法哦。

不过要是不太懂也没关系，我可以给你简单说说。

你可以打开Excel，然后按“Alt+F11”组合键，这样就打开了VBA编辑器。

在这个编辑器里呢，你要找到对应的工作表。

比如说，如果你的工作表在Sheet1，那就在左边的工程资源管理器里找到Sheet1这个对象。

然后呢，在右边的代码窗口里输入这么一段代码：Sub PasswordBreaker()Dim i As Long, j As Long, k As Long.Dim l As Long, m As Long, n As Long.Dim i1 As Long, i2 As Long, i3 As Long.Dim i4 As Long, i5 As Long, i6 As Long.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 n = 65 To 66.For i1 = 0 To 9: For i2 = 0 To 9: For i3 = 0 To 9.For i4 = 0 To 9: For i5 = 0 To 9: For i6 = 0 To 9.ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(n) & i1 & i2 & i3 & i4 & i5 & i6.If ActiveSheet.ProtectContents = False Then.MsgBox "密码是 " & Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(n) & i1 & i2 & i3 & i4 & i5 & i6.Exit Sub.End If.Next: Next: Next: Next: Next: Next.Next: Next: Next: Next: Next: Next.End Sub.输入完这段代码之后呢，你就可以运行这个宏啦。

excel密码破解的三种方式——以备不时之需！（建议收藏）现在的互联网信息时代，人们对信息安全比较敏感，也比较重视，确实，哪个人都不希望自己辛辛苦苦劳动得来的东西就这样被别人窃取了。

我们在日常的生活、工作中经常遇到Excel文件加密了，此时工作表就不能编辑修改，只能进行简单的复制操作，这时候我们最希望的就是能够将密码进行破解！excel工作表密码破解的方法大致有以下三种：1.VBA代码破解；2.将文件后缀名修改为RAR压缩文件后打开相关文件将加密代码删除；3.下载现成的插件。

在演示这三种解密方法之前，我们先对Excel文件进行加密，以便后面的操作演示：对身份证校验工作表进行加密提示输入密码才能修改，说明已经加密成功！下面依次演示如何使用这三种方法进行破解Excel文件的密码。

方法一：VBA代码破解右键单击身份证校验工作表，单击查看代码，如下图所示：然后粘贴以下VBA代码，在点击运行（F5），大功告成！Sub 密码破解()ActiveSheet.ProtectDrawingObjects:=True, CONTENTS:=True,AllowFiltering:=TrueActiveSheet.ProtectDrawingObjects:=False, CONTENTS:=True,AllowFiltering:=TrueActiveSheet.UnprotectEnd Sub其实代码还不止这个1.Sub RemoveShProtect()2.Dim i1 As Integer, i2 As Integer, i3As Integer3.Dim i4 As Integer, i5 As Integer, i6As Integer4.Dim i7 As Integer, i8 As Integer, i9As Integer5.Dim i10 As Integer, i11 As Integer,i12 As Integer6.Dim t As String7.On Error Resume Next8.If ActiveSheet.ProtectContents =False Then9.MsgBox '该工作表没有保护密码!'10.Exit Sub11.End If12.t = Timer13.For i1 = 65 To 66: For i2 = 65 To66: For i3 = 65 To 6614.For i4 = 65 To 66: For i5 = 65 To66: For i6 = 65 To 6615.For i7 = 65 To 66: For i8 = 65 To66: For i9 = 65 To 6616.For i10 = 65 To 66: For i11 = 65 To66: For i12 = 32 To 12617.ActiveSheet.Unprotect Chr(i1) &Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) _18.& Chr(i6) & Chr(i7) & Chr(i8) &Chr(i9) & Chr(i10) & Chr(i11) & Chr(i12)19.If ActiveSheet.ProtectContents =False Then20.MsgBox '解除工作表保护!用时' &Format(Timer - t, '0.00') & '秒'21.Exit Sub22.End If23.Next: Next: Next: Next: Next: Next24.Next: Next: Next: Next: Next: Next25.End Sub方法二：将文件后缀名修改为RAR压缩文件后打开相关文件将加密代码删除进行破解1、我们关闭工作簿，将此工作簿重命名修改文件后缀名为“rar”2、双击打开rar文件，找到'sheet1.xml',文件路径为“xl>>worksheets>>sheet1.xml”，因为身份证验证工作表是第一个工作表，所以选择sheet1.xml，要是第二个工作表加密就选择sheet2.xml，两个都加的话就两个文件都修改。

忘记了EXCEL表格中“保护工作簿”和“保护工作表”的密码，该怎么办？“保护工作簿”和“保护工作表”是EXCEL中常用的两个功能。

“保护工作簿”能够隐藏不想被别人看到的SHEET，而“保护工作表”则能使单元格不被编辑，当在审阅中设置了这两个选项后，就不能解除隐藏或编辑被保护的单元格了。

如果忘记了这两个密码，就很悲催了，如果要修改的话，可能就得重做了。

下面进入解决办法。

这篇文章不是教大家破解EXCEL的打开密码，而是解决“保护工作簿”和“保护工作表”的密码被遗忘的问题。

首先你得能够打开这个EXCEL文件，如果有密码保护不能打开，这个方法是无效的！但是有一点，需要提前声明：本文的方法仅仅是针对自己的文件忘记密码而作出的补救措施，千万千万不能用在别人的文件上！大家记住，作人作事都应守住自己的底线，技术可以学到，但是绝对不能用在不该用的地方！！！请谨记！！！我们直接进入操作方法，接着往下看。

首先要打开查看文件的扩展名（如果有人不懂怎么开请在下面留言，我会回复，或下次开一篇文章来讲）；把忘记密码的文件扩展名改为rar，比如“人员表.xlsx”改成“人员表.rar”，这时文件的图标会变成压缩文件的样子；双击这个文件，前提是你电脑上安装有压缩软件（winrar或好压）；这时会在压缩软件里打开这个文件；打开xl文件夹，如上图。

如果设置了“保护工作簿”，找到workbook.xml文件，把它拖到桌面上；右键点workbook.xml，打开方式，记事本（或notepad）；点“编辑”-“查找”，输入protect，查找到一个结果；如上图，选中<workbookProtection ... />这部分代码，中间的...表示有一串代码，只看两个<>符号，删除，保存后关闭文件。

把这个文件拖回原位置提示要添加进压缩文件，确定如果设置了“保护工作表”，继续往下面看：继续打开worksheets文件夹，里面会显示sheet*.xml的文件，其实就是EXCEL中的SHEET；用刚才5-7的方法，把这几个文件拖到桌面上，分别用记事本打开；查找protect，如果有如下代码，<sheetProtection.../>，和上面一样，删除。