快速移除Excel工作表保护密码

合集下载

EXCEL密码去除(工作表、工作薄密码保护破解)

各位朋友不知道有没有碰到过这样的情况，当你要打开一个EXECL工作表时，突然发现密码忘记了，唯一可做的也许是搞个破解软件来破一下，但针对打开后的工作表保护，一般就很难有效了，复制虽是一种办法，但不少数据（特别是公式较多着），可能就要乱套了，入户才能破解这一类密码呢？不久前在网上发现此精华，与大家共享一下！利用宏运行方式破解，真的很有效，运行中可能电脑有两分钟无反应，千万不要以为死机了，等等吧！步骤方法如下：1.打开文件2.工具---宏---录制新宏---输入名字如：aa3.停止录制（这样得到一个空宏）4.工具---宏----宏，选aa，点编辑按钮5.删除窗口中的所有字符（只有几个），替换为下面的内容：（复制吧）6.关闭编辑窗口7.工具---宏----宏。

选AllInternalPasswords，运行，确定两次，等两分钟，再确定，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 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)'Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _"Adapted form 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 proteection, 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 areason. Don't stuff up crucial formulas" & _"or date/" & DBLSPACE & "Access and use of some data" & _"may be an offense.If in doubt,don't."Const MSGNOPWPRDS1 As String = "There were no passwords on" & _"sheet,or workbook struture or windows." & AUTHORS & VERSION Const MSGNOPWORD2 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 & VERSION Const MSGPWORDFOUND1 As String = " You had a Worksheet" & _ "Structure or Windows Password set." & DBLSPACE & _"Thq 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 MSGONL YONE 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 IntegerDim 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 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 With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(1) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & Chr(i4) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If .ProtectStructure = False And _.ProtectWindows = False ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(1) & _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 MSGONL YONE, 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 triffered 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 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(1) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If Not .ProtectContents ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(1) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND2, _"$$", PWord1), vbInformation, HEADER'leverrage 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, HEADER End Sub好了，经测试有效，祝各位成功！。

破解保护工作表

破解保护工作表
破解保护工作表并不是一件容易的事情，但是有时候我们确实需要这样做，例如当我们忘记了密码，或者需要访问某些受保护的单元格时。

以下是几种方法，可以帮助您破解保护工作表：
1. 使用某些软件工具
有一些专门的软件工具可以帮助您破解密码保护的工作表，例如Excel Password Recovery、Accent Excel Password Recovery等等。

这些工具可以在您忘记密码时，为您提供一种解决方案。

2. 通过重置密码来破解
您还可以通过重置密码来破解保护工作表。

首先，您需要打开受保护的工作表，然后进入“文件”选项卡，接着选择“信息”选项卡，并点击“保护工作表”旁边的“密码保护”选项。

在输入密码之前，您可以尝试使用“重置密码”选项来为工作表创建一个新的密码，从而破解原来的密码。

3. 手动破解
手动破解是一种更复杂的方法，需要您拥有一定的编程和Excel 技能。

您需要打开VBA编辑器，然后输入一些代码，以破解保护工作表。

由于这种方法比较复杂，建议您在尝试之前先备份您的工作表。

总的来说，破解保护工作表并不是一件容易的事情，但是在某些情况下，它可以帮助我们解决一些问题。

如果您遇到了类似的问题，请谨慎使用这些方法，并在尝试之前先备份您的工作表。

ex-vba迄今为止最简单的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工作表保护密码清除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撤销工作表保护密码图文教程介绍

r workbooks by same person who " & _"set this password." & DBLSPACE &
"Now to check and clear " & _"other passwords." & AUTHORS & VERSIONCo
nst MSGonLYONE As String="only structure / windows " & _"protected wit
rotection, 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.
or 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.Unprotec
t Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _C

简单粗暴快速移除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加密文件的密码，并且拥有合法权限，那么我们可以尝试以下几种方法来解决这个问题。

2. 使用VBA宏：Excel提供了一种名为Visual Basic for Applications（VBA）的编程语言。

通过创建和运行VBA宏，你可以绕过密码保护，打开Excel加密文件。

这需要一些编程技能，但是它可能是一种可行的解决办法。

你可以并学习有关在Excel中使用VBA宏破解密码保护的教程和示例。

除了以上提到的方法，还有其他一些可能的解决办法。

例如，通过将加密文件发送给相关的技术支持人员或专家，请他们帮忙解决问题。

或者通过重置Excel应用程序的设置来删除密码保护。

Excel—“撤销工作表保护密码”的破解并获取原始密码

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 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 & 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 IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinT ag = .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 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 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 WinT ag 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 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-----------------------------------------------------------------------------------------复制到横线以上6、关闭编辑窗口；7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次；等一会,就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。

工作表密码忘了？一招教你删除EXCEL工作表密码

工作表密码忘了？一招教你删除EXCEL工作表密码
大家好！刚学习到一个新的实用技能-删除EXCEL保护密码，所以迫不及待来跟大家分享。

