espero que esto te pueda ayudar amigo
Código Delphi
[-]
Excelaplication1.ActiveSheet.Protect(Password:=****, DrawingObjects:=True, Contents:=True, Scenarios:=True);
Excelaplication1.ActiveWorkbook.Protect(Password:=****, Structure:=True, Windows:=True);
sheets.SaveAs(nombre_d_archivo,Password:=****);