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.