作者：乔山办公网日期：
返回目录：office365
以下代码可用于解除工作表保护e799bee5baa6e79fa5e98193e58685e5aeb9333
将代码复制到某个文件的模块中，然后窗口切换到需破解的文件，执行RemoveShProtect宏即可
Sub RemoveShProtect()
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
Dim i7 As Integer, i8 As Integer, i9 As Integer
Dim i10 As Integer, i11 As Integer, i12 As Integer
Dim t As String
On Error Resume Next
If ActiveSheet.ProtectContents = False Then
MsgBox "该工作表没有保护密码!"
Exit Sub
End If
t = Timer
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 i7 = 65 To 66: For i8 = 65 To 66: For i9 = 65 To 66
For i10 = 65 To 66: For i11 = 65 To 66: For i12 = 32 To 126
ActiveSheet.Unprotect Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) _
& Chr(i6) & Chr(i7) & Chr(i8) & Chr(i9) & Chr(i10) & Chr(i11) & Chr(i12)
If ActiveSheet.ProtectContents = False Then
MsgBox "解除工作表保护!用时" & Format(Timer - t, "0.00") & "秒"
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
工具：5秒WORD-EXCEL密码破解.exe
步骤如下：
1、百度“5秒WORD-EXCEL密码破解”，点击下方的连接，下载软复件，软件不是很大，直接下载下来就可以了，下载下来是一个压缩包，解压该压缩包。打开压缩包解压出来的文件夹，第二个文件就是我们的密码破解工具，双击打开工具。
2、浏览，找到我们要破解的文件，点击确定，破解就开始啦。制点击移除密码。
3、弹出对话框，点击确定，当然，电脑是要zhidao能联网的，相信你能看到这篇经验，电脑应该也是能联网的。
4、解密时间要看密码复杂程度，不过应该没有太变态的密码。
5、成功破解密码，并且生成了一个新的没有密码的文件。
在你新电脑上面卸载office,重新在官网下载最新版office2017看看。
一、在 Excel 电子表格中设置密码：
1、单击“Office 按钮”，指向“准备”，然后单击“加密文档”。
2、在“密码”框中，键入密码，然后单击“确定”。可以键入多达 255 个字符。默认情况下，此百功能使用 AES 128 位高级加密。加密是一种可使您的文件更加安全的标准方法。
3、在“度重新输入密码”框中，再次键入密码，然后单击“确定”。若要保存密码，请保存文件。
二、Excel 电子表格中删除密码保护：
1、使用密码打开电子表格。
2、单击“Office 按钮” ，指向“准备”，然后单击“加密文档”。
3、在“加密文档”对话框的“密码”框中，删除加密密码，然后单击“确定”。
4、保存电子表格。
三、设置修改回 Excel 电子表格密码：
除了设置打开 Excel 电子表格密码之外，可以设置密码以允许其他人修改电子表格。
1、单击“Office 按钮” ，单击“另存为”，然后在“另存为”对话的底部单击“工具”。
2、在“工具”菜单上，单击“常规选项”。将打开“常规选项”对话框。
3、在“文件共答享”下方，在“修改权限密码”框中键入密码。
4、在“确认密码”框中再次键入密码。单击“确定”。
5、单击“保存”。