Thread: Stop Changes
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
joesf16 joesf16 is offline
external usenet poster
 
Posts: 28
Default Stop Changes


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