怎么才能让工作表禁止复制粘贴功能啊？

right1406 · 发表于 2015-11-26 18:31

好强悍的代码

蝈蝈_ysu_ · 发表于 2016-1-7 21:57

楼上一堆逗鸟.......笑尿了已经

1249994139 · 发表于 2018-9-2 17:58

tianhua_30005 发表于 2011-11-13 20:11
运用此法只能在EXCEL中禁止，如果是从WORD或别的该当中复制的数据，再在EXCEL单元格中双击，然后再运用 ...

太精辟了，留印学习。

1249994139 · 发表于 2018-9-2 17:59

tianhua_30005 发表于 2011-11-11 17:09
以下是本人在网上搜索后用工具破解的代码，很好用，可以禁止很多项，如禁止复制、粘贴、清除、填充等自己 ...

此功能如果能对某一项功能或某几项功能进行禁用，就更完美了。

stocknet · 发表于 2020-10-20 23:52

doitbest 发表于 2011-11-11 15:11
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.Cu ...

非常感谢大佬，在网上找了好久的VBA代码，只有你这个能用。

pepsi7777 · 发表于 2022-8-29 20:58

doitbest 发表于 2011-11-11 15:11
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.Cu ...

doitbest 老师，
这个代码屏蔽了所有工作表的粘贴，
可以屏蔽指定的工作表的粘贴吗？
感谢

★子逸☆ · 发表于 2022-8-29 23:43

pepsi7777 发表于 2022-8-29 20:58
doitbest 老师，
这个代码屏蔽了所有工作表的粘贴，
可以屏蔽指定的工作表的粘贴吗？

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "工作表名" Then
Application.CutCopyMode = False
End If
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 怎么才能让工作表禁止复制粘贴功能啊？