Excel中如何破解“撤销工作表保护密码

excel解除表格保护的方法步骤在Excel中录入太多的重要数据，这个时候就需要用到密码保护的方法进行保护，或许很多人都会设置密码保护，但有些朋友不会解除表格保护，下面是由店铺分享的excel解除表格保护的方法，希望对你有用。

excel解除表格保护的方法解除表格保护步骤1：打开要保护的excel解除表格保护步骤2：选择“审阅”选项，可以在该页面的工具栏上看到有一个“保护工作表”的工具栏excel解除表格保护的方法图2解除表格保护步骤3：点击该按钮，打开“保护工作表”对话框。

在该对话框中，需要设定一个取消保护工作表时的密码，以及保护工作表后，允许进行的操作，将允许的操作前面的复选框选中，即点击打上“√”excel解除表格保护的方法图3解除表格保护步骤4：点击“确定”按钮，弹出确定密码的对话框，输入“保护工作表”页面中设定的密码，然后点击确定excel解除表格保护的方法图4解除表格保护步骤5：此时，如果再在工作表页面中输入数据或修改数据时，会弹出该工作表被保护的提示信息。

excel解除表格保护的方法图5解除表格保护步骤6：当想编辑该文档的时候，执行取消保护工作表操作就可以了。

和设定保护工作表时的操作类似，打开要编辑的excel文档，选择审阅，可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具excel解除表格保护的方法图6解除表格保护步骤7：点击“撤销保护工作表”按钮，会弹出“撤销保护工作表”对话框，在编辑框中输入设定“保护工作表”时的密码，然后点击“确定”按钮excel解除表格保护的方法图7解除表格保护步骤8：回到excel工作表编辑区，发现可以编辑文档了。

excel文档保护怎么取消一、首先，打开Excel程序，打开要取消保护的excel表格，然后在Excel程序上方找到“审阅”点击打开。

二、然后在“审阅”菜单中，点击选择“撤销工作表保护”。

三、然后，在弹出的“撤销工作表保护”对话框中输入密码。

ex-vba迄今为止最简单的excel工作表密码解除方法
『动画解读』
对于设置了工作表密码的工作簿，打开后，具体操作步骤如下：
Step-01：通过菜单【开发工具】-【Visual Basic】进入VBA 编辑界面
Step-02：在VBA编辑窗口的【立即窗口】中逐步执行以下代码（输完一句回车后再输入另一句并回车其中sheet1为需要破解密码的工作表的名称）sheet1.Protect AllowFiltering:=truesheet1.unProtect
逐步执行这两行代码后，工作表的密码将被解除！！！
如果打开VBA编辑窗口时没有立即窗口，可以通过菜单【视图】-【立即窗口】调出来，如下图所示：
『扩展应用』如果需要批量解除的，可以自行加入循环控制语句，写成一个过程。

代码参考如下（将代码复制放在ThisWorkbook下，然后运行）：Sub clsWkShtPwd() Dim sht As Worksheet For Each sht In Worksheets
sht.Protect AllowFiltering:=True sht.unprotect NextEnd Sub
在此再次感谢大神们的分享！同时，一门技术是好是坏，全凭个人掌握，用于益处是为好……。

excel表格如何解除保护密码
在Excel中录入过多的重要数据是人们的习惯，因此这些文件都需要利用密码进行保护。

但过了段时间以后却觉得不需要进行保护。

就需要解除密码保护了。

接下来店铺举例简单的例子告诉大家解除excel 表格密码保护的方法。

解除excel表格密码保护的方法
解除密码步骤1：先录入密码，确定打开要取消密码的excel文件。

解除密码步骤2：在文件菜单下点击另存为，取消密码的办法其实就是再把文件保存一次，在保存替换原文件或重命名时将密码取消掉。

解除密码步骤3：点击工具选择常规选项
解除密码步骤4：删除密码，点击确定并保存。

解除密码步骤5：提示文件已存在要替换它吗?如果想要覆盖原文件直接点击是就替换掉了。

