Excel工作表保护宏破解教程

2024-08-23 19:41:02

字体：大中小

来源：转载

供稿：网友

（1）打开Excel工作表，点击工作表左上角的微软图案标志。选择Excel选项。进入选项卡，选择Excel选项。在Excel选项卡左侧选择如下功能：

A-查看宏；
B-录制宏；
C-查看权限
D-无限制的访问
E-限制访问
F-权限限制

（2）选择信任中心选项卡。进入信任中心选项卡后，选择点击信任中心设置按钮。选择宏设置选项卡的第二项单项选择：禁止所有宏，并发出通知。
（3）新建工作表，选择录制宏命令。如果是Excel2007，可以通过菜单中的开发工具进入录制宏选项卡。建立宏名称和说明，点击确定。系统开始录制宏。选择停止录制宏。
（4）按下快捷键ALT+F8组合键，选择查看宏命令代码。写入如下代码：

ASP/Visual Basic Code复制内容到剪贴板

Public Sub 工作表保护密码破解() Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _ "作者:圣天"
Const HEADER As String = "工作表保护密码破解" Const VERSION As String = DBLSPACE & "版本 Version1.1.1"
Const REPBACK As String = DBLSPACE & "" Const ZHENGLI As String = DBLSPACE " XXXXXXX"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存"_ & DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密" Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!" Const MSGPWORDFOUND1 As String = "密码重新组合为:"& DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除" Const MSGPWORDFOUND2 As String = "密码重新组合为:"& DBLSPACE & "$$" & DBLSPACE & _

上一篇：打开excel文档会出现一个PERSONAL.XLS文件怎么去取消？

下一篇：excel怎么绘制集料标准曲线图？

学习交流

如何查找有故障的配件

如何查找有故障的配件...

热门图片

猜你喜欢的新闻

猜你喜欢的关注