FiveTech Support Forums

Hello,
I want to unprotect all a sheeht and onlly protect 2 cells and the activate the protection of the sheet
How to ? Syntax ?
oxls := TOleAuto():New("Excel.Application")
oxls:visible:=.T.
oxls:WorkBooks:Open("c:\test\test.xls")
oBook := oxls:Get( "ActiveWorkBook")
oSheet := oxls:Get( "ActiveSheet" )
and than ??
Select all cells
Desactivate protection
Select on cell
Activate protection of this cell
Activate the protection of the sheet ?

Thanks

Hi Jack,

To "Lock" or "Unlock" a cell use:
oSheet:Range("A1","A10"):Locked:=.f. (or .t. to lock)

Then to protect the locked cells:
oSheet:Protect( cPassword )

To Unprotect the locked cells:
oSheet:UnProtect( cPassword )

I hope this helps.

Thanks,
it works .