>Hi All,
>
>This is what I want to do
>
>1. Append data from a dbf table to an empty Excel work sheet
>2. Do some formatting on the work sheet. ( Font bold , Calculating etc.)
>3. Make the 3rd column (Column C ) Protected/Read only so user can not change any data in this column.
>
>Within my VFP program I was able to open Excel application object and do step 1 and 2. But I’m stuck with the 3rd one. I just don’t know how to make just one column protected after appending the data from dbf table.
>
>Please Help !!!
>
>TIA
>
>- Jeana -

Use orders
lcXLS = Sys(5)+Curdir()+'orders.xls'
Copy To (lcXLS) Type Xls
oExcel = Createobject('Excel.application')
With oExcel
  .Workbooks.Open(lcXLS)
  With .ActiveWorkbook.ActiveSheet
    .UsedRange.Locked = .F.
    .Range('C:C').Locked = .T. && 3rd column locked
    .Protect
  Endwith
  .Visible = .T.
Endwith

Cetin