大家好，来宝来为大家解答以下问题，刷卡记录表如何撤销工作表保护密码，撤销工作表保护密码很多人还不知道，今天让我们一起来看看吧！
我们在使用超过工作表的时候可能都使用过保护功能，这样就可以把工作表用密码保护起来，防止别人来进行修改，但是这样可能没有办法进行一些特殊操作，时间长了还可能忘记密码，这要怎么办？如何撤销工作表保护密码？下面就来介绍一下。
撤销工作表保护密码方法：
2007版超过表格中可以按照以下方式建宏：
1、打开超过表格中的超过选项，选择自定义，得到如下画面：
2、然后在左边侧框栏中选择"查看宏"之后双击或者选择添加按钮，则可以看到右边栏中有了查看宏按钮，之后点击右下角的确定。
3、大家可以在下面这个窗口处看到箭头所指的按钮：点击按钮，之后弹出窗口：
4、在宏名处填写一个名字(可随意),然后点击创建，弹出以下窗口：
5、将窗口内的内容全选后删除，然后将下面分割线以内的内容开始复制粘贴在上面的窗口内：
撤销工作表保护密码从横线下开始复制
-
选项显式
Public Sub AllInternalPasswords()
破坏工作表和工作簿结构密码。鲍勃麦考密克
可能是为覆盖范围修改的基本代码算法的发起者
工作簿结构/windows密码和多个密码
诺曼哈克和作业评估麦金普西2002年12月27日(版本1.1)
由杰姆于2003年4月4日修改：所有味精为常数，以及
取消一个出口接头(版本1.1.1)
显示哈希密码，而不是原始密码
const DBLSPACE As String=VB newline VB newline
const AUTHORS As String=DBLSPACE VB newline _
改编自鲍勃麦考密克的基础代码
诺曼哈克和作业评估麦金普西
常数标头为String=AllInternalPasswords用户消息
常数版本为 String=DBLSPACE 版本1 .1 .1 2003-2004年4月
Const REPBACK As String=DBLSPACE 请报告失败 _
添加到微软。公共的。excel。设计新闻组。
Const ALLCLEAR As String=DBLSPACE"工作簿应该"_
现在没有任何密码保护，所以请确保您： _
DBLSPACE"现在就保存!"数字空间和还有 _
DBLSPACE的后援!后援!后援!_
数字空间另外，请记住密码是 _
放在那里是有原因的。不要把重要的公式塞得满满的
或者数据“DBLSPACE”某些数据的访问和使用"_
可能是一种冒犯。如果有疑问，不要这样做。
Const MSGNOPWORDS1 As String=上没有密码 _
工作表、工作簿结构或窗口。作者版本
Const MSGNOPWORDS2 As String=没有保护 _
工作簿结构或窗口DBLSPACE _
继续取消工作表保护。作者版本
按下确定按钮后，const MSGTAKETIME As String= this _
需要一些时间DBLSPACE"时间量"_
取决于有多少不同的密码
密码和你电脑的规格DBLSPACE _
耐心点!"给我冲杯咖啡!"作者版本
Const MSGPWORDFOUND1 As String=您有一个工作表 _
结构或Windows操作系统密码集DBLSPACE _
找到的密码是： DBLSPACE $$ DBLSPACE _
用"_"记下它，以便将来在其他工作簿中使用
设置这个密码的人DBLSPACE _
现在检查并清除其他密码。作者版本
Const MSGPWORDFOUND2 As String=您有一个工作表 _
密码设置找到的密码是："_
DBLSPACE $$ DBLSPACE 记下潜在可能性 _
同一个人将来在其他工作簿中使用 _
设置这个密码 DBLSPACE 现在检查并清除 _
其他密码。作者版本
const MSGONLYONE As String= Only structure/windows _
用刚刚找到的密码保护着。_
放行作者版本报告
将w1作为工作表，w2作为工作表
创建相应的变量为整数，j为整数，k为整数，l为整数
尺寸m为整数，n为整数，i1为整数，i2为整数
将i3作为整数，i4作为整数，i5作为整数，i6作为整数
Dim PWord1作为字符串
Dim ShTag为布尔值，WinTag为布尔值
申请ScreenUpdating=False
使用活动工作簿
WinTag=.保护结构或。保护窗口
以…结尾
ShTag=False
对于工作表中的每个w1
ShTag=ShTag或w1 .保护内容
下一个w1
如果不是ShTag和WinTag，则
MsgBox MSGNOPWORDS1，vbInformation头
出口接头
如果…就会结束
MsgBox MSGTAKETIME，vbInformation，HEADER
如果不是WinTag，那么
MsgBox MSGNOPWORDS2，vbInformation头
其他
出错时继续下一步
做虚拟做循环
对于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
使用活动工作簿
.取消保护人权人权(j)人权(k) _
Chr(l) Chr(m) Chr(i1) Chr(i2) _
铬(i3)铬(i4)铬(i5)铬(i6)铬(名词)
如果ProtectStructure=False And _
.那么ProtectWindows=False
p word 1=Chr(I)Chr(j)Chr(k)Chr(l)_
Chr(m) Chr(i1) Chr(i2) Chr(i3) _
铬(i4)铬(i5)铬(i6)铬(名词)
对话框应用程序。替换(MSGPWORDFOUND1，_
$$ ，PWord1)，vbInformation，HEADER
Exit Do Bypass all for.下一步
如果…就会结束
以…结尾
下一页：下一页：下一页：下一页：下一页：下一页
下一页：下一页：下一页：下一页：下一页：下一页
循环直到真
出错时转到0
如果…就会结束
如果是WinTag而不是ShTag，则
MsgBox MSGONLYONE，vbInformation标头
出口接头
如果…就会结束
出错时继续下一步
对于工作表中的每个w1
尝试用PWord1清除
w1 .取消保护PWord1
下一个w1
出错时转到0
ShTag=False
对于工作表中的每个w1
如果没有，检查所有触发为数字一（one）的清除ShTag .
ShTag=ShTag或w1 .保护内容
下一个w1
如果ShTag那么
对于工作表中的每个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
.取消保护人权人权(j)人权(k) _
Chr(l)Chr(m)Chr(i1)Chr(I2)Chr(i3)_
铬(i4)铬(i5)铬(i6)铬(名词)
如果没有。那么保护内容
p word 1=Chr(I)Chr(j)Chr(k)Chr(l)_
Chr(m) Chr(i1) Chr(i2) Chr(i3) _
铬(i4)铬(i5)铬(i6)铬(名词)
对话框应用程序。替换(MSGPWORDFOUND2，_
$$ ，PWord1)，vbInformation，HEADER
通过尝试其他工作表来利用查找单词
对于工作表中的每个w2
w2 .取消保护PWord1
下一个w2
Exit Do Bypass all for.下一步
如果…就会结束
下一页：下一页：下一页：下一页：下一页：下一页
下一页：下一页：下一页：下一页：下一页：下一页
循环直到真
出错时转到0
如果…就会结束
以…结尾
下一个w1
如果…就会结束
MsgBox ALLCLEAR作者版本REPBACK，vbInformation，标题
末端接头
-
复制到横线以上
得到情况如下图表示
6、关闭编辑窗口；
7、依次点击菜单栏上的工具- 宏- 宏，选AllInternalPasswords，运行，确定两次；
等一会，就会出现以下对话框：这就是超过密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档，你又想恢复密码设置，就可以用此密码进行保护，他就能用他设置的密码打开，你可以试试，很有趣的。字母一定要大写):
再点击确定.超过的原始密码就被清除了!
8、最后记得关闭超过文档时要保存，否则下回打开，文档仍旧处于只读状态而无法修改。
以上就是有关撤销工作表保护密码的方法介绍，如果大家遇到这种问题，不妨参考本文尝试解决。
本文讲解到此结束，希望对大家有所帮助。
标签：