如何破解excel工作表保护密码忘记密码怎么办

操作方法

1、 新建一个超过工作表，而后点击另存为，讲表格保存为启用宏的工作表

2、 一次点击开发工具-录制新宏，在弹出的对话框内修改宏名称而后确定

3、 依次点击开发工具-停止录制宏，宏录制完成

4、 依次点击开发工具， - 宏-在弹出的对话框找到我们刚才录制的宏名称而后进入使用界面

5、 在使用界面，全选里面的代码，而后删除，讲里面的代码全部删除完

6、 代码复制到使用编辑窗口内

public sub allinternalpasswords()

断开工作表和工作簿结构密码。鲍勃麦考密克

可能是为覆盖范围修改的基本代码算法的创始人

工作簿结构/windows密码和多重密码

"

诺曼哈克和作业评估麦克吉姆西2002年12月27日(1.1版)

由jem:于2003年四月四日将所有味精修改为常数，以及

取消一个出口接头（版本1.1.1)

显示散列密码而不是原始密码

常量字符串形式的空间

const authors as string=dblspace vbnewline \ u

改编自鲍勃麦考密克的基本代码由" _

诺曼哈克和作业评估麦克金普西

常量标题为字符串="所有内部密码用户消息"

const version as string=dblspace " version 1。1 ." 2003年4月1日"

字符串=dblspace "请报告失败" _

微软。公众。excel。设计新闻组。

常量全部清除为字符串=dblspace "工作簿应该" _

现在没有任何密码保护，所以请确保您：" _

"现在就拯救它!"" dblspace "和"还"

dblspace "backup！backup！backup！"_

还有，记住密码是"_

放在那里是有原因的。不要把关键的公式塞得满满的" _

或者数据。数据库空间"访问和使用某些数据" _

可能会冒犯你。如果有疑问，不要，"

常量msgnopowords 1为字符串="上没有密码" _

"工作表，工作簿结构或窗口"作者版本

常量msgnopowords 2为字符串="没有保护" _

工作簿结构或窗口dblspace \u

正在取消工作表保护。作者版本

将msgtaketime常量设置为字符串="按下确定按钮后，该" _

"需要一些时间，“dblspace”时间量" _

取决于有多少个不同的密码

密码和你电脑的规格dblspace \u

耐心点！"给我冲杯咖啡，"作者版本

常量msgpwordfound1为字符串="您有工作表" _

"结构或窗口密码集dblspace _

找到的密码是： " dblspace "$$" dblspace _

用"_"记下来，以便将来在其他工作簿中使用

设置此密码的同一个人dblspace \u

现在检查并清除其他密码。作者版本

常量msgpwordfound2为字符串="您有工作表" _

密码设置。数据库空间"找到的密码是： " _

dblspace "$$" dblspace "记下它的潜在性" _

同一个人将来在其他工作簿中使用" _

设置此密码" dblspace "现在检查并清除" _

"其他密码，"作者版本

const msgonlyone as string=" only structure/windows " _

用刚刚找到的密码保护。_

allclear authors版本repback

将w1作为工作表w2作为工作表

创建相应的变量为整数，j为整数，k为整数，l为整数

dim m为整数，n为整数，i1为整数，i2为整数

dim i3为整数，i4为整数，i5为整数，i6为整数

将命令一作为字符串变暗

将自定义标签设为布尔值，将自定义标签设为布尔值

申请。屏幕更新=假

带活动工作簿

wintag=.保护结构或.protectwindows

以…结尾

shtag=false

对于工作表中的每个w1

shtag=shtag或w1 .保护内容

下一个w1

如果不是时标也不是温标，那么

msgbox msgnopwords1，vbinformation，header

出口接头

如果…就会结束

msgbox msgtaketime，vbinformation，header

如果不是wintag那么

msgbox msgnopwords2，vbinformation，header

其他

出错时继续下一步

“做”虚拟做循环

i=65至66:j=65至66:k=65至66

l=65至66:m=65至66: i1=65至66

对于i2=65至66:对于i3=65至66:对于i4=65至66

对于i5=65至66:对于i6=65至66:对于n=32至126

