Microsoft Office Forums - View Single Post

Visor · 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