禁用了第五列 2到10行的粘贴功能代码,但是实际操作,发现整个第五列都不能粘贴,请大神帮忙
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then
If Target.Row > 1 And Target.Row < 11 Then
Application.CutCopyMode = False
Else
Application.CutCopyMode = True
End If
End If
End Sub