带活动工作簿。解除chr(i) chr(j) chr(k) _

chr(l) chr(m) chr(i1) chr(i2) _

chr(i3)chr(i4)chr(i5)chr(i6)chr(n)

如果……保护结构=假与。保护窗口=假则

pword1=chr(i) chr(j) chr(k) chr(

l) _

chr(m) chr(i1) chr(i2) chr(i3) _

chr(i4) chr(i5) chr(i6) chr(n)

对话框应用程序。替代(msgpwordfound1，_

$$ "，pword1)，vbinformation，header

"退出"绕过所有.nexts

如果…就会结束

以…结尾

下一个：下一个：下一个：下一个：下一个：下一个

下一个：下一个：下一个：下一个：下一个：下一个

循环直到真

出现错误goto 0

如果…就会结束

如果是wintag而不是shtag那么

msgbox msgonlyone，vbinformation，header

出口接头

如果…就会结束

出错时继续下一步

对于工作表中的每个w1

尝试清除pword1

w1 .取消保护pword1

下一个w1

出现错误goto 0

shtag=false

对于工作表中的每个w1

如果不是，检查所有清除的shtag触发为1。

shtag=shtag或w1 .保护内容

下一个w1

如果是，那么

对于工作表中的每个w1

带w1

如果……保护内容然后

出错时继续下一步

"做"虚拟做循环

i=65至66:j=65至66:k=65至66

l=65至66:m=65至66: i1=65至66

对于i2=65至66:对于i3=65至66:对于i4=65至66

对于i5=65至66:对于i6=65至66:对于n=32至126。解除chr(i) chr(j) chr(k) _

chr(l)chr(m)chr(i1)chr(i2)chr(i3)_

chr(i4) chr(i5) chr(i6) chr(n)

如果不是。保护内容然后

pw ord1=chr(i)chr(j)chr(k)chr(l)_

chr(m) chr(i1) chr(i2) chr(i3) _

chr(i4) chr(i5) chr(i6) chr(n)

对话框应用程序。替代(msgpwordfound2，_

$$ "，pword1)，vbinformation，header

通过尝试其他表来利用查找密码

对于工作表中的每个w2

w2 .取消保护pword1

下一个w2

"退出"绕过所有.nexts

如果…就会结束

下一个：下一个：下一个：下一个：下一个：下一个

下一个：下一个：下一个：下一个：下一个：下一个

循环直到真

出现错误goto 0

如果…就会结束

以…结尾

下一个w1

如果…就会结束

msgbox alclear authors version reback，vbinformation，header

末端接头

点击保存

7、 点击开发工具，宏，找到我们刚才录制的宏，点击执行宏

8、 而后，在弹出的所有对话框上，都点击确定，都确定，1分钟后，就可以编辑了

特别提示

本方法仅适用于2007-2016版本

相关知识

欧普led工作灯它的充电器在哪买

它标配有根电缆和标准usb端口。如果是普通电源插座，需要配插头

飞利浦新安怡奶瓶消毒器灯亮着怎么不工作呢

我的工作是开灯问客服。我的工作是开灯问客服。我的工作是开灯。找客服工作就行。工作，我的就是开灯工作。工作，我的就是开灯工作。

欧普led工作灯有人说充电冲不了多长时间是吗

充电时间没怎么注意，估计3小时左右。充电后注意使用时间。我家平均每天用1小时，大概半个月。

一杯香龙井想买一些茶工作时候喝，最近总是犯困，哪个好喝

嫩茶水温不宜过高。我很喜欢一杯龙井茶味道的茶。喝完之后，满嘴都是浓浓的茶香。平时很喜欢喝一杯龙井茶香味浓郁的绿茶。长期喝绿茶对我的健康很有好处。事情真的很好。打开就能闻到香味。包装很仔细。茶叶还配有密封夹，因此存放在冰箱中时不会受潮。

九阳家用和面机一次能能工作多长时间

如果你连续工作，机器会发热。建议工作两轮让其休息散热

康佳对开门冰箱工作时为什么啪啪啪的响，冰箱里很干净呀。

我刚接电的时候有响声。等温度降下来稳定下来就没了

建议观察。如果你做不到，就卖掉它