作者：乔山办公网日期：
返回目录：excel表格制作
第一步，先找到一个带有有工作表保护密码的Excel工作表，然后把后缀名称改为.rar。
第二步，用压缩zd文件打开内，然后找压缩的对应路径。
第三步，把从压缩文件里面找到的.xml文件，然后拖拽出来，进行修改。
第四步，把保护代容码删除来撤消工作表保护，找到这个.xml文件用记事本打开，然后搜索【protection】，把从<sheetprotection.........="0"/>的代码，全部删除掉，如图所示。
第五步，然后再把刚刚修改后的.xml文件，选择拖拽到压缩的工作表中替换掉。
第六步，再把文件名称后缀改为.xlsx，打开Excel表格，密码保护就可以取消了。
第七步，撤消保护工作表后，还可以在【审阅】选项下对工作表重新进行进行保护和撤消保护工作表操作，如图所示。
这是我替你百度来的e69da5e887aae799bee5baa6e79fa5e98193365，我试了一下还行
http://apps.hi.baidu.com/share/detail/2455142
或者
用 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 passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
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
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
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 And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For 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 If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
=============================================================================
Office 2007 Excel工作表保护密码忘记之解决办法
1、 打开受保护的Excel工作表（此步骤打开其他Excel文件也行，因为这里是要启用宏）：
在打开的Excel文件菜单栏空白处，右键单击鼠标，选择“自定义快速访问工具栏···”，打开Excel选项窗口。
2、 在打开的Excel选项窗口中，选择“常用”一栏，再在右边框中勾中“在功能区显示”开发工具” 选项卡”
3、 点击“确定”按钮后，返回Excel工作表，这时可以在Excel工作表菜单栏中出现“开发工具”菜单项，选择“开发工具”菜单项中的“宏安全性”：
4、 打开“信任中心”窗口，选择左边栏中的“宏设置”一项，再在右边栏目中，选中“启用所有宏···”及勾中“信任对VBA工程对象模型的访问”一项，点击“确定”按钮：
5、 返回到Excel工作表，在“开发工具”菜单下，选择“录制宏”一项：
6、 在打开的“录制新宏”窗口中，在“宏名”一栏的文本框中输入名字（可以任取，这里以test为例），在“保存在”一栏的下拉列表框中，选择“当前工作簿”（其实也是可以不用选择的，但为了慎重起见还是选择），最后点击“确定”按钮：
7、 再返回到Excel工作表，此时，“开发工具“菜单项下原先的“录制宏”变为了“停止录制”，现在就点击“停止录制”，结束宏的录制，这样就可以创建一个空宏test。
8、 停止录制宏之后，再选择“宏”选项：
9、 在打开的“宏”窗口中，就会出现刚才创建的test宏，“位置”一栏选择“当前工作簿”（为了与前面相对应），然后在“宏名”下选择刚才创建的test宏，再点击右边栏目中的“编辑“选项
10、 在打开的VBAProgect工程窗口中，将此段代码复制粘贴到该模块1代码窗口下，覆盖默认的所有代码，如：
SubPasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
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 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
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 Then
MsgBox "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).Select
Range("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 Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
11、最后，点击工具栏中的保存图标，或按Ctrl+S组合键保存上面的代码，但这里会弹出一个错误提示信息：
12、出现上述提示信息，这应该是Office2007的宏安全性之类的问题，但在前面，我们已经启用了所有宏（估计那只是工作表启用了，并没有对工作簿启用所致吧！但Office 2003在启用所有宏的情况下是不会报这样的提示，针对此以下便是自己实践操作后的简述）。在上述的提示信息框中，我没有选择“是”，也没有选择“否”，而是直接关闭了该提示框，但关闭此提示框后，同样会弹出一个另存为对话框，继续选择“取消”按钮，退出Excel程序，提示是否保存更改的文件，同样选择“否”，不保存。
13、在关e799bee5baa6e79fa5e98193e58685e5aeb9333闭了Excel程序后，再次双击打开受保护的Excel文件，然后选择“另存为”下的“启用宏的Excel工作簿”一项：
14、打开“另存为”对话框，“保存类型”选择“启用宏的工作簿（*.xlsm），点击”保存“按钮
15、保存后，就会生成一个带有黄色感叹号的新Excel文件：
16、 双击打开新的Excel文件，重复步骤5至步骤11的操作，即录制新的宏并保存，此时就不会再有步骤11的提示了。保存了宏之后，再选择“开发工具”菜单项下的“宏”选项，打开“宏”窗口：
17、 在“宏”窗口中，“位置”一栏还是选择“当前工作簿”，并选择新创建的宏，然后单击右边栏目中的“执行”按钮，差不多1到2分钟时间之后，就会弹出当前受保护的工作表密码，
18、记下这个密码，然后点击“确定”按钮，关闭提示框。同时返回到打开的Excel工作表，
19、此时工作表的首行标题也变成了相对应的密码，如果有多张受保护的工作表需要解密处理，这里建议你不要保存被更改后的工作表，而是直接关闭此工作表，在弹出的提示对话框中选择“否”：
20、关闭了Excel工作表，然后再次双击打开受保护的Excel工作表，选择“审阅”菜单项，在“更改”组中，选择“撤销工作表保护”选项
21、 在打开的“撤销工作表保护”提示框中，输入刚才记下的密码，点击确定即可：
22、最后点击保存或按Ctrl+S组合键保存解密后的工作表即可，则再次打开该工作表，“审阅”菜单下的“更改”组中已经成功解密了！！！