Hi everybody.

I am writing a worksheet_change event and need to effectively put in the
code that I describe as "Do not allow change to be entered"

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
username = ActiveWorkbook.BuiltinDocumentProperties("Author")
If Target.Column = 15 and username < "JoeBloggs" Then
Do not allow change to be entered
MsgBox ("You are not authorised to change this column")

End sub


Any ideas or am I completely barking up the wrong tree?

Thanks

Andy B

<ff wrote in message ...
Hi everybody.

I am writing a worksheet_change event and need to effectively put in the
code that I describe as "Do not allow change to be entered"

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
username = ActiveWorkbook.BuiltinDocumentProperties("Author")
If Target.Column = 15 and username < "JoeBloggs" Then
Do not allow change to be entered
MsgBox ("You are not authorised to change this column")

End sub


Any ideas or am I completely barking up the wrong tree?

Thanks

Andy B


Why not just password protect the sheet ?

Keith