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

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

用宏代码破解密码:以为例说明,(2003也是一样的,只是菜单命令的位置不同)

第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“M i c r o s o f t O f f i c e安全选项”窗口,选择其中的“启用此内容”,“确定”退出;再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:P a s s W o r d B r e a k e r,点击“确定”退出;

第二步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“编辑”,打开“M i c r o s o f t V i s u a l B a s i c”编辑器,用如下内容替换右侧窗口中的所有代码:

S u b P a s s w o r d B r e a k e r() D i m i A s I n t e g e r,j A s I n t e g e r,k A s I n t e g e r D i m l A s I n t e g e r,m A s I n t e g e r,n A s I n t e g e r D i m i1A s I n t e g e r,i2A s I n t e g e r,i3A s I n t e g e r D i m i4A s I n t e g e r,i5A s I n t e g e r,i6A s I n t e g e r O n E r r o r R e s u m e N e x t F o r i=65T o66:F o r j=65T o66:F o r k=65T o6 6 F o r l=65T o66:F o r m=65T o66:F o r i1=65T o6 6 F o r i2=65T o66:F o r i3=65T o66:F o r i4=65T o6 6 F o r i5=65T o66:F o r i6=65T o66:F o r n=32T o12 6 A c t i v e S h e e t.U n p r o t e c t C h r(i)&C h r(j)&C h r(k)&_

C h r(l)&C h r(m)&C h r(i1)&C h r(i2)&C h r(i3)&_ C h r(i4)&C h r(i5)&C h r(i6)&C h r(n) I f A c t i v e S h e e t.P r o t e c t C o n t e n t s=F a l s e T h e n M s g B o x"O n e u s a b l e p a s s w o r d i s"&C h r(i)&C h r(j)&_ C h r(k)&C h r(l)&C h r(m)&C h r(i1)&C h r(i2)&_ C h r(i3)&C h r(i4)&C h r(i5)&C h r(i6)&C h r(n) A c t i v e W o r k b o o k.S h e e t s(1).S e l e c t R a n g e("a1").F o r m u l a R1C1=C h r(i)&C h r(j)&_ C h r(k)&C h r(l)&C h r(m)&C h r(i1)&C h r(i2)&_ C h r(i3)&C h r(i4)&C h r(i5)&C h r(i6)&C h r(n) E x i t S u b E n d I f N e x t:N e x t:N e x t:N e x t:N e x t:N e x t N e x t:N e x t:N e x t:N e x t:N e x t:N e x t E n d S u b

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

相关文档
最新文档