Foros Club Delphi - Contraseña para excel desde delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Contraseña para excel desde delphi (https://www.clubdelphi.com/foros/showthread.php?t=63136)

Yun-i

30-01-2009 20:02:22

Contraseña para excel desde delphi

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

30-01-2009 21:25:44

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

06-02-2009 18:28:29

Ya quedo

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.. :)

La franja horaria es GMT +2. Ahora son las 17:46:20.