Board logo

标题: 50元求助批量处理 excel锁定工作表与工作簿,自定义密码 [打印本页]

作者: jinlefeng    时间: 2020-4-15 17:19     标题: 50元求助批量处理 excel锁定工作表与工作簿,自定义密码

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

需求:  批量锁定当前文件夹下的 excel表格文件的所有工作表, 同时锁定工作簿不可以新增。 锁定时自定义密码。
作者: jinlefeng    时间: 2020-4-15 17:24

[attach]12484[/attach]
作者: zaqmlp    时间: 2020-4-15 19:09

本帖最后由 zaqmlp 于 2020-4-15 19:10 编辑
  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. var excel=null;
  9. try{
  10.     excel=new ActiveXObject('Excel.Application');
  11. }catch(e){
  12.     WSH.StdErr.WriteLine('MS Excel is not install');
  13.     WSH.Quit();
  14. }
  15. excel.Visible=true;
  16. excel.DisplayAlerts=false;
  17. var Password='12345';  //密码
  18. var Structure=true;  //保护工作薄结构
  19. var Windows=true;  //保护工作薄窗口
  20. var DrawingObjects=true;  //保护形状
  21. var Contents=true;  //保护内容
  22. var Scenarios=true;  //保护方案
  23. var UserInterfaceOnly=false;  //保护用户界面
  24. var AllowFormattingCells=true;  //单元格格式
  25. var AllowFormattingColumns=true;  //列格式
  26. var AllowFormattingRows=true;  //行格式
  27. var AllowInsertingColumns=true;  //插入列
  28. var AllowInsertingRows=true;  //插入行
  29. var AllowInsertingHyperlinks=true;  //插入超链接
  30. var AllowDeletingColumns=true;  //删除列
  31. var AllowDeletingRows=true;  //删除行
  32. var AllowSorting=true;  //排序
  33. var AllowFiltering=true;  //自动筛选
  34. var AllowUsingPivotTables=true;  //数据透视表
  35. while(!WSH.StdIn.AtEndOfStream){
  36.     var line=WSH.StdIn.ReadLine();
  37.     var xlsfile=fso.GetFile(line);
  38.     var book=excel.Workbooks.Open(xlsfile.Path);
  39.     var sheetcount=book.Worksheets.Count;
  40.     WSH.echo(xlsfile.Name);
  41.     book.Protect(Password,Structure,Windows);
  42.     for(var i=1;i<=sheetcount;i++){
  43.         book.Worksheets(i).Protect(
  44.             Password,
  45.             DrawingObjects,
  46.             Contents,
  47.             Scenarios,
  48.             UserInterfaceOnly,
  49.             AllowFormattingCells,
  50.             AllowFormattingColumns,
  51.             AllowFormattingRows,
  52.             AllowInsertingColumns,
  53.             AllowInsertingRows,
  54.             AllowInsertingHyperlinks,
  55.             AllowDeletingColumns,
  56.             AllowDeletingRows,
  57.             AllowSorting,
  58.             AllowFiltering,
  59.             AllowUsingPivotTables
  60.         );
  61.     }
  62.     book.Save();
  63.     book.Close();
  64. }
  65. excel.Quit();
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2