A. 工作表忘记了密码怎么办
1、点击菜单栏中的“开发工具”，选择录制宏，录制一个名为“清除工作表保护密码”的宏文件（可以根据自己的习惯命名该宏文件）。
2、再次点击菜单栏中的“开发工具”，选择“宏”，打开宏对话框，“宏名”选择刚刚新建的宏文件，然后点击“编辑”，打开宏（VBA）编辑窗口。
3、在宏（VBA）编辑窗口的左侧依次选择“VBAProject PERSONAL,XLSB”→“模块”→“模块2”后，将右侧的代码窗口中的原有内容删除后，把以下代码复制后粘贴在代码窗口中保存。
4、再次点击菜单栏中的“开发工具”，选择“宏”，打开宏对话框，“宏名”选择刚刚新建的宏文件，然后点击“执行”或“单步执行”，等程序运行完成后工作表保护密码就清除了。（提示：程序运行时有点卡，如果电脑配置低就选择单步执行，效果是一样的）
VBA代码如下：
Public Sub 工作表保护密码破解()
Const HUANHANG As String = vbNewLine & vbNewLine
Const MINGCHEN As String = "清除工作表保护密码"
Const JINGGAO As String = "该工作簿中的工作表密码保护已全部清除!!" & HUANHANG & "请记得另保存" _
& HUANHANG & "注意：不要用在不当地方，要尊重他人的劳动成果！"
Const TISHI1 As String = "该文件工作表中没有加密"
Const TISHI2 As String = "该文件工作表中没有加密2"
Const KSPJ As String = "解密需花费一定时间,请耐心等候!" & HUANHANG & "按确定开始清除!"
Const FXMM1 As String = "密码重新组合为:" & HUANHANG & "$$" & HUANHANG & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const FXMM2 As String = "密码重新组合为:" & HUANHANG & "$$" & HUANHANG & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
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 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 TISHI1, vbInformation, MINGCHEN
Exit Sub
End If
MsgBox KSPJ, vbInformation, MINGCHEN
If Not WinTag Then
Else
On Error Resume Next
Do 'mmy 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(FXMM1, _
"$$", PWord1), vbInformation, MINGCHEN
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, MINGCHEN
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(FXMM2, _
"$$", PWord1), vbInformation, MINGCHEN
'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 JINGGAO, vbInformation, MINGCHEN
End Sub
B. excel文件密码忘记了怎么办 excel文档密码破解方法汇总
大家是不是还以为Excel密码破解是几乎做不到的事情？但事实刚好相反，借助Excel密码破解工具，Excel密码破解只需几秒钟的事情。
小编只为告诉大家一个简单的事实，Excel密码破解真的很简单。
强悍的Excel密码破解工具
与其说是Excel密码破解工具，不如说是Office文档密码破解工具更适合，因为这些Office密码破解工具都无一例外支持Word、Excel、PPT文档破解。我们先来看看有哪四大Excel密码破解工具吧。
4大破解工具
1、Accent OFFICE Password Recovery
特点：成功破解过的密码都会被记录下来用作下一次破解，破解已经破解过文档不费吹灰之力。
2、Office Password Remover
特点：在线秒杀所有采用普通加密方式的“.doc”、“.xls”、“.ppt”文档。
缺点：付款才能看到完整的被破解的文档，必须上网才能用。
3、Advanced Office Password Recovery
特点：功能无比强大，如果上面两款都破解不了，这款是最终武器。
4、Office Password Unlocker
特点：由于前三款Excel密码破解工具已经够用，这款功能其实也不差，但对笔者而言是凑数用。
方法：
先用Microsoft Office Excel 2003（可用金山WPS Office 2012 表格代替）创建一个“2003.xls”的普通方式加密Excel文档，然后用Office Password Remover这个在线破解工具来破解，1,2,3，3秒之后，就生产一个已经被成功破解的新Excel文档——2003（DEMO）.xls 。破解一个普通加密方式的Excel文档，只需3秒钟！如果你真的不信，可以自己测试一下！
3秒钟的事
当然，这个3秒破解Excel文档密码是有条件的。第一个条件：Excel文档保存格式必须为古老的“.XLS ”格式（同理，Word文档保存为“.DOC”格式，PPT文档为“.PPT格式”），第二个条件为加密方式必须为Office 2003或2007（WPS Office 2012）的默认加密方式。
注：要想得到完全的破解文件，需要付费，免费破解的Excel文档只能看到前几行。
Excel密码破解工具一秒能测试多少个密码？
如果不付费就破解不了，那就大错特错。要知道，在一台普通配置的电脑上，Excel密码破解工具一秒能测试约88万个密码（需符合以上两个条件）。假设一个6位数的全数字密码，你猜要多长时间来破解？答案是2秒不到（破解时间因测试环境不同而不同）。
Excel密码破解工具一秒能测试约88万个密码
WPS表格（用途相当于Excel）虽然提供多种加密方式，但其中的XOR加密方式在Advanced Office Password Recovery里就形成虚设。可能是Advanced Office Password Recovery已经掌握了怎么完美破解XOR加密方式的方法，否则不可能做到无论你设置什么密码，都会被瞬间打开！
小编在此强调一下，这不代表WPS Office 2012 的加密方式不行，只是想说明，Excel加密要选对加密方式才靠谱，后面就是详细讲解这个。
总结：从另一个角度探讨看XOR加密方式，XOR加密方式虽然可以被 Advanced Office Password Recovery 瞬间破解，但却完全不怕Office Password Remover的在线破解。因为Office Password Remover对XOR加密方式的Office 文档无可奈何。如果有人想找随时找回密码的加密方式，那WPS内置的XOR加密毫无疑问是最适合的方式。
C. Excel文件忘记密码怎么办
1.开启excel文件点击撤销工作簿保护时忘记密码的情况,
2.这时就可以右键文件,开启右键菜单列表,
3.点击重命名把文件后缀改成rar,
4.改成完rar使用压缩应用打开这个rar文件,
5.然后打开xl目录下的worksheets文件夹,
D. excel忘记密码怎么找回和打开
可以通过以下方法进行破解，步骤如下：
1，先找到有工作表保护密码的Excel表格，然后后缀名称，从演示操作表格.xlsx改为演示操作表格.rar：
E. excel文档密码忘了怎么办
经常和办公软件打交道的人肯定知道,如果把加密文档的密码忘了就相当于将这个文件报废了,那将会是一件多么可怕的事情。今天为大家介绍一款软件,可以在极短的时间里轻松破解word和excel文件的密码,它就是office
password
remover。
office
password
remover破解密码的速度很快,使用时需要连接到互联网,因为要给软件服务器发送很少的数据并解密。不过大家可以放心,该软件不会泄露任何个人隐私。
第一步:首先运行解压好的opremove.exe
这个程序,打开程序后可以看到中间文本框后面有个类似文件夹的按钮。
另外,为了防止别人用该软件来破解word或excel文档,也可以给该程序设置密码。点击“文件”菜单中的“设置访问密码”命令,然后在弹出的“设置访问密码”窗口在输入两遍登录密码即可。下次再运行该程序时,就会出现提示要求输入运行程序密码的窗口。
第二步:接着点击该按钮浏览打开要破解的word或excel文档。确定后出现如图的画面,点击“移除密码”按钮后。这时程序会弹出一个提示窗口,说明程序要连接互联网来查找匹配的秘密才能进行破解,确定后就开始破解操作。
第三步:几秒钟后,便出现“该文档已经被成功破解”的提示,点击“确定”按钮即可,这个时候文件破解就大功告成了。在这里要特别注意的是,破解后的文件名会有点变化,加了“demo”这四个字母,我们只要重命名去掉这四个字母就可以了。
F. Excel文件忘记密码怎么办
可以通过以下步骤解除Excel加密密码：
所需材料：Excel、记事本、解压软件。
一、首先点击选中被加密的表格文档，按F2重命名，把文件格式改为RAR。
G. 表格忘记密码了怎么办
1.新建一个测试表格为例,添加工作表保护密码
2.保存文件,在右键打开方式选择用压缩软件打开
3.打开压缩包依次点击xl→Worksheets,然后把文件sheet1.xml 拖出来
4.拖出来的sheet1文件右键使用记事本打开
5.按Ctrl+F,查找“protect”
6.定位到“<sheetProtection password="C71F" sheet="1" objects="1" scenarios="1"/>”这个句子，将它删除，保存文件
7.再次重复第2至第3步，将修改过的sheet1文件拉回到原先所在的文件，替换掉里面的文件
8.关闭压缩软件，重新打开测试文件，密码已清除，可以编辑了