var Sheet: TXLSWorksheet; begin Sheet := Workbook.Sheets[1]; if Sheet.IsProtected then Sheet.UnProtect; Sheet.Range['A1', 'A1'].Value := 'Updated'; end;