如何轻松的破解excel 2016工作表密码
2017-07-28 17:47
477 查看
如何轻松的破解excel 2016工作表密码
请把以下链接破解流程中的脚本写成我给出的代码
http://jingyan.baidu.com/article/3f16e003f807782591c103bf.html
请把以下链接破解流程中的脚本写成我给出的代码
http://jingyan.baidu.com/article/3f16e003f807782591c103bf.html
Sub PasswordBreaker() 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 End Sub Sub crack() Dim i As Long Dim FileName As String i = 0 FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解") FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\")) Application.ScreenUpdating = False line2: On Error GoTo line1 Workbooks.Open FileName, , True, , i MsgBox "Password is " & i Exit Sub line1: i = i + 1 Resume line2 Application.ScreenUpdating = True End Sub
相关文章推荐
- 如何轻松的破解excel 2016工作表密码
- 如何破解EXCEL工作表保护密码
- 如何破解Excel工作表单的密码
- 破解Excel工作表保护密码
- EXCEL工作表保护密码破解方式
- EXCEL保护工作表--密码破解
- 破解Excel工作表密码
- 破解Excel工作表密码保护的代码
- EXCEL工作表保护密码破解 宏撤销保护图文教程(转贴)
- Excel工作表保护密码破解的宏代码
- VBA 破解Excel工作表保护密码
- EXCEL工作表保护密码忘记了,如何撤消工作表保护?
- 利用Excel漏洞来破解Excel保护工作表密码
- EXCEL工作表保护密码破解
- 如何生成/读取带有密码的Office Excel 2003(Biff8格式)(非破解)
- 【转】破解Excel工作表保护密码
- 轻松破解excel 2007 工作表密码保护
- 破解Excel工作表保护密码
- 如何破解EXCEL保护密码
- EXCEL工作表保护密码破解