VBA to Disable Copy/Paste Entirely

[default_name]

Hey guys!

Is there a way, using VBA, to entirely prevent users from using the copy/cut/paste feature?

I have seen a few posts online that talk about making this possible on protected workbooks.
But is there a way to disable the copy/cut/paste features regardless of whether or not the document is in the protected mode?
In other words...how can I completely disable copying/cutting/pasting in my workbook in all instances, whether it is locked/protected or not?

I have tried using:

Application.CutCopyMode = False

in the ThisWorkbook vba sheet...but that doesnt seem to do anything.

Thanks in advance!

 

[Jeffrey Mahoney]

I have done this. That code needs to be in the THISWORKBOOK module. Your going to have lock down the VBA. It won't stop the people that know how to bypass macros. I can't seem to prevent copying from other applications and pasting to a cell. It prevents pasting between sheets, workbooks, and cells.

Private Sub Workbook_Open()
  ClearClipboard
End Sub

Private Sub Workbook_Activate()
  ClearClipboard
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  ClearClipboard
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  ClearClipboard
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
  ClearClipboard
End Sub


Sub ClearClipboard()
  
  Dim Sht As Worksheet
  Set Sht = ActiveSheet
  With Sht
   .Cells(.Cells.Rows.Count, .Cells.Columns.Count).Copy
  End With
  Application.CutCopyMode = False
End Sub

 

[default_name]

Thanks Jeffrey!
That code works in disabling the copy/paste functions (just as requested)...but it also slows down the entire workbook considerably.

 

[default_name]

I was just playing around with the code, and this seems to work without slowing down the workbook:

Private Sub Workbook_Open()
    ClearClipboard
End Sub

Private Sub Workbook_Activate()
  ClearClipboard
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  ClearClipboard
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  ClearClipboard
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
  ClearClipboard
End Sub

Sub ClearClipboard()
  Application.CutCopyMode = False
End Sub

I took out the Dim, Set and With statements in the ClearClipboard sub...it seems to be working as I'd hoped....but perhaps I'm missing something. ?
What was the purpose for the Dim, Set and With statements?

Thanks again!!

 

[Jeffrey Mahoney]

This statement doesn't actually kill anything stored in the clipboard from external sources. It will stop a person from copy paste internally to Excel.

Application.CutCopyMode = False