Excel密码破解方法有很多，最常见的便是使用密码字典去解读，解读成功即为破解，而本次使用的是宏命令，若是你还在一筹莫展，可以看看下文中的方法，因为涉及Excel重要文件，若是别人的东西，请获取授权！
Excel密码破解方法介绍：
1、进入加密的 Excel 用快捷命令Alt+F8 打开宏命令 窗口 。
文章插图
2、在宏名一栏中 输入宏的名字 随意健入即可 。
文章插图
3、输入完宏名后 创建的按钮就亮了 点击创建 我们就可以来到 新的界面了 。
文章插图
4、将编辑框内的Sub knife( )End Sub删除 将下列代码 复制 上去 。
- 01Option Explicit
- 怎么清除Excel函数保留数据？Excel去公式保留数据的方法
- Excel把月份变成季度的函数怎么用？
- 函数median公式怎么用？Excel median函数的使用方法
- Excel怎么冻结窗口？Excel冻结首行和首列的方法
- Excel VBA是什么？Excel VBA能做些什么？
- Excel文档中的Roundup函数怎么使用？Roundup函数有什么作用？
- Excel页眉页脚添加路径的方法
- Excel怎么改变单元格文字方向？
- Excel表格样式怎么设置？表格样式模板应用案例
- 孩子常有眼屎口臭，是上火了吗？
02Public Sub AllInternalPasswords()
03' Breaks worksheet and workbook structure passwords. Bob McCormiCK
04' probably originator of base code algorithm modified for coverage
05' of workbook structure / Windows passwords and for multiple passwords
06'
07' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
08' Modified 2003-Apr-04 by JEM: All msgs to constants, and
09' eliminate one Exit Sub (Version 1.1.1)
10' Reveals hashed passwords NOT original passwords
11Const DBLSPACE As String = vbNewLine & vbNewLine
12Const AUTHORS As String = DBLSPACE & vbNewLine & _
13"Adapted from Bob McCormick base code by" & _
14"Norman Harker and JE McGimpsey"
15Const HEADER As String = "AllInternalPasswords User Message"
16Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
17Const REPBACK As String = DBLSPACE & "Please report failure " & _
18"to the microsoft.public.excel.programming newsgroup."
19Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
20"now be free of all password protection, so make sure you:" & _
21DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
22DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
23DBLSPACE & "Also, remember that the password was " & _
24"put there for a reason. Don't stuff up crucial formulas " & _
25"or data." & DBLSPACE & "Access and use of some data " & _
26"may be an offense. If in doubt, don't."
27Const MSGNOPWORDS1 As String = "There were no passwords on " & _
28"sheets, or workbook structure or windows." & AUTHORS & VERSION
29Const MSGNOPWORDS2 As String = "There was no protection to " & _
30"workbook structure or windows." & DBLSPACE & _
31"Proceeding to unprotect sheets." & AUTHORS & VERSION
32Const MSGTAKETIME As String = "After pressing OK button this " & _
33"will take some time." & DBLSPACE & "Amount of time " & _
34"depends on how many different passwords, the " & _
35"passwords, and your computer's specification." & DBLSPACE & _
36"Just be patient! Make me a coffee!" & AUTHORS & VERSION
37Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
38"Structure or Windows Password set." & DBLSPACE & _
39"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
40"Note it down for potential future use in other workbooks by " & _
41"the same person who set this password." & DBLSPACE & _
42"Now to check and clear other passwords." & AUTHORS & VERSION
43Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
44"password set." & DBLSPACE & "The password found was: " & _
45DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
46"future use in other workbooks by same person who " & _
47"set this password." & DBLSPACE & "Now to check and clear " & _
48"other passwords." & AUTHORS & VERSION
49Const MSGONLYONE As String = "Only structure / windows " & _
50"protected with the password that was just found." & _
51ALLCLEAR & AUTHORS & VERSION & REPBACK
