Excel如何实现禁用copy，paste功能，但仍然可以编辑

Excel如何实现禁用copy，paste功能，但仍然可以编辑。需要人员填写，但不希望相互复制，求大神帮忙

禁用/恢复 复制,粘贴功能,代码如下:
Sub DisableCopyCutAndPaste()
EnableControl 21, False ' 剪切
EnableControl 19, False ' 复制
EnableControl 22, False ' 粘贴
EnableControl 755, False ' 选择性粘贴
Application.OnKey "^c", "Dummy"
Application.OnKey "^v", "Dummy"
Application.OnKey "+{DEL}", "Dummy"
Application.OnKey "+{Insert}", "Dummy"
Application.CellDragAndDrop = False
Application.OnDoubleClick = "Dummy"
CommandBars("ToolBar List").Enabled = False
End Sub
Sub EnableCopyCutAndPaste()
EnableControl 21, True ' 剪切
EnableControl 19, True ' 复制
EnableControl 22, True ' 粘贴
EnableControl 755, True ' 选择性粘贴
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{Insert}"
Application.CellDragAndDrop = True
Application.OnDoubleClick = ""
CommandBars("ToolBar List").Enabled = True
End Sub
Sub EnableControl(Id As Integer, Enabled As Boolean)
Dim CB As CommandBar
Dim C As CommandBarControl
On Error Resume Next
For Each CB In Application.CommandBars
Set C = CB.FindControl(Id:=Id, recursive:=True)
If Not C Is Nothing Then C.Enabled = Enabled
Next
End Sub
Sub Dummy()
MsgBox "Sorry,本功能已被禁止使用!"
End Sub

1、可以通过【审阅】—【保护工作表】功能来实现。
2、此功能可以设置禁止编辑、禁止删除、禁止插入行列等权限，具体可参见菜单显示
3、此功能可以设置密码，输入密码后可以正常操作EXCEL表格。
4、此功能的作用区域可以通过【设置单元格格式】—【保护】—【锁定】功能是否勾选来确定。