【练习】工作表密码破解

faunus

【工作表密码破解】

以下代码粘在RIBBON中按钮的事件里

1. //工作表密码破解
   
2. 
   
3. //app
   
4. Excel.Application app;
   
5. app = Globals.ThisAddIn.Application;//在RIBBON中，只能这样调用。
   
6. 
   
7. //book|sh
   
8. Excel.Workbook book = app.ActiveWorkbook;
   
9. Excel.Worksheet sh = book.ActiveSheet;
   
10. 
    
11. //开始撸
    
12. sh.Protect(
    
13.     DrawingObjects: Office.MsoTriState.msoTrue,
    
14.     Contents: Office.MsoTriState.msoTrue,
    
15.     Scenarios: Office.MsoTriState.msoTrue,
    
16.     AllowFiltering: Office.MsoTriState.msoTrue,
    
17.     AllowUsingPivotTables: Office.MsoTriState.msoTrue);
    
18. 
    
19. sh.Protect(
    
20.     DrawingObjects: Office.MsoTriState.msoTrue,
    
21.     Contents: Office.MsoTriState.msoTrue, Scenarios:
    
22.     Office.MsoTriState.msoTrue,
    
23.     AllowFiltering: Office.MsoTriState.msoTrue,
    
24.     AllowUsingPivotTables: Office.MsoTriState.msoTrue);
    
25. 
    
26. sh.Protect(
    
27.     DrawingObjects: Office.MsoTriState.msoTrue,
    
28.     Contents: Office.MsoTriState.msoTrue,
    
29.     Scenarios: Office.MsoTriState.msoTrue,
    
30.     AllowFiltering: Office.MsoTriState.msoTrue,
    
31.     AllowUsingPivotTables: Office.MsoTriState.msoTrue);
    
32. 
    
33. sh.Protect(
    
34.     DrawingObjects: Office.MsoTriState.msoTrue,
    
35.     Contents: Office.MsoTriState.msoTrue,
    
36.     Scenarios: Office.MsoTriState.msoTrue,
    
37.     AllowFiltering: Office.MsoTriState.msoTrue,
    
38.     AllowUsingPivotTables: Office.MsoTriState.msoTrue);
    
39. 
    
40. sh.Unprotect();

复制代码

还需要加上引用：

1. //
   
2. using Excel = Microsoft.Office.Interop.Excel;
   
3. using Office = Microsoft.Office.Core;

复制代码

寒雨772

开始

microfaint

标记一下，回家撸。

醉酒狂生

您瞧好了,开撸

闻启学

继续学习 加油

tianping

报告老师，撸完。不够完善，需要再对保护状态有更明确的显示。

/kuk心如止水

Sub RemoveShProtect()
      Dim i1 As Integer, i2 As Integer, i3 As Integer
      Dim i4 As Integer, i5 As Integer, i6 As Integer
      Dim i7 As Integer, i8 As Integer, i9 As Integer
      Dim i10 As Integer, i11 As Integer, i12 As Integer
      On Error Resume Next
      If ActiveSheet.ProtectContents = False Then
          MsgBox "该工作表没有保护密码！"
          Exit Sub
      End If
      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 i7 = 65 To 66: For i8 = 65 To 66: For i9 = 65 To 66
      For i10 = 65 To 66: For i11 = 65 To 66: For i12 = 32 To 126
          ActiveSheet.Unprotect Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) _
          & Chr(i6) & Chr(i7) & Chr(i8) & Chr(i9) & Chr(i10) & Chr(i11) & Chr(i12)
          If ActiveSheet.ProtectContents = False Then
              MsgBox "已经解除了工作表保护！"
              Exit Sub
          End If
      Next: Next: Next: Next: Next: Next
      Next: Next: Next: Next: Next: Next
  End Sub

Sub RemoveBkProtect()
      Dim i1 As Integer, i2 As Integer, i3 As Integer
      Dim i4 As Integer, i5 As Integer, i6 As Integer
      Dim i7 As Integer, i8 As Integer, i9 As Integer
      Dim i10 As Integer, i11 As Integer, i12 As Integer
      On Error Resume Next
      If ActiveWorkbook.ProtectStructure = False And ActiveWorkbook.ProtectWindows = False Then
          MsgBox "该工作簿没有保护密码！"
         
          Exit Sub
      End If
      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 i7 = 65 To 66: For i8 = 65 To 66: For i9 = 65 To 66
      For i10 = 65 To 66: For i11 = 65 To 66: For i12 = 32 To 126
          ActiveWorkbook.Unprotect Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) _
          & Chr(i6) & Chr(i7) & Chr(i8) & Chr(i9) & Chr(i10) & Chr(i11) & Chr(i12)
          If ActiveWorkbook.ProtectStructure = False And ActiveWorkbook.ProtectWindows = False Then
              MsgBox "已经解除了工作簿保护！"
              Exit Sub
          End If
      Next: Next: Next: Next: Next: Next
      Next: Next: Next: Next: Next: Next
  End Sub

/kuk心如止水

看看这个能用不

伊邪那美

可以，这个代码可以得到密码。不过多个密文密匙相通，不一定是原始密匙

刘苏

真厉害~~  秒杀