[已解决]求助：工作表保护密码忘记了如何破解一下，急用！

耶利亚1974

附件中部分内容被保护了，看不到里面的公式，密码忘记了，想更改里面的公式被保护了，请各位高手指教一下！

最佳答案

月排行榜 / 总排行榜

zyjs029

2012-2-17 22:33

原始文件已破解   见附件{:011:}

跳转到最佳答案楼层

雄鹰

可以看看这个帖子：
http://www.excelpx.com/forum.php?mod=viewthread&tid=222825

blackcafe

下个破解软件 就OK

blackcafe

下个密码破解的软件就ok了

这个发重复了 不是故意的啊  太慢

zjcat35

1. Sub 撤销工作表保护()
   
2.     Dim i1 As Integer, i2 As Integer, i3 As Integer
   
3.     Dim i4 As Integer, i5 As Integer, i6 As Integer
   
4.     Dim i7 As Integer, i8 As Integer, i9 As Integer
   
5.     Dim i10 As Integer, i11 As Integer, i12 As Integer
   
6.     On Error Resume Next
   
7.     If ActiveSheet.ProtectContents = False Then
   
8.         MsgBox "该工作表没有保护密码!"
   
9.         Exit Sub
   
10.     End If
    
11.     For i1 = 65 To 66: For i2 = 65 To 66: For i3 = 65 To 66
    
12.     For i4 = 65 To 66: For i5 = 65 To 66: For i6 = 65 To 66
    
13.     For i7 = 65 To 66: For i8 = 65 To 66: For i9 = 65 To 66
    
14.     For i10 = 65 To 66: For i11 = 65 To 66: For i12 = 32 To 126
    
15.         ActiveSheet.Unprotect Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) _
    
16.         & Chr(i6) & Chr(i7) & Chr(i8) & Chr(i9) & Chr(i10) & Chr(i11) & Chr(i12)
    
17.     Next: Next: Next: Next: Next: Next
    
18.     Next: Next: Next: Next: Next: Next
    
19.     MsgBox "破解结束"
    
20. End Sub

复制代码

借用下别人的代码！  

laoda1228

你把附件发上来啊

bb0852

5 楼厉害啊

耶利亚1974

奇怪了,我发的帖子后面原来有附件的呀,怎么现在没了呢?再发一个吧,5楼老兄的那个宏我试过的,怎么没有用的,能否麻烦帮我试一下,是不是俺的方法不对! 财务分析表.rar (91.41 KB, 下载次数: 2)

2012-2-17 21:12 上传

点击文件名下载附件

zyjs029

原始文件已破解   见附件{:011:}

zjcat35

我的代码能用啊，我用你的表试过了！！！你想破哪张表的，你就以哪张表为活动工作表