cell lock

[kabulking]

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

 

[Guest]

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

 

[kabulking]

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

--
Regards,
Tom Ogilvy







- Show quoted text -

it worked perfectly.
Thanks alot

best regards,
naweed