Excel2007如何撤销保护密码
2023-03-29 18:34 投稿人：网络编辑
在工作中，有时使用Excel报表，表格，程序，公式，在细胞功能的设置，以防止其他人修改您的设置或防止您无意中修改，你可以使用Excel工作表保护功能，但时间长了保护密码很容易忘记，有时下载Excel格式的小程序，但作者要修改，添加工作表保护密码，只要按以下程序解决，Excel工作表保护密码瞬间破碎！
撤销密码保护和方法：
1，在excel表中打开excel选项，选择自定义，并获取以下图片：
2，然后选择在左边的框中；看到宏；
双击或选择Add按钮后，您可以看到右栏有一个宏按钮的视图，然后是右下角。
3，您可以看到箭头在窗口下面所指的按钮：
单击按钮，然后弹出窗口。
4，以宏的名称填写一个名称（可选），然后单击创建，然后弹出下面的窗口：
5、窗口内容选择删除，然后在内容的分隔线上开始复制粘贴在上面的窗口中：
开始从水平线上复制
------------------------------------------------------------------------------------------
明确选择
公共子allinternalpasswords（）
中断工作表和工作簿结构密码。鲍勃麦考密克
大概发端的基础代码alrithm修改覆盖
工作簿结构 Windows密码和多个密码
' '
Norman Harker和我麦金普西27-dec-2002（版本1.1）
通过改性：所有信息2003-apr-04杰姆为常数，和
消除一个Exit Sub（1.1.1版）
揭示哈希密码不是原来的密码
const还可压缩软盘是字符串vbnewline vbnewline
作者为const字符串还可压缩软盘vbnewline _
改编自Bob McCormick的基础代码_
Norman Harker和我麦金普西
const的头是字符串allinternalpasswords用户消息
const版本字符串还可压缩软盘版本1.1.1 2003-apr-04
repback常量字符串还可压缩软盘=请报告失败_
到microsoft.public.excel.programming新闻组。
解除警报为const字符串还可压缩软盘=练习册_
现在是免费的，所有的密码保护，所以确保你：_
还可压缩软盘现在保存它！还可压缩软盘和_
还可压缩软盘备份，备份，备份！！！！！_！
还可压缩软盘，记住密码是_
放在那里有原因。不要的东西_关键公式
或数据。还可压缩软盘访问和使用的一些数据_
可能是犯罪行为。。如果有疑问，不要。
msgnopwords1 const字符串=无密码_
活页簿或工作簿结构或Windows作者版本
msgnopwords2 const字符串=无保护_
工作簿结构或窗口。还可压缩软盘_
继续保护片。作者版本
const msgtaketime是字符串后按下OK按钮，这个_
将需要一些时间。还可压缩软盘的时间_
取决于许多不同的密码，这_
密码和计算机的规格。还可压缩软盘_
耐心点！给我冲杯咖啡！作者版本
msgpwordfound1 const字符串=你有一个工作表_
结构或Windows密码集。还可压缩软盘_
密码是：还可压缩软盘_美元还可压缩软盘
记为未来潜在的其他工作簿中使用_
设置此密码的同一个人。还可压缩软盘_
现在检查并清除其他密码。
msgpwordfound2 const字符串=你有一个工作表_
密码集。还可压缩软盘发现密码是：_
还可压缩软盘还可压缩软盘注意$下潜在的_
在其他工作簿中使用相同的未来的人_
设置密码。还可压缩软盘现在检查和清除_
其他密码。
Const MSNLYONE是字符串只有结构窗_
保护，只是发现密码。_
作者版repback解除警报
昏暗的W1 W2表作为表，
模糊i为整数，j为整数，k为整数，L为
定义m为整数，n为整数，整数为I1，I2
昏暗的i3为整数，i4为整数，i5为整数，I6作为
暗淡PWord1作为字符串
暗淡ShTag作为布尔，WinTag As Boolean
application.screenupdating = false
与activeworkbook
ProtectStructure Or.ProtectWindows WinTag =。
结束
ShTag = false
在工作表中每个W1
ShTag = ShTag或w1.protectcontents
二W1
如果Not ShTag和WinTag不是那么
本msgnopwords1，vbinformation，头
退出子
最后如果
本msgtaketime，vbinformation，头
如果Not WinTag再
本msgnopwords2，vbinformation，头
其他的
下次继续出错
循环do'dummy
对于i = 65到66：对于j = 65到66：对于k = 65到66
L = 65 m = 66：66：65为I1 = 65到66
I2 = 65到66：66：65为i3 =为I4 = 65到66
i5 = 65 66：65 66：为16 = n = 32，126
与activeworkbook
Unprotect Chr（我）CHR（J）CHR（K）_
CHR（L）CHR（M）CHR（I1）CHR（I2）_
CHR（I3）CHR（I4）CHR（I5）CHR（I6）CHR（N）
if.protectstructure =虚假和_
protectwindows = FALSE然后。
PWord1 = CHR（我）CHR（J）CHR（K）CHR（L）_
CHR（M）CHR（I1）CHR（I2）CHR（I3）_
CHR（I4）CHR（I5）CHR（I6）CHR（N）
MsgBox（msgpwordfound1，_替代应用。
$），PWord1，vbinformation，头
do'bypass所有出口…其次
最后如果
结束
下一个：下一个：下一个：下一个
下一个：下一个：下一个：下一个
循环直到真
错误到0
最后如果
如果WinTag和ShTag不是那么
本msnlyone，vbinformation，头
退出子
最后如果
下次继续出错
在工作表中每个W1
尝试清除PWord1
取消PWord1 W1。
二W1
错误到0
ShTag = false
在工作表中每个W1
都清楚ShTag触发1如果不检查。
ShTag = ShTag或w1.protectcontents
二W1
如果ShTag再
在工作表中每个W1
与W1
if.protectcontents然后
下次继续出错
循环do'dummy
对于i = 65到66：对于j = 65到66：对于k = 65到66
L = 65 m = 66：66：65为I1 = 65到66
I2 = 65到66：66：65为i3 =为I4 = 65到66
i5 = 65 66：65 66：为16 = n = 32，126
Unprotect Chr（我）CHR（J）CHR（K）_
CHR（L）CHR（M）CHR（I1）CHR（I2）CHR（I3）_
CHR（I4）CHR（I5）CHR（I6）CHR（N）
如果Not.ProtectContents再
PWord1 = CHR（我）CHR（J）CHR（K）CHR（L）_
CHR（M）CHR（I1）CHR（I2）CHR（I3）_
CHR（I4）CHR（I5）CHR（I6）CHR（N）
MsgBox（msgpwordfound2，_替代应用。
$），PWord1，vbinformation，头
杠杆pword尝试找到其他工作表
每个W2表
W2。撤消PWord1
二W2
do'bypass所有出口…其次
最后如果
下一个：下一个：下一个：下一个
下一个：下一个：下一个：下一个
循环直到真
错误到0
最后如果
结束
二W1
最后如果
本版整理作者repback，vbinformation，头
端子
-----------------------------------------------------------------------------------------
复制到十字线
如下图所示
6，关闭编辑窗口；
7，点击工具菜单栏上的宏宏，选择allinternalpasswords，运行，确定两倍；
过一会儿，出现以下对话框：这是与Excel密码相对应的原始密码（密码和以前设置的密码可以打开文档。如果您是其他人的文档，如果要恢复密码设置，可以使用此密码来保护它。他可以用密码打开它。你可以试试看。很有趣。信必须大写）：
再次单击OK。Excel的原始密码已被清除！！
8。记住在关闭时保存Excel文档，或者在下一个打开时，文档仍然是只读的，不能修改。
撤销密码保护和方法：
1，在excel表中打开excel选项，选择自定义，并获取以下图片：
2，然后选择在左边的框中；看到宏；
双击或选择Add按钮后，您可以看到右栏有一个宏按钮的视图，然后是右下角。
3，您可以看到箭头在窗口下面所指的按钮：
单击按钮，然后弹出窗口。
4，以宏的名称填写一个名称（可选），然后单击创建，然后弹出下面的窗口：
5、窗口内容选择删除，然后在内容的分隔线上开始复制粘贴在上面的窗口中：
开始从水平线上复制
------------------------------------------------------------------------------------------
明确选择
公共子allinternalpasswords（）
中断工作表和工作簿结构密码。鲍勃麦考密克
大概发端的基础代码alrithm修改覆盖
工作簿结构 Windows密码和多个密码
' '
Norman Harker和我麦金普西27-dec-2002（版本1.1）
通过改性：所有信息2003-apr-04杰姆为常数，和
消除一个Exit Sub（1.1.1版）
揭示哈希密码不是原来的密码
const还可压缩软盘是字符串vbnewline vbnewline
作者为const字符串还可压缩软盘vbnewline _
改编自Bob McCormick的基础代码_
Norman Harker和我麦金普西
const的头是字符串allinternalpasswords用户消息
const版本字符串还可压缩软盘版本1.1.1 2003-apr-04
repback常量字符串还可压缩软盘=请报告失败_
到microsoft.public.excel.programming新闻组。
解除警报为const字符串还可压缩软盘=练习册_
现在是免费的，所有的密码保护，所以确保你：_
还可压缩软盘现在保存它！还可压缩软盘和_
还可压缩软盘备份，备份，备份！！！！！_！
还可压缩软盘，记住密码是_
放在那里有原因。不要的东西_关键公式
或数据。还可压缩软盘访问和使用的一些数据_
可能是犯罪行为。。如果有疑问，不要。
msgnopwords1 const字符串=无密码_
活页簿或工作簿结构或Windows作者版本
msgnopwords2 const字符串=无保护_
工作簿结构或窗口。还可压缩软盘_
继续保护片。作者版本
const msgtaketime是字符串后按下OK按钮，这个_
将需要一些时间。还可压缩软盘的时间_
取决于许多不同的密码，这_
密码和计算机的规格。还可压缩软盘_
耐心点！给我冲杯咖啡！作者版本
msgpwordfound1 const字符串=你有一个工作表_
结构或Windows密码集。还可压缩软盘_
密码是：还可压缩软盘_美元还可压缩软盘
记为未来潜在的其他工作簿中使用_
设置此密码的同一个人。还可压缩软盘_
现在检查并清除其他密码。
msgpwordfound2 const字符串=你有一个工作表_
密码集。还可压缩软盘发现密码是：_
还可压缩软盘还可压缩软盘注意$下潜在的_
在其他工作簿中使用相同的未来的人_
设置密码。还可压缩软盘现在检查和清除_
其他密码。
Const MSNLYONE是字符串只有结构窗_
保护，只是发现密码。_
作者版repback解除警报
昏暗的W1 W2表作为表，
模糊i为整数，j为整数，k为整数，L为
定义m为整数，n为整数，整数为I1，I2
昏暗的i3为整数，i4为整数，i5为整数，I6作为
暗淡PWord1作为字符串
暗淡ShTag作为布尔，WinTag As Boolean
application.screenupdating = false
与activeworkbook
ProtectStructure Or.ProtectWindows WinTag =。
结束
ShTag = false
在工作表中每个W1
ShTag = ShTag或w1.protectcontents
二W1
如果Not ShTag和WinTag不是那么
本msgnopwords1，vbinformation，头
退出子
最后如果
本msgtaketime，vbinformation，头
如果Not WinTag再
本msgnopwords2，vbinformation，头
其他的
下次继续出错
循环do'dummy
对于i = 65到66：对于j = 65到66：对于k = 65到66
L = 65 m = 66：66：65为I1 = 65到66
I2 = 65到66：66：65为i3 =为I4 = 65到66
i5 = 65 66：65 66：为16 = n = 32，126
与activeworkbook
Unprotect Chr（我）CHR（J）CHR（K）_
CHR（L）CHR（M）CHR（I1）CHR（I2）_
CHR（I3）CHR（I4）CHR（I5）CHR（I6）CHR（N）
if.protectstructure =虚假和_
protectwindows = FALSE然后。
PWord1 = CHR（我）CHR（J）CHR（K）CHR（L）_
CHR（M）CHR（I1）CHR（I2）CHR（I3）_
CHR（I4）CHR（I5）CHR（I6）CHR（N）
MsgBox（msgpwordfound1，_替代应用。
$），PWord1，vbinformation，头
do'bypass所有出口…其次
最后如果
结束
下一个：下一个：下一个：下一个
下一个：下一个：下一个：下一个
循环直到真
错误到0
最后如果
如果WinTag和ShTag不是那么
本msnlyone，vbinformation，头
退出子
最后如果
下次继续出错
在工作表中每个W1
尝试清除PWord1
取消PWord1 W1。
二W1
错误到0
ShTag = false
在工作表中每个W1
都清楚ShTag触发1如果不检查。
ShTag = ShTag或w1.protectcontents
二W1
如果ShTag再
在工作表中每个W1
与W1
if.protectcontents然后
下次继续出错
循环do'dummy
对于i = 65到66：对于j = 65到66：对于k = 65到66
L = 65 m = 66：66：65为I1 = 65到66
I2 = 65到66：66：65为i3 =为I4 = 65到66
i5 = 65 66：65 66：为16 = n = 32，126
Unprotect Chr（我）CHR（J）CHR（K）_
CHR（L）CHR（M）CHR（I1）CHR（I2）CHR（I3）_
CHR（I4）CHR（I5）CHR（I6）CHR（N）
如果Not.ProtectContents再
PWord1 = CHR（我）CHR（J）CHR（K）CHR（L）_
CHR（M）CHR（I1）CHR（I2）CHR（I3）_
CHR（I4）CHR（I5）CHR（I6）CHR（N）
MsgBox（msgpwordfound2，_替代应用。
$），PWord1，vbinformation，头
杠杆pword尝试找到其他工作表
每个W2表
W2。撤消PWord1
二W2
do'bypass所有出口…其次
最后如果
下一个：下一个：下一个：下一个
下一个：下一个：下一个：下一个
循环直到真
错误到0
最后如果
结束
二W1
最后如果
本版整理作者repback，vbinformation，头
端子
-----------------------------------------------------------------------------------------
复制到十字线
如下图所示
6，关闭编辑窗口；
7，点击工具菜单栏上的宏宏，选择allinternalpasswords，运行，确定两倍；
过一会儿，出现以下对话框：这是与Excel密码相对应的原始密码（密码和以前设置的密码可以打开文档。如果您是其他人的文档，如果要恢复密码设置，可以使用此密码来保护它。他可以用密码打开它。你可以试试看。很有趣。信必须大写）：
再次单击OK。Excel的原始密码已被清除！！
8。记住在关闭时保存Excel文档，或者在下一个打开时，文档仍然是只读的，不能修改。