EXCEL工作表保护密码忘记了，如何撤消工作表保护？

第一步，先找到一个带有有工作表保护密码的Excel工作表，然后把后缀名称改为.rar。

第二步，用压缩文件打开，然后找压缩的对应路径。

第三步，把从压缩文件里面找到的.xml文件，然后拖拽出来，进行修改。

第四步，把保护代码删除来撤消工作表保护，找到这个.xml文件用记事本打开，然后搜索【protection】，把从的代码，全部删除掉，如图所示。

第五步，然后再把刚刚修改后的.xml文件，选择拖拽到压缩的工作表中替换掉。

第六步，再把文件名称后缀改为.xlsx，打开Excel表格，密码保护就可以取消了。

第七步，撤消保护工作表后，还可以在【审阅】选项下对工作表重新进行进行保护和撤消保护工作表操作，如图所示。

Excel工作表密码去除，破解

解除工作表密码保护

1、查看代码

步骤：右键【sheet1】-【查看代码】-打开代码窗口。

2、插入代码

代码：Sub DeletePW()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True

ActiveSheet.Unprotect

End Sub

步骤：粘贴代码，点击【运行】即可。

来自网页链接

用这个方法：

1、打开您需要破解保护密码的Excel文件；
2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；
3、停止录制(这样得到一个空宏)；
4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；
5、删除窗口中的所有字符(只有几个),替换为下面的内容；

Option Explicit

Public SubAllInternalPasswords()
' Breaksworksheet and workbook structure passwords. Bob McCormick
' probablyoriginator of base code algorithm modified for coverage
' of workbookstructure / windows passwords and for multiple passwords
'
' Norman Harkerand JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified2003-Apr-04 by JEM: All msgs to constants, and
' eliminate oneExit Sub (Version 1.1.1)
' Revealshashed passwords NOT original passwords
Const DBLSPACEAs String = vbNewLine & vbNewLine
Const AUTHORSAs String = DBLSPACE & vbNewLine & _
"Adaptedfrom Bob McCormick base code by" & _
"NormanHarker and JE McGimpsey"
Const HEADER AsString = "AllInternalPasswords User Message"
Const VERSIONAs String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACKAs String = DBLSPACE & "Please report failure " & _
"to themicrosoft.public.excel.programming newsgroup."
Const ALLCLEARAs String = DBLSPACE & "The workbook should " & _
"now befree 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 therefor a reason. Don't stuff up crucial formulas " & _
"ordata." & DBLSPACE & "Access and use of some data " &_
"may be anoffense. If in doubt, don't."
ConstMSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets,or workbook structure or windows." & AUTHORS & VERSION
ConstMSGNOPWORDS2 As String = "There was no protection to " & _
"workbookstructure or windows." & DBLSPACE & _
"Proceedingto unprotect sheets." & AUTHORS & VERSION
ConstMSGTAKETIME As String = "After pressing OK button this " & _
"will takesome time." & DBLSPACE & "Amount of time " & _
"dependson how many different passwords, the " & _
"passwords,and your computer's specification." & DBLSPACE & _
"Just bepatient! Make me a coffee!" & AUTHORS & VERSION
ConstMSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structureor Windows Password set." & DBLSPACE & _
"Thepassword found was: " & DBLSPACE & "$$" & DBLSPACE& _
"Note itdown for potential future use in other workbooks by " & _
"the sameperson who set this password." & DBLSPACE & _
"Now tocheck and clear other passwords." & AUTHORS & VERSION
ConstMSGPWORDFOUND2 As String = "You had a Worksheet " & _
"passwordset." & DBLSPACE & "The password found was: " & _
DBLSPACE &"$$" & DBLSPACE & "Note it down for potential "& _
"futureuse in other workbooks by same person who " & _
"set thispassword." & DBLSPACE & "Now to check and clear " &_
"otherpasswords." & AUTHORS & VERSION
ConstMSGONLYONE As String = "Only structure / windows " & _
"protectedwith the password that was just found." & _
ALLCLEAR &AUTHORS & VERSION & REPBACK
Dim w1 AsWorksheet, w2 As Worksheet
Dim i AsInteger, j As Integer, k As Integer, l As Integer
Dim m AsInteger, n As Integer, i1 As Integer, i2 As Integer
Dim i3 AsInteger, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 AsString
Dim ShTag AsBoolean, WinTag As Boolean
Application.ScreenUpdating= False
WithActiveWorkbook
WinTag = .ProtectStructureOr .ProtectWindows
End With
ShTag = False
For Each w1 InWorksheets
ShTag = ShTagOr w1.ProtectContents
Next w1
If Not ShTagAnd Not WinTag Then
MsgBoxMSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBoxMSGTAKETIME, vbInformation, HEADER
If Not WinTagThen
MsgBoxMSGNOPWORDS2, vbInformation, HEADER
Else
On Error ResumeNext
Do 'dummy doloop
For i = 65 To66: For j = 65 To 66: For k = 65 To 66
For l = 65 To66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To66: For i6 = 65 To 66: For n = 32 To 126
WithActiveWorkbook
.UnprotectChr(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)
MsgBoxApplication.Substitute(MSGPWORDFOUND1, _
"$$",PWord1), vbInformation, HEADER
Exit Do 'Bypassall 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 If
If WinTag AndNot ShTag Then
MsgBoxMSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error ResumeNext
For Each w1 InWorksheets
'Attemptclearance with PWord1
w1.UnprotectPWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 InWorksheets
'Checks for allclear ShTag triggered to 1 if not.
ShTag = ShTagOr w1.ProtectContents
Next w1
If ShTag Then
For Each w1 InWorksheets
With w1
If.ProtectContents Then
On Error ResumeNext
Do 'Dummy doloop
For i = 65 To66: For j = 65 To 66: For k = 65 To 66
For l = 65 To66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To66: For i6 = 65 To 66: For n = 32 To 126
.UnprotectChr(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)
MsgBoxApplication.Substitute(MSGPWORDFOUND2, _
"$$",PWord1), vbInformation, HEADER
'leveragefinding Pword by trying on other sheets
For Each w2 InWorksheets
w2.UnprotectPWord1
Next w2
Exit Do 'Bypassall for...nexts
End If
Next: Next:Next: Next: Next: Next
Next: Next:Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR& AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub

6、关闭编辑窗口；
7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次；
等一会,再点击确定。哈哈哈,没有密码了吧!!

好简单的方法：
1.打开保护密码的Excel文件
2.复制工作表内容
3.新建工作表，在新工作表上点击鼠标右键——“选择性粘贴” 注意是选择性粘贴——弹出对话框，在粘贴中选择全部——确定。最后一步重要
4.点击鼠标右键——“选择性粘贴” ——弹出对话框，在粘贴选项中选择列宽——确定。
完成上面就是新建可以编写的工作表。
希望能帮到你！
不是保护工作簿吧？保护工作簿这方法就无用了