怎样制作表白网站重庆网站建设及优化公司

暴力破解Excel受保护的单元格密码

分享一个暴力破解Excel受保护的单元格密码的方法

第一步

在Excel中按下Alt + F11，打开Visual Basic for Applications（VBA）编辑器。

第二步

在VBA编辑器中，点击插入菜单，选择模块。

第三步

在新建的模块中，输入以下VBA代码：

代码，复制粘贴进去

Option ExplicitSub RemovePassword()Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim i1 As Integer, i2 As Integer, i3 As IntegerDim i4 As Integer, i5 As Integer, i6 As IntegerFor i = 65 To 66For j = 65 To 66For k = 65 To 66For l = 65 To 66For m = 65 To 66For i1 = 65 To 66For i2 = 65 To 66For i3 = 65 To 66For i4 = 65 To 66For i5 = 65 To 66For i6 = 65 To 66For n = 32 To 126On Error Resume NextActiveSheet.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)On Error GoTo 0If ActiveSheet.ProtectContents = False ThenMsgBox "密码为：" & 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 SubEnd IfNext nNext i6Next i5Next i4Next i3Next i2Next i1Next mNext lNext kNext jNext i
End Sub

第四步

按下F5键或在VBA编辑器中点击运行菜单，选择运行子过程。

第五步

等待几秒钟，弹出的消息框将显示你的密码。