轻松去掉Excel密码，恢复您的文件访问

忘记Excel文件的密码，确实是一件让人头疼的事。眼看着重要数据被锁住却无能为力，那种感觉可不好受。别着急，其实恢复文件访问并没有想象中那么复杂。下面介绍的几种方法，操作简单，能帮你快速解决问题。

方法一：使用VBA代码解锁密码

对于有一定Excel使用基础的朋友，VBA宏是一个强大的内置工具。它的原理是尝试所有可能的字母组合来“猜”出密码，虽然听起来有点笨，但对于简单的密码往往有效。

具体操作分四步走：

首先，打开那个被密码保护的Excel文件，同时按下键盘上的 ALT + F11 键，这会打开VBA编辑器窗口。

接着，在编辑器顶部的菜单栏里，点击“插入”，然后选择“模块”。这时，右侧会出现一个空白的代码编辑区。

然后，将下面这段代码完整地复制粘贴进去：

Sub PasswordBreaker()
    Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer
    Dim o As Integer, p As Integer, q As Integer, r As Integer, s As Integer, t As Integer
    Dim u As Integer, v As Integer, w As Integer, x As Integer, y As Integer, z As Integer
    Dim password As String
    Dim passwordFound As Boolean
    passwordFound = False

    For i = 65 To 90
        For j = 65 To 90
            For k = 65 To 90
                For l = 65 To 90
                    For m = 65 To 90
                        For n = 65 To 90
                            For o = 65 To 90
                                For p = 65 To 90
                                    For q = 65 To 90
                                        For r = 65 To 90
                                            For s = 65 To 90
                                                For t = 65 To 90
                                                    For u = 65 To 90
                                                        For v = 65 To 90
                                                            For w = 65 To 90
                                                                For x = 65 To 90
                                                                    For y = 65 To 90
                                                                        For z = 65 To 90
                                                                            password = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t) & Chr(u) & Chr(v) & Chr(w) & Chr(x) & Chr(y) & Chr(z)
                                                                            If password = ActiveSheet.ProtectPassword Then
                                                                                MsgBox “密码是: “ & password
                                                                                passwordFound = True
                                                                                Exit For
                                                                            End If
                                                                        Next z
                                                                    Next y
                                                                Next x
                                                            Next w
                                                        Next v
                                                    Next u
                                                Next t
                                            Next s
                                        Next r
                                    Next q
                                Next p
                            Next o
                        Next n
                    Next m
                Next l
            Next k
        Next j
    Next i

    If Not passwordFound Then
        MsgBox “未找到密码”
    End If
End Sub

最后，点击工具栏上的“运行”按钮（通常是一个绿色的三角形）。接下来就是等待程序运行完毕。如果密码是由纯大写字母组成且长度适中，程序很可能会成功破解并弹窗告诉你密码，同时工作表保护也就被移除了。