使用VBS快速比对碰撞工作表Sheet密码
放了好多年没发终于放成了垃圾代码，新手账号维护所以发一下。都知道巨硬的工作表密码保护做的比较敷衍，一个设定密码对应多个可用密码，例如密码：123
可以用下面很多多密码打开：
102
123
140
161
186
312
AAAAABBAAAA'
下面附件列举了32768组工作表密码，无论输入密码如何变化，都能在这32768组密码中找到对应解码。
使用方法：1、将加密过工作表的工作簿文件拖放到“工作表密码.vbs”上
2、使用记事本打开“工作表密码.vbs”文件，明文修改其中的工作簿文件路径
3、解压密码：52pojie
Elaineliu 发表于 2024-7-23 07:44
我记得工作表密码可以瞬间去除的，你去excelhome问问就知道了
有的，可以用VBA代码或者用EXCEL插件都可以瞬间破解，我们打卡机导出来的记录就有密码的，问厂家拿了密码，每次手动输入或者复制比较麻烦，用插件的话，直接点一下就可以了。 用这个也行，vba编辑器，插入-模块，把代码粘贴进去，运行一下，就可以找到一个可用的密码。
Sub CrackSheetPassword()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
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
ActiveSheet.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 ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " + Chr(i) + Chr(j) + Chr(k) + Chr(l) + Chr(m) + Chr(i1) + Chr(i2) + Chr(i3) + Chr(i4) + Chr(i5) + Chr(i6) + Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
谢谢分享,已下载备用; 我记得工作表密码可以瞬间去除的，你去excelhome问问就知道了 好像只能针对xls，xlsx不行 感谢楼主分享 谢谢分享, 感谢，那来试试
直接擦掉对应的加密文件好像只能适用于xls文件，xlsx文件好像文件就损坏了 这个可以试一下，谢谢楼主！虽然有插件工具破解，但要在当前电脑安装，安装完还要设置启动之类。 可以试试，不过用的比较少。还是破解文档密码多一些。可以分享一下文档密码破解的办法