破解Excel工作表密码

最新推荐文章于 2024-03-06 18:17:52 发布

本可以

最新推荐文章于 2024-03-06 18:17:52 发布

阅读量3.3k

点赞数 1

分类专栏：其他文章标签： excel

本文链接：https://blog.csdn.net/qq_41590178/article/details/109149298

版权

本文介绍了如何打开并破解受保护的Excel表格。通过按下'ALT'+'F11'组合键进入VBA编辑器，新建一个模块，然后输入特定命令，最后运行F5来执行操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

打开受保护的Excel表格，按“ALT”+“F11”键
新建一个模块
复制一下命令

Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP

最低0.47元/天解锁文章