Excel(VBA)工作表密码破解程序(版本2010及以下)

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Excel(VBA)工作表密码破解程序(版本2010及以下)相关的知识,希望对你有一定的参考价值。

If you've forgotten a password to an Excel workbook that was created in version 2010 or older. See URL for more details.
  1. Sub PasswordBreaker()
  2. 'Breaks worksheet password protection.
  3.  
  4. Dim i As Integer, j As Integer, k As Integer
  5. Dim l As Integer, m As Integer, n As Integer
  6. Dim i1 As Integer, i2 As Integer, i3 As Integer
  7. Dim i4 As Integer, i5 As Integer, i6 As Integer
  8.  
  9. On Error Resume Next
  10.  
  11. For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
  12. For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
  13. For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
  14. For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
  15.  
  16. ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
  17. Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
  18. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  19.  
  20. If ActiveSheet.ProtectContents = False Then
  21. MsgBox "One usable password is " & Chr(i) & Chr(j) & _
  22. Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
  23. Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  24.  
  25. Exit Sub
  26.  
  27. End If
  28.  
  29. Next: Next: Next: Next: Next: Next
  30. Next: Next: Next: Next: Next: Next
  31. End Sub

以上是关于Excel(VBA)工作表密码破解程序(版本2010及以下)的主要内容,如果未能解决你的问题,请参考以下文章

如何去除Excel的VBA工程密码及工作表保护密码

如何去除Excel的VBA工程密码及工作表保护密码

excel 用vba给某个excel.xls文件添加密码 怎么写啊,不要保护工作簿或者工作表,只是加密码而已

用VBA代码打开其他excel工作簿(有打开密码的)???

excel多选选项列表VBA不在密码保护表上运行

excel VBA 密码设置问题