copy paste deactivated on column A only but includes other columns

[LFKim2018]

I made two codes for one sheet to not allow copy paste and right click for column A only.
It work just fine for column A - but when I tried to copy on column B - the marching ants did show up but immediately disappear when I shift cell to copy. and it won't paste..
what is wrong with the codes?
many thanks..

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = False
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Cancel = True
    End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Application.CutCopyMode = False
        Application.OnKey "^c", ""
        Application.CellDragAndDrop = False
    Else
        Application.CellDragAndDrop = True
        Application.OnKey "^c"
        Application.CutCopyMode = True
    End If
End Sub

 

[LFKim2018]

It work just fine for column A - means that the copy paste/right click is deactivated and no copy/paste/right click can be done in column A..

 

[LFKim2018]

the subs are meant to prevent copy paste only to Column A.
it "should" allow copy paste to other columns (which it isn't doing)....
many thanks..