Protecting Cells AFTER Data is entered.

I want to make a sheet that allows people to enter data, but once entered, it cannot be changed. Is this possible?

kmd, here is one way, put in sheet code

Private Sub Worksheet_Change(ByVal Target As Range)
'Automatically Protecting After Input
'unlock all cells in the range first
Dim MyRange As Range
Const Password = "123" '**Change password here**
Set MyRange = Intersect(Range("A1:B10"), Target) '**change range
here**
If Not MyRange Is Nothing Then
Unprotect Password:=Password
MyRange.Locked = True
Protect Password:=Password
End If
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"kmd" <kmd.22mdto_1138913705.5589@excelforum-nospam.com> wrote in message
news:kmd.22mdto_1138913705.5589@excelforum-nospam.com...
>
> I want to make a sheet that allows people to enter data, but once
> entered, it cannot be changed. Is this possible?
>
>
> --
> kmd
> ------------------------------------------------------------------------
> kmd's Profile:
http://www.excelforum.com/member.php...o&userid=31120
> View this thread: http://www.excelforum.com/showthread...hreadid=507877
>

That did it. Thank you much for your help, Paul.

Your welcome

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"kmd" <kmd.22tlba_1139250000.6767@excelforum-nospam.com> wrote in message
news:kmd.22tlba_1139250000.6767@excelforum-nospam.com...
>
> That did it. Thank you much for your help, Paul.
>
>
>
> --
> kmd
> ------------------------------------------------------------------------
> kmd's Profile:
http://www.excelforum.com/member.php...o&userid=31120
> View this thread: http://www.excelforum.com/showthread...hreadid=507877
>