解除工作表密码

tospo

1. 
   
2. Sub RemoveShProtect()
   
3. Dim i1 As Integer, i2 As Integer, i3 As Integer
   
4. Dim i4 As Integer, i5 As Integer, i6 As Integer
   
5. Dim i7 As Integer, i8 As Integer, i9 As Integer
   
6. Dim i10 As Integer, i11 As Integer, i12 As Integer
   
7. Dim t As String
   
8. On Error Resume Next
   
9. If ActiveSheet.ProtectContents = False Then
   
10. MsgBox "该工作表没有保护密码!"
    
11. Exit Sub
    
12. End If
    
13. t = Timer
    
14. For i1 = 65 To 66: For i2 = 65 To 66: For i3 = 65 To 66
    
15. For i4 = 65 To 66: For i5 = 65 To 66: For i6 = 65 To 66
    
16. For i7 = 65 To 66: For i8 = 65 To 66: For i9 = 65 To 66
    
17. For i10 = 65 To 66: For i11 = 65 To 66: For i12 = 32 To 126
    
18. ActiveSheet.Unprotect Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) _
    
19. & Chr(i6) & Chr(i7) & Chr(i8) & Chr(i9) & Chr(i10) & Chr(i11) & Chr(i12)
    
20. If ActiveSheet.ProtectContents = False Then
    
21. MsgBox "解除工作表保护!用时" & Format(Timer - t, "0.00") & "秒"
    
22. Exit Sub
    
23. End If
    
24. Next: Next: Next: Next: Next: Next
    
25. Next: Next: Next: Next: Next: Next
    
26. End Sub
    

复制代码

解除工作表密码时用那么多的FOR，i1到i11是65到66，i12是32到126，对所有工作簿都管用吗？有什么原理？在代码中用Chr函数来返回指定字符码所代表的字符，至于i1到i11是65到66，说实话我也有点奇怪，字符集中应该是32到126，65是A，66是B。请知道的朋友解释一下

解0人

是的，上面的程序可以破解工作表保護密碼。
它可以破解密碼，並非是找出原本的密碼。
你可以這樣測試，設置工作表密碼=123，然後程序的msgbox內容改為：
MsgBox "解除工作表保护!用时" & Format(Timer - t, "0.00") & "秒，密碼：" & _
Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(i7) & Chr(i8) & Chr(i9) & Chr(i10) & Chr(i11) & Chr(i12)
看看它破解的密碼是什麽？
結果有沒有很驚訝？無非就是類似ABABABABABAx的樣子...
你還可以這樣測試，設置工作表密碼=test，然後再解除工作表保護，不過解除時用zzyw來解除，
是不是也能解除密碼？
這是爲什麽呢？工作表保護時，會根據保護密碼生成一個hash值，解除密碼時會先將輸入的解除密碼也生成一個hash值，然後比較兩個hash值...
到這裡，應該差不多明白了吧？
是的，根據工作表的加密方式，很多不同的密碼可以生成相同的hash值！
上面test和zzyw生成就是同一個hash值。
程序破解出來的密碼也是和原密碼生成同一個hash值另一個密碼。
就是這個理...

tospo

解0人 发表于 2016-9-23 15:43
是的，上面的程序可以破解工作表保護密碼。
它可以破解密碼，並非是找出原本的密碼。
你可以這樣測試，設 ...

谢谢精彩解说，看来解密是技术活。

硅谷少年

哪用这么麻烦，立即窗口中运行下面两句：
sheet1.protect allowfiltering:=true
sheet1.Unprotect
OK，工作表保护已经破解了，excel2007和2013下均测试通过。。。

zhangzhang

mark 留个记号 。。

tospo

硅谷少年 发表于 2016-12-15 19:37
哪用这么麻烦，立即窗口中运行下面两句：
sheet1.protect allowfiltering:=true
sheet1.Unprotect

WOW,怎么回事，真的能破解了。

硅谷少年

tospo 发表于 2016-12-16 10:59
WOW,怎么回事，真的能破解了。

只遇到过一次这个方法不能破解的，但我没找到原因（可能是里面工作表太多，30多个工作表，密码还有4种，不同的工作表密码还不同），猜想可能是2016做的文件。

mxsw

硅谷少年 发表于 2016-12-15 19:37
哪用这么麻烦，立即窗口中运行下面两句：
sheet1.protect allowfiltering:=true
sheet1.Unprotect

mark 留个记号 。。

lsc900707

tospo 发表于 2016-12-16 10:59
WOW,怎么回事，真的能破解了。

所以所谓的加密只能骗骗不懂的人>>>>>>>>>

maqiuhua

赞一个,解决了问题