Remove the lines:

If Intersect(Range("A:A"), Target) Is Nothing Then
Exit Sub
End If

But be aware that if someone opens the sheet with macros disabled then the
code will not run.

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"joesf16" wrote in message
...

-- Hi.

I would like to be able to set up excel 2003 with the following features.
I
would like people to be able to enter data into the spreadsheet, but not
be
allowed to change anything when it is entered.

Even if Joe enters data I do not want Joe to be able to change his data.

I know that I can track changes. Is there any other ideas people have
about
how this can be done? What about special permissions? Maybe special
permissions on the folder containing the spreadsheet?



Start with the sheet unprotected and all the cells unlocked. This event
macro will look for changes in column A. Once a cell has been changed,
that
cell is locked:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A:A"), Target) Is Nothing Then
Exit Sub
End If
ActiveSheet.Protect Contents:=False
Target.Locked = True
ActiveSheet.Protect Contents:=True
End Sub



Hi.

Wow! That's cool. Thanks so much. Can you make that work for the entire
sheet?


--
vze2mss6


I never got any further response. I was hoping somebody else could pick
up
the ball with the rest of this code or give me an alternative.

Thanks
--

vze2mss6