Question

我有一个数据捕获工作表，它隐藏了编辑栏和功能区，因此它只是带有工作表和按钮的框架。

宏被强制启用，在工作簿受保护的同时，工作表以启动屏幕和按钮启动，并且要访问其他工作表，您必须启用宏。

现在下面是捕获门户网站中的代码，该代码限制了它们只能复制和粘贴到工作表中以及从工作表中粘贴出来，但是有些代码仍然可以解决它们的粘贴和粘贴，但是粘贴数据的方式使得我想编辑时单击单元格时数据将不会像往常一样编辑（单元格中的数据消失）

所以我尝试了“突破” /“测试”此代码，但无法解决，我一直无法粘贴。可能是什么原因？

我尝试从其他工作表粘贴到该工作表，但是当转到另一工作簿或宏程序簿时，另一代码会将您带回到主屏幕，从而自动取消副本。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 If Application.CutCopyMode = xlCopy Then
  Application.EnableEvents = False
  MsgBox "Pasting in this sheet is Prohibited"
  Application.EnableEvents = True
  Application.CutCopyMode = False
 End If

 If Application.CutCopyMode = xlPasteValues Then
  Application.EnableEvents = False
  MsgBox "Pasting in this sheet is Prohibited"
  Application.EnableEvents = True
  Application.CutCopyMode = False
 End If

 If Application.CutCopyMode = xlCut Then
  Application.EnableEvents = False
  MsgBox "Cutting and Pasting in this sheet is Prohibited"
  Application.EnableEvents = True
  Application.CutCopyMode = False
 End If

End Sub

我希望他们根本不能复制/剪切和粘贴，但似乎复制和粘贴与剪切几乎相同。

绕过复制和粘贴禁用的工作表

0 个答案: