-
Excel
—“撤销工作表保护密码”的破解并获取原始密码
IT
技术
1
p>
、打开您需要破解保护密码的
Excel
文
件;
2
、
依次点击菜单栏上的工具
---
宏
--
--
录制新宏,输入宏名字如
:aa
;
3
、停止
录制
(
这样得到一个空宏
)
;
4
、依次点击菜单栏上的工具
---
宏
< br>----
宏
,
选
aa,
点编辑按钮;
p>
5
、删除窗口中的所有字符
(
只有几个
),
替换为下面的内容;
< br>
Public Sub
工作表保护密码破解
()
Const
DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE &
vbNewLine & _
作者
:
XXXXXXX
Const HEADER As String =
工作表保护密码破解
Const
VERSION As String = DBLSPACE &
版本
V
ersion
1.1.1
Const REPBACK As String = DBLSPACE
&
Const ZHENGLI As String = DBLSPACE &
XXXXXXX
Const
ALLCLEAR
As
String
=
DBLSPACE
&
该工作簿中的工作表密码保护已全
部解除
!!
& DBLSPACE &
请记得另保存
& DBLSPACE
&
注意:不要用在不当地方,要尊重他人的劳动成果!
Const MSGNOPWORDS1 As String =
该文件工作表中没有加密
Const
MSGNOPWORDS2 As String =
该文件工作表中没有加密
2
Const
MSGTAKETIME As String =
解密需花费一定时间
,
请耐心等候
!
按
确定开始破解
!
Const
MSGPWORDFOUND1
As
String
=
< br>密码重新组合为
:
&
DBLSPACE
&
&
DBLSPACE & _
p>
如果该文件工作表有不同密码
,
将搜索下一组密码并修改清除
Const
MSGPWORDFOUND2
As
String
=
< br>密码重新组合为
:
&
DBLSPACE
&
&
DBLSPACE & _
p>
如果该文件工作表有不同密码
,
将搜索下一组密码并解除
Const
MSGONLYONE As String =
确保为唯一的
?
Dim w1 As
Worksheet, w2 As Worksheet
Dim i As
Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As
Integer, i2 As Integer
Dim i3 As
Integer, i4 As Integer, i5 As Integer, i6 As
Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Updating = False
With
ActiveWorkbook
WinTag =
.ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or tContents
Next w1
If Not ShTag And Not
WinTag Then
MsgBox MSGNOPWORDS1,
vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME,
vbInformation, HEADER
If Not WinTag
Then
Else
On Error Resume
Next
Do 'dummy do loop
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
With ActiveWorkbook
.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 .ProtectStructure = False And
_
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) &
Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) &
Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6)
& Chr(n)
MsgBox tute(MSGPWORDFOUND1, _
Exit Do 'Bypass all
for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error
GoTo 0
End If
If
WinTag And Not ShTag Then
MsgBox
MSGONLYONE, vbInformation, HEADER
Exit
Sub
End If
-
-
-
-
-
-
-
-
-
上一篇:128首英文儿歌歌词
下一篇:案例(英文)