破解Excel保护方法

我们将无可奈何，

除非用户设置的密码很简单，

那我就告诉你一个秘密，

当密码的形式是“*123*”或“*abc*”时，

我们可以分

别用“*333*”或“*ccc*”来破解，

星号表示任意字符，

到底是什么只有靠猜了，

这种方 法对工作表和工作簿保护的密码也适应。

3

．取消单元格数据的只读属性

有时单元格中的数据虽然可见，但是我们既不能 修改，也不能在当前工

作表中复制，

对于这种保护措施，

取消的方法跟上面的第

2

点基本相同，

只要取

消单元格格式设置对话框中“保护”选项卡中的“锁定”一项即 可。

当然还需要

通过密码取消工作表的保护才行。

如果我们无法通过密码取消怎么办？你

可以将其复制粘贴到其他工作表中，再在新的工作表中进行修改。

二、解除工作表的保护

查看是否有被隐藏的工作表，若菜单中有“格式→工作表→取消隐藏”

< br>项，则可通过此项取消隐藏的工作表。

如果在菜单中也没有有效的“取消隐藏”项，仍然可能有被隐藏的工作

< br>表，

这时我们可以任选一工作表右击，

在弹出菜单中选择 “查看代码”，

然后在

左窗格中的“Microsoft Excel 对象”列表中选择被隐藏的工作表，将其

“Visible”属性值取“< /p>

-

1”退出即可，如图所示。

如果工作表被密码保护，则可复制当前表全部内 容到另一张未保护的工

作表中编辑。

三、

VBA

宏代码破解法：

第一步：打开该文件，先解除默认的“宏禁用” 状态，方法是点击工具

栏下的“选项”状态按钮，打开“Microsoft Offi ce

安全选项”窗口，选择其

中的“启用此内容”，“确定”退 出

(

图

2)

；

再切换到“视图”选项卡，

点击“宏”→“录制宏”，

出现“录制新宏”窗

口，在“宏名”定义一个名称为：

PasswordBreaker(

图

3)

< br>，点击“确定”退出；

第二步：再点击“宏”→“查看宏”，选择“宏名”下的

“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

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

(1).Select

Range(

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”并点击“执行”，密码就现 形了

(

图

4)

。

< /p>

第四步：

切换“审阅”选项卡，

点击“撤 消工作表保护”，

然后输入密码即

可解除锁定。

另一个 能解除

Excel

工作表保护的

VBA

脚本

Option Explicit

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 & _