怎么样取消鼠标右键工能？

liujun · 发表于 2004-8-4 12:01

怎么样才能使鼠标右键在某个工作表中失效。

又怎么样才能不让使用者对工作表进行复制呢？

ovxyz · 发表于 2004-8-4 12:03

1 application.commandbars("cells").enabled=0

liujun · 发表于 2004-8-4 13:59

好像不行呀

运行出错呀

[此贴子已经被作者于2004-8-4 14:00:02编辑过]

ykk · 发表于 2004-8-4 14:01

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, cancel As Boolean) cancel = True

End Sub

ovxyz · 发表于 2004-8-4 14:08

对不起。多写了一个s

Application.CommandBars("cell").Enabled = 0

liujun · 发表于 2004-8-4 15:11

感谢楼上两位老师！！

但是还是没有办法解决使用者在

编辑》复制

的方法？（能不能连这个复制也冻结）

或者是一复制就提示禁止！！

[此贴子已经被作者于2004-8-4 15:12:42编辑过]

ovxyz · 发表于 2004-8-4 15:33

有一个方法。但没试过可行性。首先禁止右键，Application.CommandBars("cell").Enabled = 0 让后用onkey 禁用 CTRL + C 。Application.onkey "^(c)" , "自定义过程名" 然后禁用菜单栏里面的剪切：.Application.commandBars(1).controls(2).controls(3).Enabled=0 最后禁用菜单栏里面的复制：.Application.commandBars(1).controls(2).controls(4).Enabled=0

ovxyz · 发表于 2004-8-4 16:13

呵呵。确实可行。点击按钮后生效忘了把CTRL + X 禁止了。

rM6WVjJy.rar (8.81 KB, 下载次数: 281)

[此贴子已经被作者于2004-8-4 16:17:48编辑过]

liujun · 发表于 2004-8-5 16:44

能给我解释一下是什么意思吗？

CommandBars

Controls

Enabled

谢谢了！

ovxyz · 发表于 2004-8-5 16:51

CommandBars ：代表工具栏的集合，后面加（i）表示某一个工具栏 controls 某一个工具栏中控件的集合，后面加（i）表示某一个控件 enabled 是否可用。

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