excel怎样破解密码：Excel密码破解方法一

excel怎样破解密码：Excel密码破解方法一Dim FiLename As String Dim i As Long

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

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

• 下面我们讲解一下加密文档无法打开，打开需要密码这种情况如何破解

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

• 另外新建一个excel文档，然后打开，同时按Alt和F11，进入VBA界面

• 点击菜单上的插入，模块

• 复制以下代码

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文件，点击打开

• 等待破解即可