excel中撤销工作表保护密码并获取原始密码

e x c e l中撤销工作表保护密码并获取原始密码

Document number：NOCG-YUNOO-BUYTT-UU986-1986UT

用宏代码破解密码：

以为例说明，（2003也是一样的，只是菜单命令的位置不同）

第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“MicrosoftOffice安全选项”窗口，选择其中的“启用此内容”，“确定”退出；

再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PassWordBreaker，点击“确定”退出；

第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisualBasic”编辑器，用如下内容替换右侧窗口中的所有代码：

SubPasswordBreaker()

DimiAsInteger,jAsInteger,kAsInteger

DimlAsInteger,mAsInteger,nAsInteger

Dimi1AsInteger,i2AsInteger,i3AsInteger

Dimi4AsInteger,i5AsInteger,i6AsInteger OnErrorResumeNext

Fori=65To66:Forj=65To66:Fork=65To66

Forl=65To66:Form=65To66:Fori1=65To66

Fori2=65To66:Fori3=65To66:Fori4=65To66

Fori5=65To66:Fori6=65To66:Forn=32To126 (i)&Chr(j)&Chr(k)&_

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

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

=FalseThen MsgBox"Oneusablepasswordis"&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("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)

ExitSub

EndIf

Next:Next:Next:Next:Next:Next

Next:Next:Next:Next:Next:Next

EndSub

第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了。