Restrict Sheet Use to Certain Columns of Table

[neodjandre]

I am using this code which works fine to restrict selection of one cell in a sheet.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Range("A1").Select
Application.CutCopyMode = False
End Sub


However, I need to modify this so that the restriction only applies to certain table columns (and not the whole sheet).

e.g.

Range("table_a

")
Range("table_b[Name]")

Any ideas? many thanks

 

[sijpie]

neojandre,

first a comment: you have been posting on this forum long enough to know that you should use code brackets around your code (see below in red). A lot of regulars won't even answer questions where code brackets are not used. Please do. It makes your code easier to read and to copy.

What you are trying to achieve can be done in the code shown below, but could posssibly also be done using cell properties - protection and the protecting the worksheet.

The method you are using stops copy/paste from these cells, but the user can still copy down by dragging.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:B50")) Is Nothing Or _
       Not Intersect(Target, Columns("D")) Is Nothing Then    ' Add / amend for the ranges you want to protect
        Target.Range("A1").Select
        Application.CutCopyMode = False
    End If
End Sub