超过表格在日常的办公中经常会使用到，并且平时如果有制作一些重要的数据我们都会给它加上密码来保护数据。但是设置了密码时间久之后忘记了，这是很多朋友出现的情况。因此我们可以选择超过表格清除密码方法来解决。

1、打开超过表格，选择视图，宏，录制新宏，新建一个宏；

2、老师成一个空的宏；

3、编辑这个宏，选中刚新建的宏后点击编辑按钮；

4、删除窗口所有字符，把下面的内容粘贴进入。一个字母、标点符号都不能少不能错。

选项显式

公共子全部内部单词()

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

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

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

'

诺曼哈克和作业评估麦金普西2002年12月27日（版本1.1)

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

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

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

常量字符串=vbNewLine

const AUTHORS As String=DBLSPACE _ VBNewLine

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

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

const HEADER As String='所有内部密码用户消息'

const VERSION As String=DBLSPACE ' VERSION 1。1 .1 2003-04-04 '

'常量REPBACK As String=DBLSPACE '请报告失败' _

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

常量全部清除为字符串=数据库空间"工作簿应该"

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

"现在就拯救它!"' DBLSPACE '和'也_

DBLSPACE 'BACKUP！备份！备份！'_

此外，请记住密码是_

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

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

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

' Const MSGNOPWORDS1 As String='上没有密码' _

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

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

工作簿结构或窗口DBLSPACE _

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

将MSGTAKETIME常量设置为字符串='按下确定按钮后，此' _

需要一些时间。数据库空间'时间量' _

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

密码和你电脑的规格DBLSPACE _

耐心点！"给我煮杯咖啡!"作者版本

常量MSGPWORDFOUND1为字符串='您有一个工作表' _

'结构或窗口密码集DBLSPACE _

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

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

设置此密码的同一个人DBLSPACE _

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

常量MSGPWORDFOUND2为字符串='您有一个工作表' _

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

DBLSPACE '$$' DBLSPACE '记下它的潜在价值' _

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

设置此密码。数据库空间'现在检查并清除' _

其他密码。作者版本

Const MSGONLYONE As String='仅限结构/窗口' _

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

ALLCLEAR AUTHORS版本REPBACK

将w1设计为工作表，将w2设计为工作表

我为整数j为整数，k为整数，l为整数

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

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

将PWord1调成字符串

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

申请。屏幕更新=假

使用活动工作簿

WinTag=.保护结构或保护Windows .

以…结尾

ShTag=假

对于工作表中的每个w1

ShTag=ShTag或w1 .保护内容

下一个w1

如果不是ShTag也不是WinTag，那么

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

退出"绕过所有…下一个"

如果…就会结束

以…结尾

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

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

循环直到真

出现错误GoTo 0

如果…就会结束

如果是WinTag而不是ShTag，那么

MsgBox，MSGONLYONE，vbInformation，HEADER

出口接头

如果…就会结束

出错时继续下一步

对于工作表中的每个w1

尝试清除PWord1

w1 .取消保护PWord1

下一个w1

出现错误GoTo 0

ShTag=假

对于工作表中的每个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)

如果没有。保护内容然后

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)

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

$$ '，PWord1)，vbInformation，HEADER

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

对于工作表中的每个w2

w2 .取消保护PWord1

下一个w2

退出"绕过所有…下一个"

如果…就会结束

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

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

循环直到真

出现错误GoTo 0

如果…就会结束

以…结尾

下一个w1

如果…就会结束

MsgBox ALCLEAR AUTHORS VERSION REBACK，vbInformation，HEADER

末端接头

5、关闭掉编辑窗口

6、在宏里选中所有内部单词这个编辑好的宏，执行，并且确定数次，就好了。