首页 >> 百科知识 >

刷卡记录表如何撤销工作表保护密码（撤销工作表保护密码）

2022-08-29 14:20:21 来源：用户：

大家好，来宝来为大家解答以下问题，刷卡记录表如何撤销工作表保护密码，撤销工作表保护密码很多人还不知道，今天让我们一起来看看吧！

我们在使用超过工作表的时候可能都使用过保护功能，这样就可以把工作表用密码保护起来，防止别人来进行修改，但是这样可能没有办法进行一些特殊操作，时间长了还可能忘记密码，这要怎么办？如何撤销工作表保护密码？下面就来介绍一下。

撤销工作表保护密码方法：

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、最后记得关闭超过文档时要保存，否则下回打开，文档仍旧处于只读状态而无法修改。

以上就是有关撤销工作表保护密码的方法介绍，如果大家遇到这种问题，不妨参考本文尝试解决。

本文讲解到此结束，希望对大家有所帮助。

　　免责声明：本文由用户上传，与本网站立场无关。财经信息仅供读者参考，并不构成投资建议。投资者据此操作，风险自担。如有侵权请联系删除！