Allow some column to copy and paste

[Abdulkhadar]

Hi Excel Experts,
In the protected sheet I want to allow user only copy and paste at column C and D, not to allow cut and paste. In this sheet some columns (Except C & D) are having data validation and some columns are formula. but i want to allow user to only copy and paste data from other sources at column C and D.

Thanks in advance.

 

[Abdulkhadar]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim uRng As Range, r As Long
    r = Me.Rows.Count - 14
    Set uRng = Union(Range("C15:D15").Resize(r), Range("F15").Resize(r), Range("M15").Resize(r))

    If Not Intersect(Target, uRng) Is Nothing Then
        If Application.CutCopyMode = 2 Then
            Application.CutCopyMode = 0
            MsgBox "Cut & Paste not permitted here" & vbCr & "use Copy  & Paste", vbExclamation, "STOP"
        End If
    Else
        Application.CutCopyMode = 0
    End If
End Sub

THANKS ONCE AGAIN.