LOCAL oExcel AS Excel.Application
oExcel = CREATEOBJECT([Excel.Application])
oExcel.Workbooks.Add()
oExcel.Columns("E:Z").Select() && Unlock cells from E to Z
oExcel.Selection.Locked = .f.

oExcel.Columns("A:D").Select() && Lock cells from E to Z
oExcel.Selection.Locked = .t.
oExcel.Selection.FormulaHidden = .f.

*** Protect the sheet
oExcel.ActiveSheet.Protect(, .t., .t., .t.)
oExcel.Visible = .t.