用VBA宏代码破解Excel密码保护
2010-03-24 16:42
766 查看
第一步:打开该文件,先解除默认的“宏禁用”状态。 方法是:把工具栏下的【宏】→【安全性】中的【安全级】设置为中或者为低即可。 再切换到工具栏下的【宏】→【录制新宏】,出现“录制新宏”窗口,在“宏名”定义一个名称为:PassWordBreaker,点击“确定”退出; 第二步:再点击工具栏下的【宏】→【安全性】,选择“宏名”下的“PasswordBreaker”并点击“编辑”,打开“Microsoft Visual Basic”编辑器,用如下内容替换右侧窗口中的所有代码: 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 第三步:再点击工具栏下的【宏】→【安全性】,选择“宏名”下的“PasswordBreaker”并点击“执行”,密码就现形了。同样密码也就解除了。 |
相关文章推荐
- 用简单代码破解Excel保护密码
- 破解Excel工作表密码保护的代码
- Excel工作表保护密码破解的宏代码
- Excel—“撤销工作表保护密码”的破解并获取原始密码
- EXCEL密码破解/破解工作表保护密码(详细图文教程)
- Excel—“撤销工作表保护密码”的破解并获取原始密码
- Excel—“撤销工作表保护密码”的破解并获取原始密码
- EXCEL工程加密及工作表保护密码破解方法
- EXCEL保护工作表--密码破解
- VBA 破解Excel工作表保护密码
- 破解EXCEL保护密码
- Excel破解密码代码
- 破解Excel保护密码方法
- 轻松破解excel 2007 工作表密码保护
- 如何破解EXCEL保护密码
- EXCEL密码破解/破解工作表保护密码
- excel中VBAProject密码破解与保护(转+原)
- Excel—“撤销工作表保护密码”的破解并获取原始密码
- 破解excel密码保护【转】
- Excel—“撤销工作表保护密码”的破解并获取原始密码