一、痛点概括1、日常工作中，为了让别人不能随意更改工作表，经常会有设置保护密码的时候，如果工作表太多，自己都会记不住；2、别人下发的工作表，想学习函数公式，或者重新修订，有密码保护，不能修改。

二、步骤演示1、如图，我们的工作表已经保护，无法更改和修订；2、关闭当前工作簿，修改后缀名为.RAR；3、双击修改后的文件-找到Sheet1.xml，我的路径是xl-worksheets-sheet1.xml，大家应该差不多；4、复制或者拖动一份到压缩文件外，右键-选择记事本-打开；5、在打开的记事本中，查找：PROTECTION,并删除包含这一词汇的整句语句；（以这两个符号开头和结尾）6、保存记事本文档，并拖动或者复制到原压缩文件中，替换；7、修改文档为.xlsx格式，打开EXCEL，此时已经可以自由编辑。

注意：2003版不适用、EXCEL打开密码不适用。

excel2010取消密码保护的方法

excel2010取消密码保护的方法
推荐文章
excel2010如何取消受保护的视图热度： excel2010表格中怎么取消隐藏表格热度：Excel2010取消科学计数法的方法步骤热度：Excel单元格复制时出现的粘贴选项按钮取消方法是什么热度： Excel 中2010版进行隐藏数据和取消的使用操作热度：
在Excel中录入一些重要数据是很多人的习惯，但重要的数据是不能随意删除改变的，这个时候就需要用到密码保护，但过了一段时间就发现已经不需要密码了，所以需要取消密码，接下来是店铺为大家带来的excel2010 取消密码保护的方法，希望对你有用。

excel2010 取消密码保护的方法：
取消密码步骤1：打开已经设置密码的Excel2010文件。

取消密码步骤2：在出现的密码对话框中，输入密码，单击确定后即打开文件。

取消密码步骤3：单击文件-另存为。

取消密码步骤4：在出现的另存为对话框中，单击左下角的工具按钮，在下拉列表中选择常规选项。

取消密码步骤5：在常规选项对话框中，将打开权限密码删除，点击确定按钮。

取消密码步骤6：点击另存为对话框中的保存按钮，在出现的对话框中选择“是”，替换现有文件。

此时文件的密码已经删除。

取消密码步骤7：关闭文件重新打开，之前设置的密码已经删除了。

excel2007保护密码怎么去掉

excel2007保护密码怎么去掉Excel中经常需要把保护功能给取消掉，取消保护具体该如何操作呢?接下来是店铺为大家带来的excel2007取消保护密码的教程，希望小编整理的资料对大家有帮助。

excel2007取消保护密码的方法取消保护步骤1：单元格保护默认地，所有单元格都有锁定属性，一旦将Excel2007工作表保护起来，则不能在这些单元格里输入任何数据，为此，我们得取消部分单元格的锁定属性。

首先，右键单击工作表的行、列交界处，这一操作将产生两个结果：选中所有单元格和弹出快捷菜单;然后单击“设置单元格格式”，如图13所示。

图13 准备设置单元格格式接着，在弹出的对话框中单击“保护”以切换到该标签页，如图14所示。

图14 自定义设置然后，勾选“锁定”和“隐藏”后单击“确定”，退出设置状态并返回Excel编辑界面。

取消保护步骤2：取消部分单元格的保护状态选中对象单元格区域，右键单击，选择“设置单元格格式”，如图15所示;图15 设置准备然后按照前面的操作，清除“锁定”和“隐藏”前的钩，如图16所示。

图16 清除单元格的保护状态取消保护步骤3：保护工作表首先，单击“审阅”切换到该工具面板;接着，单击“保护工作表”;然后两次输入密码(两次的密码必须相同);最后单击“确定”即可，如图17所示。

图17 输入密码取消保护步骤4：检验保护效果在这些单元格里输入数据，会得到图18所示的拒绝对话框。

这样，我们就只能在没有保护的单元格中输入数据，这样既不影响成绩统计表的正常使用，又有效地保护了工作表不被误操作破坏。

图18 部分单元格保护起来了取消保护步骤5：取消工作表保护如果Excel2007工作表已保护起来，“保护工作表”按钮将自动变化为“取消工作表保护”，我们可以单击该按钮，再输入前面的密码即可取消保护工作表，如图19所示。

excel表格取消加密怎么操作

Excel表格取消加密操作指南Microsoft Excel是一款广泛使用的电子表格软件，它提供了一些安全特性，如文件加密，以保护表格中的敏感信息。

然而，如果你需要对加密的Excel表格进行修改或查看，你将需要取消表格的加密。

本文将向您介绍如何取消Excel表格的加密。

步骤一：打开加密的Excel表格首先，双击打开加密的Excel表格文件。

在打开文件时，Excel将会要求您输入密码。

