one time entry sheet with copy and past values for certain cells only

[abedfarhat]

I am trying to create a sheet that many will use, and i want every one to enter the data one time and make the entered date protected and not editable and also i want the sheet to retrain the editor name to the user name column and copy and past value in the same cell because if another one open the sheet the user name will change automatically because of the formula

[/SIZE]
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Target.Locked = True
If Intersect(Target, Range("F2:F1000")) Then
Target.Copy
Target.PasteSpecial xlPasteValues
Else
End If
ActiveSheet.Protect

End Sub
[SIZE=1]

 

[abedfarhat]

Junk (code) Image Removed