【vba源码】禁用复制功能Ctrl+C

hi，大家好呀！

又到了和大家一起来分享Access开发的功能点时间了，最近总感觉时间不够用，感觉要做的事情有很多，但总是被乱七八糟的事情给打扰，好在我们每个人有Passion！最近更新的Access2024的教程都得到了广泛的关注，感谢各位啦！

那今天我们来讲点啥好玩的呢？我们先来看看。

从图片中，我们就可以看到当按下Ctrl+C时，系统给出了判断，提示不能复制数据，那这个禁用复制功能该怎么来做呢？那接下去，我们就来看看操作。

01、手工操作

我们这里讲的禁用复制功能是对数据表窗体的操作，所以，大家在测试时，需要先创建一个数据表窗体。

那我们有了一个数据表窗体后，在设计模式下，找到窗体的属性，将快捷菜单改成：否

这样操作后，我们在选择数据行后，就无法右击操作就无效了。

02、代码操作

接着，我们还需要添加几行代码来禁用键盘操作，具体的代码如下：

Private Sub Form_Load()

    Me.KeyPreview = True

End Sub

'让窗体响应键盘事件

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If Shift = 2 And Chr(KeyCode) = "C" Then

        MsgBox "禁止Ctrl+C复制数据。", vbCritical

    End If

End Sub

03、测试

最后，我们就可以来测试使用了。测试效果就是我文章开头讲的效果，当触发键盘上的Ctrl+C后，就弹出禁止信息。

好了，大家快去试一下吧，如果大家觉得我写的还行，那就给我一键三连吧，谢谢大家了！