Excel中内置了Visual Basic，通过宏实现破解密码。

破解思路：

1、打开准备破解的Excel，视图——宏——录制宏

2、宏名随意填写，保存在当前工作簿

3、查看宏——选择我们新建的宏——编辑

4、将下面的代码替换掉原有函数，关掉Visual Basic即可

Public Sub Password_cracking()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"                      Author - jzquu "
Const HEADER As String = "Password_cracking"
Const VERSION As String = DBLSPACE & "                      Version 1.0"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & ""
Const ALLCLEAR As String = DBLSPACE & "All password is clear" & DBLSPACE & "Please remember to save"
Const MSGNOPWORDS1 As String = "No password!"
Const MSGNOPWORDS2 As String = "No password!"
Const MSGTAKETIME As String = "This will take some time , please wait for a while" & DBLSPACE & "Press next to start"
Const MSGPWORDFOUND1 As String = "Password is : " & DBLSPACE & "$$" & DBLSPACE & _
"If the file worksheet has a different password, it will search for the next set of passwords and release"
Const MSGPWORDFOUND2 As String = "Password is : " & DBLSPACE & "$$" & DBLSPACE & _
"If the file worksheet has a different password, it will search for the next set of passwords and release"
Const MSGONLYONE As String = ""
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADER
End Sub

5、Ctrl+S 保存，会弹出如下窗口，点击“否”

6、保存文件类型为启用宏的工作簿 .xlsm

如果是在宏那边保存，会有个执行情况提示框，不用理会。

7、打开保存的xlsm文件，先启用宏，再点击视图——宏——执行

点击确定，然后等待破解。

点击确定。

修改完成后，重新打开文件即可。

破解excel工作表保护相关推荐

破解EXCEL工作表保护密码
原文地址: https://www.mr-wu.cn/crack-excel-workbook-protection/ 其原理是通过Excel的宏功能,利用下边提供的VBA代码,来破解Excel工作表 ...
EXCEL工作表保护密码破解宏撤销保护图文教程
今天得到一个任务,是破解一个excel工作表的保护密码.我觉的网上的教程都挺好的,主要一点是注意excel中没有工具这一栏,需要自己去寻找出相关项. 用到的教程如下: 添加相关工具项点击excel最 ...
用VBA去除Excel工作表保护密码
今天帮同事解决个EXCEL问题,现记在这,以作备忘现象: 想要修改保护单元格的内容,在使用"工具"菜单"保护"子菜单的"撤消工作表保护" ...
Excel工作表保护，怎么撤销保护
excel工作表如果设置了工作表保护,在不知道密码的情况下是没有办法编辑excel文件的,因为想要编辑文件需要撤销工作表保护,撤销的时候需要输入密码才能撤销. 如果是自己设置了工作表保护但是忘记了,或 ...
使用宏命令撤销EXCEL工作表保护
EXCEL工作表编辑资料,设置了工作表保护后,不能对表格进行插入删除操作.如果没有密码,很简单:工具-选项-工作表保护--撤消工作表保护就可以了.如果忘记密码,如下操作: 1. 打开文件 2. 工具 ...
excel工作表保护
对于一些计算表和工作薄,用户不希望将工作表的某个部分进行修改或不想显示该单元格的公式,通过锁定和保护可以实现工作表的部分或者整个工作薄的保护. 比如在该表格中黄色部分是希望用户输入的,红色部分是计算 ...
Excel工作表保护公式那些事儿
[要求]保护工作表C1:C4中的公式,防止被修改. 一.纯手工操作 1.选择整个工作表--自定义单元格格式--保护--取消勾选锁定 2.选中有公式的单元格--自定义单元格格式--勾选锁定和隐藏 3.审 ...
瞬间破解Excel工作表密码和保护工作簿密码，不管密码有多复杂
工作表密码:保护单元格不让修改的密码. 工作簿密码:保护工作簿窗口和结构,不让新建窗口.不让修改工作簿结构的密码.修改工作簿结构包含修改工作表名称.插入工作表和删除工作表. 以上两种Excel密码可以 ...
破解Excel工作表加密和 VBA宏加密
1-excel工作表被加密,无法编辑例如文件为: 测试.xlsx ①将文件后缀改为rar的压缩包 ②打开压缩包,在测试.rar\xl\worksheets 路径下找到sheet1.xml, ③ ...

破解excel工作表保护

破解思路：

1、打开准备破解的Excel，视图——宏——录制宏

2、宏名随意填写，保存在当前工作簿

3、查看宏——选择我们新建的宏——编辑

4、将下面的代码替换掉原有函数，关掉Visual Basic即可

5、Ctrl+S 保存，会弹出如下窗口，点击“否”

6、保存文件类型为启用宏的工作簿 .xlsm

7、打开保存的xlsm文件，先启用宏，再点击视图——宏——执行

破解excel工作表保护相关推荐

最新文章

热门文章