作者：乔山办公网日期：
返回目录：office365
1可是尝试使知用破解工具，例如Advanced Office Password Recovery等。
2用这个方法试试
a将设置保护工作表密码的xlsx扩展名更改为zip;
b直接在7z或者RAR中双击打开，找道到xl\worksheets文件夹下，找到设置保护工作表的工作表名，如Sheet1;
c将该XML文件单独解压，使用记事本打开，Ctrl+F找到"SheetProtection”字段，将<SheetProtection #####>中所有内容删除内，保存;
d 将保存后的XML添加到zip文件原始位置;
e将ZIP文件改回容xlsx，即可去除设置密码的工作表保护。
先试试看。
解除WORD文档保护
方法一：插入文件百法
启动WORD，新建一个空白文档，执行“插入——〉文件”命令，打开“插入文件”对话框，定位到需要解除保护的文档所在的文件夹，选中相应文档，度单击“插入”按钮，将加密保护的文档插入到新文档中，文档保护会被自动撤销。
方法二：文件另存法
打开保护的文档，执行“文件——〉另存为”命令，打开“另存为”对话框，将“文件类型”选定为“WORD97—2003&6.0/95—RTF(*.doc)”，然后取名保存，关闭该内文档，重新打开一下，执行“工具——〉取消文档保护”命令即可。
或者将文件类型另存为HTML，然后将其中的内容，复制粘贴到新建文档中。
方法三：写字板容法
启动写字板，打开保护的WORD文档，另存为WORD文档，同时可以取消对文档的保护。
但此方法可能会使文档中的图片等要素丢失。
方法四：第三方软件法（即一般所说的解密软件）
都是扯淡的！2007是强加密的！暴力破解密码简单的话还是可以的!
如果Excel文件的打开密码忘记了，且密码是7位数以内的数字，可用以下步骤解开：
新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
Sub crack()
Dim i As Long
Dim FileName As String
Application.ScreenUpdating = False
i = 1
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
line2:
On Error GoTo line1
Do While True
Workbooks.Open FileName, , , , i
MsgBox "Password is " & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub然后直接在此界面下按F5运行此宏如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不7a64e58685e5aeb9363开了。若果还有读写密码，且与打开密码一样，将Workbooks.Open FileName, , , , i 改为Workbooks.Open FileName, , , , i, i