忘记WPS工作表当中的撤消密码怎么办?
我的图书馆
忘记WPS工作表当中的撤消密码怎么办?
1、在Microsoft&Office excel中打开您需要破解保护密码的Excel文件；2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa； 3、停止录制(这样得到一个空宏)；4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；
5、删除窗口中的所有字符(只有几个),替换为下面的内容；
从横线下开始复制
------------------------------------------------------------------------------------------
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&&&_&
"Adapted&from&Bob&McCormick&base&code&by"&&&_&
"Norman&Harker&and&JE&McGimpsey"&
Const&HEADER&As&String&=&"AllInternalPasswords&User&Message"&
Const&VERSION&As&String&=&DBLSPACE&&&"Version&1.1.1&2003-Apr-04"&
Const&REPBACK&As&String&=&DBLSPACE&&&"Please&report&failure&"&&&_&
"to&the&microsoft.public.excel.programming&newsgroup."&
Const&ALLCLEAR&As&String&=&DBLSPACE&&&"The&workbook&should&"&&&_&
"now&be&free&of&all&password&protection,&so&make&sure&you:"&&&_&
DBLSPACE&&&"SAVE&IT&NOW!"&&&DBLSPACE&&&"and&also"&&&_&
DBLSPACE&&&"BACKUP!,&BACKUP!!,&BACKUP!!!"&&&_&
DBLSPACE&&&"Also,&remember&that&the&password&was&"&&&_&
"put&there&for&a&reason.&Don't&stuff&up&crucial&formulas&"&&&_&
"or&data."&&&DBLSPACE&&&"Access&and&use&of&some&data&"&&&_&
"may&be&an&offense.&If&in&doubt,&don't."&
Const&MSGNOPWORDS1&As&String&=&"There&were&no&passwords&on&"&&&_&
"sheets,&or&workbook&structure&or&windows."&&&AUTHORS&&&VERSION&
Const&MSGNOPWORDS2&As&String&=&"There&was&no&protection&to&"&&&_&
"workbook&structure&or&windows."&&&DBLSPACE&&&_&
"Proceeding&to&unprotect&sheets."&&&AUTHORS&&&VERSION&
Const&MSGTAKETIME&As&String&=&"After&pressing&OK&button&this&"&&&_&
"will&take&some&time."&&&DBLSPACE&&&"Amount&of&time&"&&&_&
"depends&on&how&many&different&passwords,&the&"&&&_&
"passwords,&and&your&computer's&specification."&&&DBLSPACE&&&_&
"Just&be&patient!&Make&me&a&coffee!"&&&AUTHORS&&&VERSION&
Const&MSGPWORDFOUND1&As&String&=&"You&had&a&Worksheet&"&&&_&
"Structure&or&Windows&Password&set."&&&DBLSPACE&&&_&
"The&password&found&was:&"&&&DBLSPACE&&&"$$"&&&DBLSPACE&&&_&
"Note&it&down&for&potential&future&use&in&other&workbooks&by&"&&&_&
"the&same&person&who&set&this&password."&&&DBLSPACE&&&_&
"Now&to&check&and&clear&other&passwords."&&&AUTHORS&&&VERSION&
Const&MSGPWORDFOUND2&As&String&=&"You&had&a&Worksheet&"&&&_&
"password&set."&&&DBLSPACE&&&"The&password&found&was:&"&&&_&
DBLSPACE&&&"$$"&&&DBLSPACE&&&"Note&it&down&for&potential&"&&&_&
"future&use&in&other&workbooks&by&same&person&who&"&&&_&
"set&this&password."&&&DBLSPACE&&&"Now&to&check&and&clear&"&&&_&
"other&passwords."&&&AUTHORS&&&VERSION&
Const&MSGONLYONE&As&String&=&"Only&structure&/&windows&"&&&_&
"protected&with&the&password&that&was&just&found."&&&_&
ALLCLEAR&&&AUTHORS&&&VERSION&&&REPBACK&
Dim&w1&As&Worksheet,&w2&As&Worksheet&
Dim&i&As&Integer,&j&As&Integer,&k&As&Integer,&l&As&Integer&
Dim&m&As&Integer,&n&As&Integer,&i1&As&Integer,&i2&As&Integer&
Dim&i3&As&Integer,&i4&As&Integer,&i5&As&Integer,&i6&As&Integer&
Dim&PWord1&As&String&
Dim&ShTag&As&Boolean,&WinTag&As&Boolean
Application.ScreenUpdating&=&False&
With&ActiveWorkbook&
WinTag&=&.ProtectStructure&Or&.ProtectWindows&
ShTag&=&False&
For&Each&w1&In&Worksheets&
ShTag&=&ShTag&Or&w1.ProtectContents&
If&Not&ShTag&And&Not&WinTag&Then&
MsgBox&MSGNOPWORDS1,&vbInformation,&HEADER&
MsgBox&MSGTAKETIME,&vbInformation,&HEADER&
If&Not&WinTag&Then&
MsgBox&MSGNOPWORDS2,&vbInformation,&HEADER&
On&Error&Resume&Next&
Do&'dummy&do&loop&
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&
With&ActiveWorkbook&
.Unprotect&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&.ProtectStructure&=&False&And&_&
.ProtectWindows&=&False&Then&
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)&
MsgBox&Application.Substitute(MSGPWORDFOUND1,&_&
"$$",&PWord1),&vbInformation,&HEADER&
Exit&Do&'Bypass&all&for...nexts&
Next:&Next:&Next:&Next:&Next:&Next&
Next:&Next:&Next:&Next:&Next:&Next&
Loop&Until&True&
On&Error&GoTo&0&
If&WinTag&And&Not&ShTag&Then&
MsgBox&MSGONLYONE,&vbInformation,&HEADER&
On&Error&Resume&Next&
For&Each&w1&In&Worksheets&
'Attempt&clearance&with&PWord1&
w1.Unprotect&PWord1&
On&Error&GoTo&0&
ShTag&=&False&
For&Each&w1&In&Worksheets&
'Checks&for&all&clear&ShTag&triggered&to&1&if&not.&
ShTag&=&ShTag&Or&w1.ProtectContents&
If&ShTag&Then&
For&Each&w1&In&Worksheets&
If&.ProtectContents&Then&
On&Error&Resume&Next&
Do&'Dummy&do&loop&
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&
.Unprotect&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&Not&.ProtectContents&Then&
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)&
MsgBox&Application.Substitute(MSGPWORDFOUND2,&_&
"$$",&PWord1),&vbInformation,&HEADER&
'leverage&finding&Pword&by&trying&on&other&sheets&
For&Each&w2&In&Worksheets&
w2.Unprotect&PWord1&
Exit&Do&'Bypass&all&for...nexts&
Next:&Next:&Next:&Next:&Next:&Next&
Next:&Next:&Next:&Next:&Next:&Next&
Loop&Until&True&
On&Error&GoTo&0&
MsgBox&ALLCLEAR&&&AUTHORS&&&VERSION&&&REPBACK,&vbInformation,&HEADER&
-----------------------------------------------------------------------------------------
复制到横线以上
&&&&6、关闭编辑窗口；
&&&&7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次；&
&&&&等一会,就会出现以下对话框：这就是密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档，你又想恢复密码设置，就可以用此密码进行保护，他就能用他设置的密码打开，你可以试试，很有趣的。字母一定要)：
&再点击确定。Excel的原始密码就被清除了!!
TA的最新馆藏[转]&[转]&[转]&[转]&[转]&本周热门月度阅读
本站仅为用户提供信息存储空间服务及链接、搜索服务，所有资源信息均未作修改，不对其真实性、合法性负责。
如有涉嫌侵权或违法违规内容，请，以便及时处理。you have been blocked查看: 8191|回复: 2
注册时间金币3 积分1威望2
LV.1, 积分 1, 距离下一级还需 49 积分
该用户从未签到金币3 威望2 帖子精华0
我的一份WPS EXCEL表格设置了工作表保护，但忘记了密码，怎么样才可以撤销工作表保护？特急，请高手告知。谢谢。
注册时间金币550 积分9231威望15228
签到天数: 237 天[LV.7]常住居民III金币550 威望15228 帖子精华22
因为目前的办公软件加密都是调用系统支持的加密方式进行的~~
所以忘记密码的话，只能到网上找一下有没有破解软件了~
点击收听小昌哥，了解更多更好玩更实用的WPS技巧~
注册时间金币3 积分7威望9
LV.1, 积分 7, 距离下一级还需 43 积分
该用户从未签到金币3 威望9 帖子精华0
我也遇到同样的问题
技巧教程分享达人
技巧教程分享达到10篇以上
乐于助人奖
在问答求助区积极帮助S党解答问题
最佳教程奖
发布教程帖子达到精华帖大于等于2以上可领取！
测试体验官
通过评测WPS，评奖获得
活跃会员奖
发帖数达到2000以上且在线时间超过200个小时可领取！
优秀会员奖
论坛金币满500且在线时间达到100小时的S党可领取！
勤奋版主奖
勤奋版主奖，版主发帖数大于2000且注册天数满足180天可领取
WPS论坛版主可申请！
优秀模板奖
分享的模板，达到2个或2个以上的精华贴可领取！
Powered by