解除密码步骤6：如果想保留原文件重新存一份，点击否再修改文件名保存为一份新的文件。

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工作表保护密码瞬间即破！1、打开您需要破解保护密码的Excel文件；2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；3、停止录制(这样得到一个空宏)；4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；5、删除窗口中的所有字符(只有几个),替换为下面的内容；从横线下开始复制------------------------------------------------------------------------------------------Option ExplicitPublic 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' Modified 2003-Apr-04 by JEM: All msgs to constants, and' eliminate one Exit Sub (Version' 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 McGimpsey"Const HEADER As String = "AllInternalPasswords User Message"Const VERSION As String = DBLSPACE & "Version 2003-Apr-04"Const REPBACK As String = DBLSPACE & "Please report failure " & _"to the 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 & 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 & 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 IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As StringDim ShTag As Boolean, WinTag As Boolean= FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag OrNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn 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 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 (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, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag OrNext 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 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 (MSGPWORDFOUND2, _"$$", PWord1), vbInformation, HEADER'leverage finding Pword by trying on other sheetsFor Each w2 In WorksheetsPWord1Next 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-----------------------------------------------------------------------------------------复制到横线以上6、关闭编辑窗口；7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次；等一会,就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。

用宏代码破解密码：以为例说明，（2003也是一样的，只是菜单命令的位置不同）第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“MicrosoftOffice安全选项”窗口，选择其中的“启用此内容”，“确定”退出；再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PassWordBreaker，点击“确定”退出；第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisualBasic”编辑器，用如下内容替换右侧窗口中的所有代码：SubPasswordBreaker()DimiAsInteger,jAsInteger,kAsIntegerDimlAsInteger,mAsInteger,nAsIntegerDimi1AsInteger,i2AsInteger,i3AsIntegerDimi4AsInteger,i5AsInteger,i6AsInteger OnErrorResumeNextFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126 (i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)=FalseThen MsgBox"Oneusablepasswordis"&Chr(i)&Chr(j)&_ Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)(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)ExitSubEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextEndSub第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了。

撤销工作表保护密码忘记了怎么办
1、先找到有工作表保护密码的Excel表格，然后将忘记密码的Excel文件名称后缀由.xlsx改为.rar，如果有提示可以忽略，一般不会造成什么影响。

2、用压缩文件打开忘记密码的Excel文件，然后按以下步骤进行操作：xl——worksheets——sheet1.xml（这里是将sheet1工作表设置了保护密码，可根据实际情况选择相应文件名）。

3、从压缩文件里面找到sheet1.xml文件，然后拖拽至一个方便找到的位置（因为我们要对其要进行修改）。

然后将sheet1.xml文件右击选择用记事本打开方式打开。

4、然后搜索，“protection”，把从这一段代码，全部删除掉。

5、然后再把修改后的sheet1.xml文件，选择拖拽到压缩的工作薄中，选择替换掉即可，点击确定。

6、最后一步，和第一步相反，把文件名称后缀，由“演示表格.rar”重新更改“演示表格.xlsx”。

最后打开Excel表格，所有密码都取消了。

第 1 页共1 页。

破解撤销工作表保护密码的方法如果你忘记了Excel工作表的保护密码，或者不知道密码是什么，那么你可能会被拒绝编辑或修改工作表。

但是，有一些方法可以帮助你破解撤销Excel工作表的保护密码。

方法一：使用VBA代码破解工作表保护密码1. 打开Excel文件，并按下Alt + F11键进入VBA编辑器。

2. 在VBA编辑器中，选择工具>引用，然后勾选Microsoft Visual Basic for Applications扩展库。

3. 在VBA编辑器中，选择插入>模块，并复制以下代码到新模块中：Sub PasswordBreaker()'Breaks worksheet password protection.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 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 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)Exit SubEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextEnd Sub4. 点击运行按钮，然后在Excel工作表上右键单击并选择“查看代码”选项。

Excel工作表保护密码清除1，打开需要解除保护的EXCEL工作表；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 passwordsConst 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 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 & 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 & 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 IntegerDim 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, HEADERElseOn 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 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, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks 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 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 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============================================================================== Excel表格密码保护的解除方法表格受密码保护时，我们修改数据Excel弹出“您试图更改的单元格或图表受保护，因而是只读的。

简单粗暴快速移除Excel⼯作表保护密码导读：如果你因为忘记了⼯作表保护密码⽽懊恼，那么下⾯的代码会帮到你。

在⼯作表中，按Alt F11进⼊VBE窗⼝，依次按Alt、i、m插⼊⼀个模块，将代码cp进去，按F5运⾏，幸福来得太突然。

