您现在的位置是：首页 > 设计知识设计知识
如何破解excel工作表保护密码设置,如何破解excel工作表保护密码锁定
2022-12-06 14:31:47设计知识0人已围观
简介 如何破解excel工作表保护密码设置,如何破解excel工作表保护密码锁定 大蟒在我们日常工作中使用软件时会遇到各种各样的问题，今天来分享一下"如何破解擅长工作表保护密码？"这篇文章，小伙伴要仔细看哦，希望这个教程能帮助到各位小伙伴！ 工具/软件 硬件型号：小新Air14 系统版本：Windows7 所需软件：Excel2010 方法/步骤 第1步 新建一个擅长工作表，而后点击另存为，讲表格保存为启用宏的工作表 第2步 一次点击开发工具-录制新宏，在弹出的对话框内修改宏名
如何破解excel工作表保护密码设置,如何破解excel工作表保护密码锁定
大蟒在我们日常工作中使用软件时会遇到各种各样的问题，今天来分享一下"如何破解擅长工作表保护密码？"这篇文章，小伙伴要仔细看哦，希望这个教程能帮助到各位小伙伴！
工具/软件
硬件型号：小新Air14
系统版本：Windows7
所需软件：Excel2010
方法/步骤
第1步
新建一个擅长工作表，而后点击另存为，讲表格保存为启用宏的工作表
第2步
一次点击开发工具-录制新宏，在弹出的对话框内修改宏名称而后确定
第3步
依次点击开发工具-停止录制宏，宏录制完成
第4步
依次点击开发工具， - 宏-在弹出的对话框找到我们刚才录制的宏名称而后进入VBA界面
第5步
在VBA界面，全选里面的代码，而后删除，讲里面的代码全部删除完
第6步
代码复制到VBA编辑窗口内
Public Sub AllInternalPasswords()
破坏工作表和工作簿结构密码。鲍勃麦考密克
可能是为覆盖范围修改的基本代码算法的发起者
工作簿结构/windows密码和多个密码
诺曼哈克和作业评估麦金普西2002年12月27日（版本1.1)
由杰姆于2003年四月四日修改：所有味精为常数，以及
取消一个出口接头（版本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年四月
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 _
用刚刚找到的密码保护着。_
ALLCLEAR作者版本报告
将w1作为工作表，w2作为工作表
Dim i为整数，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
如果没有，检查所有触发为一的清除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，标题
末端接头
点击保存
第7步
点击开发工具，宏，找到我们刚才录制的宏，点击执行宏
第8步
而后，在弹出的所有对话框上，都点击确定，都确定，1分钟后，就可以编辑了
注意/提示
以上就是"如何破解擅长工作表保护密码？"的详细内容了，不知道小伙伴们学会了吗？本站还为大家提供了超多和软件相关内容的信息，感兴趣的小伙伴们可以关注并前往学习哦！
Tags： 设计知识
很赞哦！ ()