步骤二：进入工作簿保护窗口在成功输入密码后，Excel会自动解密表格并打开文件。

接下来，我们需要进入工作簿保护窗口。

1.在Excel顶部菜单栏中找到“文件”选项。

2.单击“文件”选项后，打开下拉菜单。

3.在下拉菜单中，选择“保护工作簿”选项。

步骤三：取消工作簿保护在工作簿保护窗口中，您可以取消工作簿的保护。

1.在工作簿保护窗口中，您将看到一个密码框。

这是用于取消工作簿保护的密码框。

2.删除密码框中的现有密码，保持密码框为空。

3.单击“确定”按钮。

步骤四：保存并关闭文件取消工作簿保护后，您可以继续进行对Excel表格的修改、查看等操作。

最后，不要忘记保存您的更改。

1.在Excel顶部菜单栏中找到“文件”选项。

2.单击“文件”选项后，打开下拉菜单。

3.在下拉菜单中，选择“另存为”选项。

4.在弹出的窗口中，选择您想要保存文件的位置，并为文件命名。

5.单击“保存”按钮来保存文件。

现在，您已成功取消了Excel表格的加密。

您可以自由地编辑、查看或分享这个文件。

小结取消Excel表格的加密非常简单。

只需按照上述步骤，您就能轻松取消表格的加密，从而修改、查看或共享该文件。

请记住，在取消加密后，务必保存您的更改。

使用Excel表格时，保护您的数据非常重要，但也要确保您能够在需要时访问和修改它们。

希望本文对您有所帮助，谢谢阅读！。

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 =========================================================。

excel表格密码破解的方法

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工作表保护破解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中对工作表进行保护，以防止未经授权的用户对工作表进行修改或删除。

当工作表被保护后，用户需要输入密码才能对工作表进行编辑或格式更改。

然而，有时候我们可能会忘记或需要撤销工作表保护密码，那么该怎么办呢？撤销工作表保护密码的方法有多种，下面将介绍几种常用的方法：方法一，使用已知密码进行撤销。

如果你之前设置了工作表保护密码，并且还记得这个密码，那么撤销工作表保护密码就非常简单了。

只需要按照以下步骤操作即可：1. 打开Excel文档，找到被保护的工作表。

2. 在工作表上方的菜单栏中点击“审阅”选项卡。

3. 在“审阅”选项卡中找到“保护工作表”按钮，并点击下拉箭头。

4. 在弹出的选项中选择“撤销工作表保护”，然后输入之前设置的密码。

5. 点击“确定”即可完成撤销工作表保护密码的操作。

方法二，使用VBA代码进行撤销。

如果你忘记了工作表保护密码，或者无法使用已知密码进行撤销，那么可以尝试使用VBA代码来进行撤销。

下面是具体的操作步骤：1. 打开Excel文档，按下“Alt + F11”组合键，打开VBA编辑器。

2. 在VBA编辑器中，依次展开“VBAProject”、“Microsoft Excel Objects”文件夹，找到需要撤销保护的工作表。

3. 在工作表的代码窗口中输入以下VBA代码：Sub UnprotectSheet()。

Dim ws As Worksheet。

Set ws = ThisWorkbook.Sheets("Sheet1") '将“Sheet1”替换为你需要撤销保护的工作表名称。

ws.Unprotect "password" '将“password”替换为你设置的密码。

End Sub。

4. 点击运行按钮执行代码，即可完成撤销工作表保护密码的操作。

方法三，使用第三方工具进行撤销。

撤销工作表保护

撤销工作表保护
1. 打开Excel文档。

首先，打开包含受保护工作表的Excel文档。

在文档中找到受保护的工作表，
然后按照以下步骤进行操作。

2. 找到“审阅”选项卡。

在Excel文档中，找到位于顶部菜单栏的“审阅”选项卡。

单击“审阅”选项卡，然后您将看到“保护工作表”按钮。

3. 点击“保护工作表”按钮。

在“审阅”选项卡中，找到“保护工作表”按钮并单击它。

这将打开一个对话框，其中列出了当前工作表的保护选项。

4. 输入密码（如果有）。

如果在设置工作表保护时输入了密码，系统将提示您输入密码以进行撤销操作。

请注意，如果您不知道密码，将无法撤销工作表保护。

5. 取消工作表保护。

在弹出的对话框中，取消选中“保护工作表和窗口”复选框，然后单击“确定”按钮。

这样就成功撤销了工作表保护。

6. 保存文档。

最后一步是保存文档。

请记得在完成撤销工作表保护后保存文档，以确保所做
的更改得以保存。

通过以上步骤，您可以在Microsoft Excel中成功撤销工作表保护。

请注意，撤销工作表保护后，任何人都可以对工作表进行编辑和修改，因此请谨慎操作，并在必要时重新设置工作表保护以确保数据安全。

总之，撤销工作表保护是一个简单的过程，只需几个简单的步骤即可完成。

希望本文对您有所帮助，感谢阅读！。