如何禁止指定sheet表复制

wsagr

如何禁止指定sheet表复制，这个文件是共享文件，就是其他只读者不能复制，但是编辑者随意，怎么弄呢，在网上找了代码的，但是会导致其他表格也出现不能复制的现象，但是其他表格并没有此代码，这个怎么解？

代码如下：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CommandBars("Edit").Controls("复制(&c)").Enabled = True
.CommandBars("Cell").Enabled = True
.CommandBars("ply").Enabled = True
.CommandBars("Standard").Controls("复制(&c)").Enabled = True
End With
End Sub
Private Sub Workbook_Open()
With Application
.OnKey Key:="^c", procedure:="dd" '使用ctrl+c则运行dd
.CommandBars("Edit").Controls("复制(&c)").Enabled = False '复制菜单按钮失效
.CommandBars("Standard").Controls("复制(&c)").Enabled = False '复制工具按钮失效
.CommandBars("Cell").Enabled = False '右键菜单失效
.CommandBars("ply").Enabled = False '工作表标签右键菜单失效
End With
End Sub

Sub dd()
MsgBox "呵呵！不能复制哦！"
End Sub

高个子

共享文件的VBA容易出现问题，建议开发网站解决

wsagr

高个子 发表于 2023-3-16 15:23
共享文件的VBA容易出现问题，建议开发网站解决

那我还有其他方法可以实现这种功能吗？在共享里面

高个子

wsagr 发表于 2023-3-16 16:07
那我还有其他方法可以实现这种功能吗？在共享里面

你可以全禁止，就是只能看啥也不能动。

wsagr

高个子 发表于 2023-3-16 16:20
你可以全禁止，就是只能看啥也不能动。

可我这里面是共享的，共享文件里面有其他宏控件啊？

高个子

wsagr 发表于 2023-3-16 16:28
可我这里面是共享的，共享文件里面有其他宏控件啊？

你自己可以动，其他人不行

wsagr

高个子 发表于 2023-3-16 16:51
你自己可以动，其他人不行

对，这个表放在共享上是只有我能编辑其他人是只读，我不想让其他人复制我表里的内容，例如就是出入库明细账这个表，其他的sheet页都随便，怎么能做到呢，要求就是我其他的操作都不受限制，能做到把，实在没什么方法，我以为保护工作表可以做到但是我解密了之后还是能操作，我想的是我当前使用状态下，无论谁进来都不能复制就行，除非他也是能编辑的人，这样能实现吗？

wsagr

各位大神有方法吗？

reking大帝

我改了一个，可以用

wsagr

reking大帝 发表于 2023-3-17 14:27
我改了一个，可以用

分享一下，神