破解Excel 2003保护密码有效的笨办法
2011-06-10 12:35
423 查看
今晚要填一个Excel的表格,我前天没有去拷贝我的表格,就图方便拷了份别人的,没想到每个人的信息不一样,帮人事处将表格信息设密码了不准编辑,那怎么办,明天要交啊,只能想办法破解啊,想到了 VBA功能,这个我可是很熟哦,没想到很快试探出来了,哈哈,分享一下。
步骤如下:
1、新建一个宏,如PasswordCracker
2、打开宏对话框,编辑宏PasswordCracker,打开VBA编辑界面,在中输入
sub PasswordCracker()
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
3、运行这个宏,一两分钟后密码就被试探出,密码取消,可以编辑啦。
步骤如下:
1、新建一个宏,如PasswordCracker
2、打开宏对话框,编辑宏PasswordCracker,打开VBA编辑界面,在中输入
sub PasswordCracker()
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
3、运行这个宏,一两分钟后密码就被试探出,密码取消,可以编辑啦。
相关文章推荐
- Excel保护密码破解-----只支持2003版本
- 破解Excel保护密码方法
- 破解Excel 密码保护
- excel worksheet密码保护破解[转]
- 【转】破解Excel工作表保护密码
- EXCEL 工作表 保护 密码 破解
- 如何生成/读取带有密码的Office Excel 2003(Biff8格式)(非破解)
- EXCEL工作表保护密码破解
- EXCEL工作表保护密码破解方式
- Excel—“撤销工作表保护密码”的破解并获取原始密码
- 如何破解EXCEL保护密码
- VBA清除Excel密码保护,2003/2007/2010均适用
- Excel—“撤销工作表保护密码”的破解并获取原始密码
- 轻松破解excel 2007 工作表密码保护
- 破解Excel 密码保护
- Excel—“撤销工作表保护密码”的破解并获取原始密码
- 用VBA宏代码破解Excel密码保护
- 破解Excel保护密码
- office 2003/2007 自动破解excel写保护
- Excel—“撤销工作表保护密码”的破解并获取原始密码