[DarkBlue]

espero que esto te pueda ayudar amigo

Código Delphi [-]

//este pedazo de codigo le da contraseña a la hoja

Excelaplication1.ActiveSheet.Protect(Password:=****, DrawingObjects:=True, Contents:=True, Scenarios:=True);//;
  

//Este al libro

Excelaplication1.ActiveWorkbook.Protect(Password:=****, Structure:=True, Windows:=True);

//lo guarda con una contraseña de apertura , sheets es una variable tipo variant que hace referencia a las hojas del documento

sheets.SaveAs(nombre_d_archivo,Password:=****);