admin管理员组

文章数量:1130349

如果Excel文档后缀为.xlsx，可以先将文档另存为后缀为 .xls 的文件

用 Excel 打开工作簿，然后按 Alt + F11 进入 “开发工具” 界面，如下图：

在左边的工程栏（Project）中选定节点 “ThisWorkbook”，双击左键，然后把下面的代码复制到右边的代码编辑框中

Public Sub 工作表保护密码破解()
    Const DBLSPACE As String = vbNewLine & vbNewLine
    Const AUTHORS As String = DBLSPACE & vbNewLine & _
        "作者:McCormick   JE McGimpsey "
    Const HEADER As String = "工作表保护密码破解"
    Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
    Const REPBACK As String = DBLSPACE & ""
    Const ZHENGLI As String = DBLSPACE & ""
    Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
        & DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！"
    Const MSGNOPWORDS

如果Excel文档后缀为.xlsx，可以先将文档另存为后缀为 .xls 的文件

用 Excel 打开工作簿，然后按 Alt + F11 进入 “开发工具” 界面，如下图：

在左边的工程栏（Project）中选定节点 “ThisWorkbook”，双击左键，然后把下面的代码复制到右边的代码编辑框中

Public Sub 工作表保护密码破解()
    Const DBLSPACE As String = vbNewLine & vbNewLine
    Const AUTHORS As String = DBLSPACE & vbNewLine & _
        "作者:McCormick   JE McGimpsey "
    Const HEADER As String = "工作表保护密码破解"
    Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
    Const REPBACK As String = DBLSPACE & ""
    Const ZHENGLI As String = DBLSPACE & ""
    Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
        & DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！"
    Const MSGNOPWORDS

本文标签： 文档EXCEL

版权声明：本文标题：excel加密文档破解 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://it.en369.cn/jiaocheng/1763992435a2977639.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。