你好EXCEL表格忘记密码打不开怎么办

日期:2018-03-11
你好EXCEL表格忘记密码打不开怎么办

https://www.teaku.com/18/1520756136218621.html

网友评论

  • 2003及以前版本可以破解,2007及以后版本很难破解,只有找到密码才能打开。

  • 找个密码破解工具试试

  • 需要下载密码破解工具

  • Excel文件打开密码破解,适用于*.xls & *.xlsx文件,密码是数字的。

    Sub crack()

    Dim i As Long

    i = 0

    FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")

    If FileName = False Then Exit Sub

    FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))

    Application.ScreenUpdating = False

    line1: On Error GoTo line3

    If i = 1000000 Then MsgBox "密码不是0-999999的自然数!": GoTo line2

    Workbooks.Open FileName, , True, , i

    MsgBox "密码是 " & i

    line2: Application.ScreenUpdating = True

    Exit Sub

    line3: i = i + 1

    Resume line1

    End Sub