使用VBA在Excel中保护表的密码破解
任何人都知道是否有其他方法来破解在Excel中保护工作表的密码？ 从那时起，我一直在使用这些代码，但现在看起来似乎不再适用了。 每次运行代码时，文件都只是说“不响应”。 我正在使用MS Office 2013。
Sub PasswordBreaker() 'Breaks worksheet password protection. 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) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub Excel已经在Excel 2013及更新版本中更新了他们的表格保护安全性，所以这个macros将不再工作，请看这里 。
从链接听起来像是如果您将该文件保存为xls文件（Excel 1997-2003），它将被迫删除较新的安全性，因为它与文件types不兼容。 你可以运行你的macros。
保存为较旧的文件版本可能会使工作簿的某些部分不起作用。
我不知道这是如何工作，但我能够解除工作表。 我做了一个“另存为”，并将types更改为：“Excel 97-2003”。 当我打开文件并取消保护工作表时，它不再要求input密码。 :)而我的工作簿仍然正常工作。
通过获取SDR Excel文件密码恢复软件来恢复丢失的Excel文件密码是非常容易和简单的，因为它有一些聪明的技术，如： – 面具攻击/蛮力攻击和字典攻击，真的有助于从Excel文件中删除密码保护数据库。 它也支持这种版本的Microsoft Excel 97到2016年的文件。
从这里查看更多详细信息： – https：//2016excelpasswordrecovery.blogspot.in/
在这里input图像说明