使用VBS快速比对碰撞工作表Sheet密码

baomaboy

放了好多年没发终于放成了垃圾代码，新手账号维护所以发一下。
都知道巨硬的工作表密码保护做的比较敷衍，一个设定密码对应多个可用密码，例如密码：123
可以用下面很多多密码打开：
102
123
140
161
186
312
AAAAABBAAAA'
下面附件列举了32768组工作表密码，无论输入密码如何变化，都能在这32768组密码中找到对应解码。
使用方法：1、将加密过工作表的工作簿文件拖放到“工作表密码.vbs”上
2、使用记事本打开“工作表密码.vbs”文件，明文修改其中的工作簿文件路径
3、解压密码：52pojie

guangdao321

Elaineliu 发表于 2024-7-23 07:44
我记得工作表密码可以瞬间去除的，你去excelhome问问就知道了

有的，可以用VBA代码或者用EXCEL插件都可以瞬间破解，我们打卡机导出来的记录就有密码的，问厂家拿了密码，每次手动输入或者复制比较麻烦，用插件的话，直接点一下就可以了。

我的梦想也会飞

用这个也行，vba编辑器，插入-模块，把代码粘贴进去，运行一下，就可以找到一个可用的密码。

[Visual Basic] 纯文本查看 复制代码

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

milaoshu1020

谢谢分享,已下载备用;

Elaineliu

我记得工作表密码可以瞬间去除的，你去excelhome问问就知道了

kinyon

好像只能针对xls，xlsx不行

ccz

感谢楼主分享

syxf88888

谢谢分享,

a91838338

感谢，那来试试
直接擦掉对应的加密文件好像只能适用于xls文件，xlsx文件好像文件就损坏了

guangdao321

这个可以试一下，谢谢楼主！虽然有插件工具破解，但要在当前电脑安装，安装完还要设置启动之类。

samleekiller

可以试试，不过用的比较少。还是破解文档密码多一些。可以分享一下文档密码破解的办法