best way to protected cells in column A

[robertvdb]

I have a sheet where the cells in col A needs to be protected against selecting, and against changing.

I don't want to protect the sheet, so I'm looking at the two methods below.

Which do you recommend ?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim j As Integer
j = Target.Column

If j = 1 Then
  Application.EnableEvents = False  
  Application.Undo
  Application.EnableEvents = True
  MsgBox "No change allowed"
End If
End Sub

OR

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim j As Integer
j = Target.Column
    
Application.EnableEvents = False

If j = 1 Then
    Cells(1,2).Select
  MsgBox "No change allowed"
End If

Application.EnableEvents = True

End Sub

 

[kevin9999]

If you prevent the user from even selecting a cell in column A - it would be impossible for them to change any cell in column A. Therefore, the SelectionChange code would be the way to go. I might shorten it a bit:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        Cells(1, 2).Select
        MsgBox "Cannot select/change cells in column A"
    End If
End Sub