lockout changes
 

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



--
Gary''s Student - gsnu200737


"joesf16" wrote:

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?
--
vze2mss6