Proteger y desproteger hoja en excel

[karla]

hola:

Estoy haciendo una aplicacion en la cual introduzco datos a un documneto en excel, pero necesito que una vez lleno no se pueda modificar, si me pudieran brindar alguna ayuda

[edelphi]

bueno amiguita lo ke puedes hacer es en el mismo excel entrar al menu herramientas, opciones, ficha seguridad ahi le puedes colocar un clave de seguridad para proteger el documento evitar modificaciones e incluso la apertura del documento,
espero haber soucionado tu problema

[karla]

Gracias::

pero en realidad lo que queria era portegerlo desde delphi, porque si lo protejo desde excel entonces mi programa tampoco puedo acceder a el y llenarlo

pero ya encontre como y es muy facil

ExcelApplication1 := TExcelApplication.Create(Application);
ExcelApplication1.ConnectKind := ckNewInstance;
ExcelWorkbook1 := TExcelWorkbook.Create(Application);
ExcelWorksheet1 := TExcelWorksheet.Create(ExcelWorkbook1);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(camino, Lcid));
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.ActiveSheet as ExcelWorkSheet);
ExcelModelo.DisplayAlerts[Lcid];
ExcelWorksheet1.Unprotect('clave'); // aqui lo desprotejo para poder llenarlo

lo lleno y despues lo vuelvo a proteger
ExcelWorksheet1.protect('clave');

de todas fromas gracias por la ayuda

[arasay17]

Hola :
Estoy tratando de hacer lo mismo que karla pero me da una excepcion de casteo en la siguiente instruccion: ExcelWorksheet1.protect('clave');
Alguien sabe que es lo que esta pasando?????????

[DarkBlue]

Para manejar lo que tu quieras dentro de excel te tienes que dirigir a la parte que quieras y todo esta estructurado asi

XLS<----es el contenedor o mejor dicho el propio programa de excel (sin hojas ni nada, para que lo veas mejor abre excel y cierra la hoja que trae por default y asi queda siempre que creas uno nuevo)
.workbooks <---son tus libros de trabajo
.sheets<---son las hojas de tus libros

prueba con esto a mi me funciono

XLS.ActiveSheet.Unprotect('clave');
XLS.ActiveSheet.Unprotect.protect('clave');
espero que aun no sea tarde, Exito!!!