您好，欢迎来Office 求助！
wps文字/WPS表格怎样设置保护密码
打开文件时的密码
提问时间：<font color="#ff/01/03 22:15回答数：1
网友的回答共1条
wps2010sp1：&菜单“工具”-》“保护”-》“保护工作簿”，输入保护密码。
相关已解决问题
·&1个回答
·&1个回答
·&1个回答
·&1个回答
·&1个回答
·&1个回答
·&1个回答
·&1个回答
·&1个回答
·&1个回答
网友正在问如何给WPS表格工作簿加入密码保护_计算机一级频道_精英考试网
如何给WPS表格工作簿加入密码保护
【精英考试阅读提示】如果在WPS文字插入的表格不让修改，只能修改表格外的文字时，你该如何处理呢？由于WPS文字插入的表格没有保护功能，数据很容易被修改。即使设置文档保护，但编辑表外文字时将十分不便。解决办法是利用ET的强大功能轻松实现。
&&& 如果用户有特殊要求，在WPS文字插入的表格不让修改，只能修改表格外的文字。而WPS文字插入的表格没有保护功能，数据很容易被修改。该怎么办呢？虽然我们可以设置文档保护，但这样一来，编辑表外文字也麻烦。那么该如何解决这一问题？只要你开动脑筋，就可以想出办法来。　　其实办法很简单，利用ET的强大功能就可以轻松实现。　　1、在文字需要插入表格的地方点“插入”菜单，选下拉列表中的对象。　　2、在选“新建”――“WPS表格工作簿”，确定。　　3、系统自动打开ET工作簿，在工作簿中设置好表格，并选中所需要的区域。　　4、设置工作作表保护。　　5、输入两次保护密码。　　6、关闭工作簿，回到WPS文字，这时表格已经插好，不知道密码的人无法修改表格内容。延伸阅读：共享：全国等考一级B模拟题全国一级考试对于基本技能的把握和检验，是比较合适的。它面向使用计算机进行文字和其他事务信息处理人员的技能测评，强调Windows 基本操作、汉字录入、字处理、电子表格等能力的熟练程度。...[]
【】 【】【】【】
计算机一级相关内容导读
??????????
　　声明：本站内容均来自于互联网，本站刊登这些内容旨在帮助用户更好地学习或了解相关内容，并非表示本站赞同其观点，作品版权归其著作权人或其他法定权益人所有，如有侵权请告知本站，本站查证后将在24小时内删除。作者或权益人请将申明发送到以下邮箱:（请将#替换成@）
　最新热点
??????????忘记WPS工作表当中的撤消密码怎么办?
忘记WPS工作表当中的撤消密码怎么办?
&1、打开您需要破解保护密码的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密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档，你又想恢复密码设置，就可以用此密码进行保护，他就能用他设置的密码打开，你可以试试，很有趣的。字母一定要大写)：
再点击确定。Excel的原始密码就被清除了!!
的感言：不知道说什么，送你一朵小红花吧：） 相关知识
相关知识等待您来回答
软件领域专家
& &SOGOU - 京ICP证050897号