Contraseña para excel desde delphi

[Yun-i]

Hola a todos, mi probelma es es siguiente,

exporto desde delphi unos datos a excel, todo lo hace bien pero solo kieor que el usuario no pueda modificar esas celdas a menos que su jefe se lo autorice, osea lo unico que quieor es saber podet protejer hoja y ponerle una contraseña, para cuando quierna modificarlo se les da la contraseña y listo puedan modificar.

Eh encontrado este metodo pero no se como se estructura eh tratado de diferentes formas pero no le pone contraseña, trabajo con delphi 6.

Código Delphi [-]
ExcelWorkSheet1.Protect

Gracias por todo desde ahora

[[cHackAll]]

Código Delphi [-]
uses ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var Excel, Workbook: OleVariant;
begin
 Excel := CreateOleObject('Excel.Application');
 Workbook := Excel.Workbooks.Add;
 Workbook.Worksheets[1].Cells[1, 1].Value := 'by cHackAll';
 Workbook.SaveAs('c:\book1.xls', , 'HAclave');
 Excel.Quit;
end;

[Yun-i]

Gracias por contestar, encontre por ahi un codigo y es como acontinuacion se muestra

Código Delphi [-]
 for i:=1 to ContSheets do
  begin
    ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets.Item[i] as _Worksheet);
    ExcelWorkSheet1.Cells.Item[80,1].Value:=inttostr(i)+' de '+inttostr(ContSheets);
    (ExcelWorkBook1.Sheets.Item[i] As ExcelWorkSheet).Protect('test',1,1,0,0,0); //la contraseña es test
  end;

para desproyejerla debes dejar de compartir el libro y despues desprotejer la hoja que te interece, ya que el bloqueo lo realiza hoja por hoja.}


espero que a alguien le srva en el futuro..