-
Excel
表格密码保护的解除方法
表格受密码保护时，我们修改数据
Excel
< br>弹出
“
您试图更改的单元格或图表受保
< br>护，
因而是只读的。
若要修改受保护单元格或图表，
请先使用
?
撤消工作表保
< br>
护
?
命令
(
在
?
审阅
?
选项卡的
?
更改
< br>?
组中
)
来取消保护。
可能会提示您输入密码。
这时候
我们可以用
VBA
宏代码破解法来破解表格保护密码：
第一步：
Office2003
打开该文件，
先解除默认的
“
宏禁用
”
状态，
方法是点击工具栏下的
“
选
< br>项
”
状态按钮，
打开
“Microsoft
Office
安全选项<
/p>
”
窗口，
选择其中的
“
启用此内容
”
，
“
确定
”
。再切换到
“
视图
”
选项卡，点击
“
宏
”→“
录
制宏
”
，出现
“
录制新宏
”
窗口，
在
“
宏名
”
定义一个名称为：
PasswordBreaker
，点击
“
确定
”
退出；
Office2007
默认是不显示开发工具栏的，在<
/p>
excel
窗口最顶端右键点击“
cus
to
me quick access tool<
自定义快捷
工具栏
>
”
---
》在新窗口中点击“
Popular<
常用
>
”
---
》选择右侧的“<
/p>
show developer tab in the ribbon
< br>”
,
确定；
在新
出现的
developer
工具栏，
< br>点击
“macro
security
”,
然后选择新窗体中的
“enable
all
macr
os
(not
recommands...)”
第
二步：再点击
“
宏
”→“
查看宏
”
，选择
“
宏名
”
下的
“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
ect_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
tContents
=
False
Then
MsgBox
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)
(1).Select
Range(
=_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”<
/p>
并点击
“
执
行<
/p>
”
，密码就现形了
第四步：点击
“
撤消工作表保护
”
，然后输入密码即可解除锁定；
测试
结果，
密码破解可用，
但是很晕的是破解的密码跟原来的密码有
很大的差距，
想不明白了，反正能用就好。
Public Sub
AllInternalPasswords()
'
Breaks worksheet and workbook structure passwords.
Bob McCormick
' probably
originator of base code algorithm modified for
coverage
' of workbook
structure / windows passwords and for multiple
passwords
'
' Norman Harker and JE McGimpsey
27-Dec-2002 (Version 1.1)
'
Modified 2003-Apr-04 by JEM: All msgs to
constants, and
' eliminate
one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original
passwords
Const DBLSPACE As
String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE &
vbNewLine & _
Const HEADER As
String =
Const VERSION As
String = DBLSPACE &
Const
REPBACK As String = DBLSPACE &
Const ALLCLEAR
As String = DBLSPACE &
DBLSPACE &
DBLSPACE &
DBLSPACE &
Const
MSGNOPWORDS1 As String =
Const
MSGNOPWORDS2 As String =
Const MSGTAKETIME As String =