problème sur interdiction copier-coller

Bonjour,

je cherchais à interdire le copier-coller sur un fichier car j'ai des des zones de saisies et des listes déroulantes, je ne souhaite pas que les personnes qui vont se servir de ce fichier dérèglent tout.

j'ai trouvé ça :

Sub Workbook_DeActivate()

Dim oCtrl As Office.CommandBarControl
For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
oCtrl.Enabled = False
Next oCtrl

For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
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

le soucis c'est que ça bloque le copier-coller de tous mes fichiers excel. Comment faire pour que ça ne fonctionne que sur le fichier que je souhaite.

merci de votre aide