如何用delphi给excel文件加密,就是EXCEL自带的那个加密功能

解决方案 »

  1.   

    ActiveWorkbook.Password = "aaaa"
      

  2.   

    ActiveWorkbook.Password =你的密碼
      

  3.   

    ActiveWorkbook.Password :=你的密碼
      

  4.   


    uses ComObj;var
      MSExcel: Olevariant;
    begin
      try
        MSExcel := CreateOLEObject('Excel.Application');
        MSExcel.WorkBooks.Open('E:\system\桌面\a.xls');
        MSExcel.Visible := False;
        MSExcel.ActiveWorkbook.Password := 'a';
        MSExcel.Save('E:\system\桌面\a.xls');
      finally
        MSExcel.ActiveWorkBook.Close;
        MSExcel.Quit;
      end;