日常工作中,我们会遇到Excel加密文档无法打开,或者无法编辑、修改的情况。今天,让我们轻松破解。我们都知道Excel提供的加密保护多种多样,例如工作簿打开加密、工作簿修改加密、保护工作簿结构、保护工作簿窗口、工作表加密保护、保护指定区域,这几种形式。那如果我们忘记密码,或者想破解怎么办?

excel 打开密码破解(Excel密码破解方法一)(1)

保护工作簿结构、保护工作簿窗口、工作表加密保护这几种起码还可以看到数据,不能修改,如果我们遇见Excel加密文档无法打开,打开需要密码这种情况连数据都无法看到。

我们可以不借助其他软件,使用VBA 工程密码破解方法,

excel 打开密码破解(Excel密码破解方法一)(2)

excel 打开密码破解(Excel密码破解方法一)(3)

excel 打开密码破解(Excel密码破解方法一)(4)

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 打开密码破解(Excel密码破解方法一)(5)

excel 打开密码破解(Excel密码破解方法一)(6)

excel 打开密码破解(Excel密码破解方法一)(7)

excel 打开密码破解(Excel密码破解方法一)(8)

,