您现在的位置是：首页 > 黄色污版 > 正文

黄色污版

excel解密，Excel轻松加密解锁，快速提高工作效率

工作效率轻松加密解密

admin2024-03-11黄色污版10

Excel是国际通行的电子表格处理软件，广泛应用于各行各业，是提高工作效率的强大工具。而Excel的加密功能，则可以让我们的数据更加安全。然而，当我们忘记加密密码时，就会很头疼。以下是Excel轻松加

Excel是国际通行的电子表格处理软件，广泛应用于各行各业，是提高工作效率的强大工具。而Excel的加密功能，则可以让我们的数据更加安全。然而，当我们忘记加密密码时，就会很头疼。以下是Excel轻松加密解锁的方法，让我们快速提高工作效率。

Excel加密操作

在Excel中，加密文件可以通过文件菜单下的“信息”选项卡来实现。在“信息”选项卡中，点击“保护工作簿”中的“加密密码”，弹出“设置密码”对话框，设置加密密码即可。完成加密后，关闭Excel文件，重新打开时，需要输入加密密码才能够打开文件。

Excel解密操作

如果我们忘记了Excel文件的加密密码，或者从其他人手中获取的加密Excel文件，需要进行解锁操作，那么可以通过以下方法来实现。

使用VBA代码解密

首先，打开加密的Excel文件，按下Alt+F11键进入“Microsoft Visual Basic for Applications”界面。在左侧的“项目－VBAProject”列表中选择需要解锁的文件，点击“插入”菜单下的“模块”选项，打开代码编辑界面，在其中添加如下VBA解锁代码：


Sub CrackPassword()
    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) & i1 & i2 & i3 & i4 & i5 & i6 & Chr(n)
    If ActiveSheet.ProtectContents = False Then
        MsgBox "One usable password is " & Chr(i) & Chr(j) & _
            Chr(k) & Chr(l) & Chr(m) & i1 & i2 & i3 & i4 & i5 & i6 & Chr(n)
         Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub