[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..