ActiveSheet.Unprotect
set rng = ActiveSheet.Cells.SpecialCells(xlConstants)
rng.Locked = True
ActiveSheet.Protect

--
Regards,
Tom Ogilvy


" wrote:

dearr
i have a sheet that is being updated from a form.
i want the button on the form to lock the cells in which data has been
entered and the empty cells remain unlock.

any help will be appreciated

thanks
naweed