如何撤销工作表保护

  • 格式:doc
  • 大小:20.00 KB
  • 文档页数:2

Excel密码保护的解除方法与解除原理

出现这种情况,应该怎么解决呢?经过研究,找到了两种破解Excel工作表保护码的方法。

一、VBA宏代码破解法:

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

再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:PasswordBreaker(图3),点击“确定”退出;

第二步:再点击“宏”→“查看宏”,选择“宏名”下的“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”并点击“执行”,密码就现形了(图4)。

第四步:切换“审阅”选项卡,点击“撤消工作表保护”,然后输入密码即可解除锁定。