prevent cell selection in certain areas

[robertvdb]

is there a way to prevent cell selection in columns A,B,D,E (see attached image) WITHOUT using Sheet Protection or WITHOUT using the Worksheet Selection Change below ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i, j As Integer
i = Target.Row
j = Target.Column

'If Target.CountLarge > 1 Then Exit Sub
   
Application.EnableEvents = False

If i < 2 Then
    Cells(2, 2).Select
End If

If i > 10 Then
    Cells(10, 2).Select
End If

If i >= 2 And i <= 10 Then
    If j < 3 Then Cells(i, 3).Select
    If j > 3 Then Cells(i, 3).Select
End If

Application.EnableEvents = True

End Sub

 

[My Aswer Is This]

Not without selection change. But this would work with just a little code like below.
Try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
Case 1, 2, 4, 5: MsgBox "Your not allowed in columns" & vbNewLine & "1,2,4,5"
End Select

End Sub

 

[My Aswer Is This]

Try this I made this modification.
Use this script.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
Case 1, 2, 4, 5: MsgBox "Your not allowed in columns" & vbNewLine & "1,2,4,5"
Cells(1, 6).Select
End Select

End Sub

 

[robertvdb]

Thanks, I appreciate your script, which is significantly shorter than mine.

However, I'm still hoping to avoid SelectionChange...