Disable cut, copy and paste

Visor · #1 08-07-2019, 04:08 AM

Greetings friends of the forum, I would like to know how to achieve that in a custom Word file that I deliver to my student, he cannot cut, copy or paste, not Ctrl + x, Ctrl + C, Ctrl + V. I want it that way to make the student write for himself the homework he sends.
I have a code that doesn't work for me but I know there must be some way.

HTML Code:

Private Sub Workbook_Activate()
Dim oCtrl As Office.CommandBarControl
'Deshabilita Cut del todo el menu
     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
            oCtrl.Enabled = False
     Next oCtrl
'Deshabilita Copy del todo el menu
     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
            oCtrl.Enabled = False
     Next oCtrl
'Deshabilita Paste del todo el menu
     For Each oCtrl In Application.CommandBars.FindControls(ID:=6002)
            oCtrl.Enabled = False
     Next oCtrl
     Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Application
        .CellDragAndDrop = False
        .CutCopyMode = False 'Clear clipboard
    End With
End Sub

I come to you to ask for collaboration with this topic.

I appreciate your support in advance

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Disable Paste in specific range	il_betto	Excel Programming	2	06-12-2019 12:06 AM
Copy and paste	AUBuck	Excel	1	07-20-2017 12:07 PM
When I copy&paste a second copy appears that can't be edited	makeo22	Word	3	04-26-2017 07:09 PM
Copy / paste	BoyertownCasket	Excel	4	04-19-2016 12:32 AM
Paste Special: Copy and Paste Formatting Only?	tinfanide	Word	6	03-06-2013 12:21 AM