Excel表格密码保护的解除方法-超级好用

今天工作的时候，发现一个Excel表，有一个单元格的公式不对，我去修改一下，发现有密码保护，我也忘记密码是什么了。

于是我想到github有一个大佬分享过，我这里就尝试了一下，发现真的可以。

我这里给大家说一下，

1. 在视图文件里面，选择宏，录制一个宏，然后宏退出。

2. 从宏文件里面查看宏，点击编辑，粘贴以下代码

   
   

   
   

   
   

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

4. 关闭代码界面，点查看宏，执行

5. 这个时候你就会看到密码

有的小伙伴会说，我是office 2016用这个代码不管用啊，这里也给你提供了office 2016的代码，只需要替换上面的代码就可以，其他操作都一样。

Sub PasswordBreaker()    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) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)    If ActiveSheet.ProtectContents = False Then
    MsgBox "One usable password is " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    ActiveWorkbook.Sheets(1).Select
    Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: NextEnd Sub

对了需要说明一下啊，破解的密码和原来的密码有点出入，但是可以使用。

这需要感谢一下github上的大佬parano