Disable Cut/Copy

Hey all found this Macro on a search,
which disables the cut/copy paste feature. Can any one make this work so that it actually disables the this feature but only in Column A

'*** In the ThisWorkbook Module ***
Option Explicit 
 
Private Sub Workbook_Activate() 
     'Force the current selection to be selected, triggering the appropriate
     'state of the cut, copy & paste commands
    Selection.Select 
End Sub 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
     'Re-enable the cut, copy & paste commands
    Call ToggleCutCopyAndPaste(True) 
End Sub 
 
Private Sub Workbook_Deactivate() 
     'Re-enable the cut, copy & paste commands
    Call ToggleCutCopyAndPaste(True) 
End Sub 
 
Private Sub Workbook_Open() 
     'Force the current selection to be selected, triggering the appropriate
     'state of the cut, copy & paste commands
    Selection.Select 
End Sub 
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
     'Toggle the cut, copy & paste commands on selected ranges
     
    Select Case Sh.Name 
    Case Is = "Sheet1" 
         'Disable cut, copy & paste for Sheet1, Column A
        If Not Intersect(Target, Target.Parent.Columns(1)) Is Nothing Then 
            Call ToggleCutCopyAndPaste(False) 
        Else 
            Call ToggleCutCopyAndPaste(True) 
        End If 
         
    Case Is = "Sheet2" 
         'Disable cut, copy & paste for Sheet2, Range G1:H5
        If Not Intersect(Target, Target.Parent.Range("G1:H5")) Is Nothing Then 
            Call ToggleCutCopyAndPaste(False) 
        Else 
            Call ToggleCutCopyAndPaste(True) 
        End If 
         
    Case Else 
         'Re-enable cut copy and paste commands as this is not a restricted sheet
        Call ToggleCutCopyAndPaste(True) 
    End Select 
End Sub

Hi,

Test your code again by replacing (or removing) the bold part below..

If Not Intersect(Target, Target.Parent.Columns(1)) Is Nothing Then

I am not able to check your code as there is no ToggleCutCopyAndPaste() function/procedure in your code. If possible then please add the same.

Regards
taps

I didnt change the above Macro as I didnt get around to it. I tested the above macro which disabled the Cut/Copy/Paste Feature then I created this post. It was only later when opening a seperate document that I noticed its disabled the feature across all excel Docs on my user log in any way.
Thanks For Your Help