50元求助批量处理 excel锁定工作表与工作簿，自定义密码

jinlefeng

50元求助批量处理 excel锁定工作表与工作簿，自定义密码

需求：  批量锁定当前文件夹下的 excel表格文件的所有工作表， 同时锁定工作簿不可以新增。 锁定时自定义密码。

jinlefeng

zaqmlp

1. /*&cls
   
2. @echo off
   
3. cd /d "%~dp0"
   
4. where *.xls *.xlsx 2>nul|cscript -nologo -e:jscript "%~f0"
   
5. pause&exit
   
6. */
   
7. var fso=new ActiveXObject('Scripting.FileSystemObject');
   
8. 
   
9. var excel=null;
   
10. try{
    
11.     excel=new ActiveXObject('Excel.Application');
    
12. }catch(e){
    
13.     WSH.StdErr.WriteLine('MS Excel is not install');
    
14.     WSH.Quit();
    
15. }
    
16. excel.Visible=true;
    
17. excel.DisplayAlerts=false;
    
18. 
    
19. var Password='12345';  //密码
    
20. 
    
21. var Structure=true;  //保护工作薄结构
    
22. var Windows=true;  //保护工作薄窗口
    
23. 
    
24. var DrawingObjects=true;  //保护形状
    
25. var Contents=true;  //保护内容
    
26. var Scenarios=true;  //保护方案
    
27. var UserInterfaceOnly=false;  //保护用户界面
    
28. var AllowFormattingCells=true;  //单元格格式
    
29. var AllowFormattingColumns=true;  //列格式
    
30. var AllowFormattingRows=true;  //行格式
    
31. var AllowInsertingColumns=true;  //插入列
    
32. var AllowInsertingRows=true;  //插入行
    
33. var AllowInsertingHyperlinks=true;  //插入超链接
    
34. var AllowDeletingColumns=true;  //删除列
    
35. var AllowDeletingRows=true;  //删除行
    
36. var AllowSorting=true;  //排序
    
37. var AllowFiltering=true;  //自动筛选
    
38. var AllowUsingPivotTables=true;  //数据透视表
    
39. 
    
40. while(!WSH.StdIn.AtEndOfStream){
    
41.     var line=WSH.StdIn.ReadLine();
    
42.     var xlsfile=fso.GetFile(line);
    
43.     var book=excel.Workbooks.Open(xlsfile.Path);
    
44.     var sheetcount=book.Worksheets.Count;
    
45.     WSH.echo(xlsfile.Name);
    
46.     book.Protect(Password,Structure,Windows);
    
47.     for(var i=1;i<=sheetcount;i++){
    
48.         book.Worksheets(i).Protect(
    
49.             Password,
    
50.             DrawingObjects,
    
51.             Contents,
    
52.             Scenarios,
    
53.             UserInterfaceOnly,
    
54.             AllowFormattingCells,
    
55.             AllowFormattingColumns,
    
56.             AllowFormattingRows,
    
57.             AllowInsertingColumns,
    
58.             AllowInsertingRows,
    
59.             AllowInsertingHyperlinks,
    
60.             AllowDeletingColumns,
    
61.             AllowDeletingRows,
    
62.             AllowSorting,
    
63.             AllowFiltering,
    
64.             AllowUsingPivotTables
    
65.         );
    
66.     }
    
67.     book.Save();
    
68.     book.Close();
    
69. }
    
70. excel.Quit();

复制代码