操作演⽰：代码截图：代码：Option Explicit''********************''或许这是Ms Excel的⼀个漏洞，只要将AllowFiltering设置为True，那么呵呵！''在Excel 2003、2007下亲测有效''********************''取消全部⼯作表保护Sub RemoveAllShtPwd()Dim sh As WorksheetApplication.ScreenUpdating = FalseFor Each sh In Sheets''关键在这：允许⽤户使⽤⼯作表受保护之前设置的“⾃动筛选”sh.Protect AllowFiltering:=Truesh.UnprotectNextApplication.ScreenUpdating = TrueMsgBox ''已取消全部⼯作表保护''End Sub''取消指定⼯作表保护Sub RemoveShtPwd()''这⾥指定的是 Employee 表With Sheets(''Employee'').Protect AllowFiltering:=True.UnprotectEnd WithMsgBox ''已取消⼯作表保护''End Sub''对全部⼯作表设定保护密码''如果⼯作表已有密码，则先运⾏⼀下RemoveAllShtPwd Sub AddAllShtPwd()Dim sh As Worksheet''为常量指定密码字符串 ''Asd123''Const pwd As String = ''Asd123''Application.ScreenUpdating = FalseFor Each sh In Sheetssh.Protect pwdsh.ProtectNextApplication.ScreenUpdating = TrueMsgBox ''已对全部⼯作表设定密码保护''End。

Excel中表格工作表保护密码撤销的操作方法在做excel表格时我们有时候会给自己的工作表加密，一旦忘记密码就会很麻烦，如何绕过密码，直接撤销保护。

今天，学习啦小编就教大家在Excel中表格工作表保护密码撤销的操作方法。

Excel中表格工作表保护密码撤销的操作步骤打开excel，点击菜单栏的“视图”，点击二级菜单里的“宏”，选择录制宏。

表格工作表保护密码撤销的操作图1 在弹出来的方框中输入宏的名称，点击确认。

表格工作表保护密码撤销的操作图 2 重复第一步的步骤，不过这次点击“停止录制”。

表格工作表保护密码撤销的操作图3 选择查看宏。

表格工作表保护密码撤销的操作图4 编辑宏。

表格工作表保护密码撤销的操作图5 在弹出来的代码框输入下面的代码：Option ExplicitPublic 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’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 & “Version1.1.1 2003-Apr-04”Const REPBACK As String = DBLSPACE & “Please report failure “ & _”to the 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。

wpsexcel表格忘记⼯作表保护密码怎么办？wps/excel考勤表格忘记修改⼯作表保护默认密码怎么办？考勤⼯作表密码破解？
在我们的⽇常⽣活中，⽤到密码的地⽅很多，同样在我们的⼯作中，同样也会⽤到！特别是⼯
作中，由于经常性的换⼈，交接不好，导致好多⼯作表的密码等你接⼿的时候都不知道，想编
辑⼜编辑不了，怎么办呢？好烦躁。

下⾯我们以考勤打卡记录为例来讲⼀下忘记⼯作表保护密码怎么样撤销⼯作表保护？
1. 打开清除密码系统
2. 启动宏（默认启⽤的则忽略此步骤）
3. 点击按钮“清除密码”
4. 选择你要清除密码的⽂件，需要是.xls 或者.xlsx 格式
5. 如出现输⼊密码的提⽰框，点击“取消”按钮，⼀直出现就⼀直点
6. 出现提⽰，则密码清除完成。

亲测清除密码有效率基本达到99.999%，需要清除密码系统的可以私我哦！6.6。

撤销Excel⼯作表保护密码（考勤机报表）⽤宏代bai码破解密码：以office2007为例说明，（2003也是⼀样的，只是菜单命令的位置不同）第⼀步：打开该⽂件，先解除默认的“宏禁⽤”状态，⽅法是点击⼯具栏下的“选项”状态按钮，打开“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工作表保护并不是一件复杂的事情，下面我将向大家介绍几种常用的方法。

第一种方法是通过VBA代码来破解Excel工作表保护。

首先，我们需要按下Alt + F11组合键，打开VBA编辑器。

然后在新建的模块中输入以下代码：Sub UnprotectSheet()。

Dim ws As Worksheet。

For Each ws In ThisWorkbook.Worksheets。

ws.Unprotect Password:="yourpassword"Next ws。

End Sub。

在上面的代码中，yourpassword是你设置的工作表保护密码。

执行完上述代码后，所有工作表的保护都会被解除。

第二种方法是通过在线工具来破解Excel工作表保护。

有一些在线工具可以帮助我们破解Excel工作表的保护，例如LostMyPass、Password-Find等。

我们只需要上传被保护的Excel文件，这些工具就可以帮我们破解保护密码。

