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

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

--
Regards,
Tom Ogilvy


"(E-Mail Removed)" 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
>
>

On Jul 14, 9:42 pm, Tom Ogilvy <TomOgi...@discussions.microsoft.com>
wrote:
> ActiveSheet.Unprotect
> set rng = ActiveSheet.Cells.SpecialCells(xlConstants)
> rng.Locked = True
> ActiveSheet.Protect
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "kabulk...@gmail.com" 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- Hide quoted text -
>
> - Show quoted text -

it worked perfectly.
Thanks alot

best regards,
naweed