如何在Excel中禁用剪切、复制和粘贴功能?


Excel是一个用于处理数据和进行大量计算的有用工具。在某些情况下,为了避免无意的数据更改或未经授权的复制,您可能希望限制某些功能。您可以通过关闭剪切、复制和粘贴功能来维护Excel工作簿的完整性和安全性。本文将探讨实现此目标的各种方法,使您能够根据自己的特定需求修改Excel的行为。让我们开始吧!

禁用剪切、复制和粘贴功能

在这里,我们将为整个工作簿插入VBA代码以完成任务。让我们来看一个简单的过程,学习如何在Excel中禁用剪切、复制和粘贴功能。

步骤1

考虑任何Excel工作表。首先,右键单击工作表名称,然后选择“查看代码”以打开VBA应用程序。然后双击此工作簿。

右键单击 > 查看代码 > 双击。

步骤2

然后将下面提到的代码复制到文本框中,类似于下图。

代码

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

步骤3

然后使用快捷键ALT + Q关闭VBA应用程序以完成任务。

结论

在本教程中,我们使用了一个简单的示例来演示如何在Excel中禁用剪切、复制和粘贴功能。

更新于:2023年7月11日

2K+ 次浏览

启动你的职业生涯

通过完成课程获得认证

开始学习
广告