第三种方法是通过修改Excel文件的扩展名来破解Excel工作表保护。

我们可以将Excel文件的扩展名修改为.zip，然后解压缩这个压缩文件。

在解压缩后的文件夹中，我们可以找到xl目录，里面包含了workbook.xml和worksheets文件夹。

我们可以用记事本打开workbook.xml文件，找到<workbookProtection>节点，将其删除或者修改为<workbookProtection lockStructure="0" lockWindows="0"/>，然后保存文件。

excel取消工作表保护
在使用Excel时，我们经常会对工作表进行保护，以防止他人对我们的数据进
行意外修改。

但是，有时候我们也需要取消工作表的保护，以便对数据进行修改或者进行其他操作。

接下来，我将向大家介绍如何在Excel中取消工作表的保护。

首先，打开你需要取消保护的Excel文件。

在Excel菜单栏中找到“审阅”选
项卡，点击“保护工作表”按钮。

在弹出的下拉菜单中，选择“取消工作表保护”。

接着，系统会要求你输入取消保护所需的密码。

如果工作表没有设置密码保护，那么你只需要直接点击“确定”按钮即可取消保护。

如果工作表设置了密码保护，那么你需要输入正确的密码才能取消保护。

在输入正确的密码后，点击“确定”按钮，系统会提示你工作表的保护已经取消。

此时，你就可以对工作表进行修改或者其他操作了。

需要注意的是，取消工作表保护后，其他用户也可以对工作表进行修改。

因此，在进行操作后，记得重新对工作表进行保护，以防止数据的意外修改。

另外，有时候我们可能会忘记了工作表的密码，导致无法取消保护。

这时，我
们可以尝试使用一些专业的密码破解工具来帮助我们找回密码，从而取消工作表的保护。

总的来说，取消Excel工作表的保护并不复杂，只需要几个简单的步骤就可以
完成。

希望通过本文的介绍，可以帮助大家更好地应对在Excel中取消工作表保护
的问题。

Excel用VBA去除工作表保护密码Excel 的工作表保护是非常脆弱的。

下面的VBA代码虽然不能找出工作表保护密码，但可以取消工作表保护，如果自己的工作表保护密码忘记了，可以用这个方法：1.按Alt+F11，打开VBA编辑器。

2.在“工程”窗口中选择要取消保护的工作表名称，单击菜单“插入→模块”。

3.在右侧的代码窗口中输入下列代码：Sub Remove_WorkSheet_Password()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 NextIf ActiveSheet.ProtectContents = False ThenMsgBox "该工作表没有保护密码！"Exit SubEnd IfFor 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 "已经解除了工作表保护！"Exit SubEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextEnd Sub4.关闭VBA编辑器，回到工作表中，按Alt+F8，打开“宏”对话框，选择“Remove_WorkSheet_Password”，并单击“执行”按钮。

excel破解表格保护的方法在Excel中设置表格保护是经常有的情况，但是如果万一忘记了表格保护的密码，数据就要不回来了，这个时候就需要动用一些技术把表格保护给破解了，接下来是店铺为大家带来的excel破解表格保护的方法，希望对你有用。

excel破解表格保护的方法：破解保护步骤1：新建宏录制新宏随便输入个名字如hong 点击“确定”按钮破解保护步骤2：点击“停止录制”按钮或从菜单“停止录制”宏破解保护步骤3：选择刚才所建的宏然后点击“编辑”按钮，会弹出代码编写窗口破解保护步骤4：填写代码将下面的代码全部复制必替换原来的字符，填写完毕后关闭该窗口//这里十分感谢原作者，因为经实践，确实好用。

Public Sub 工作表保护密码破解()Const DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _"作者:圣天"Const HEADER As String = "工作表保护密码破解"Const VERSION As String = DBLSPACE & "版本 Version1.1.1"Const REPBACK As String = DBLSPACE & ""Const ZHENGLI As String = DBLSPACE &" XXXXXXX"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 WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim 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 StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 InWorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenElseOn 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, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 InWorksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 InWorksheets'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 InWorksheetsWith 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, HEADER'leverage finding Pword by trying on other sheetsFor Each w2 InWorksheetsw2.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 & ZHENGLI,vbInformation, HEADEREnd Sub破解保护步骤5：最后就来执行刚才所建的宏工具-宏-宏点击执行等带小段时间之后就可以看到效果了。

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，两个都加的话就两个文件都修改。