【练习】工作表密码破解

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;

复制代码