Shared Worksheet--secure last entry

[Guest]

ood morning,

We are doing a survey through excel 2003 where about 50 people are answering
a question on a shared workbook.

Our concern is that one person would cast their vote, only to be change
dlater by someone else.

Is there any way to "lockdown" a cell once it is filled in with text? The
column they answer in is A.

Thank you

 

[Guest]

I just found this code on the DGs yesterday. Maybe it will be of some use to
you:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRow As Long
Dim myVal As Variant
If Target.Cells.Count > 1 Then Exit Sub
With Application
..EnableEvents = False
..ScreenUpdating = False
myVal = Target.Value
..Undo
myRow = Sheets("History Sheet").Cells(Rows.Count, 3).End(xlUp)(2).Row
Intersect(Target.EntireRow, ActiveSheet.UsedRange).Copy _
Sheets("History Sheet").Cells(myRow, 3)
Sheets("History Sheet").Cells(myRow, 2).Value = Now
Sheets("History Sheet").Cells(myRow, 1).Value = .UserName
Target.Value = myVal
..ScreenUpdating = True
..EnableEvents = True
End With

End Sub

To use: copy the code, right-click your sheet, and paste the code into the
window that opens (into the VBE).


Regards,
Ryan---