Correction pour petit VBA

Bonjour, avec l'aide de via55 en assistance j'ai pue réaliser une feuille qui me conviens et que je vais pouvoir céder à mes enfants. Afin de protéger les formules en arrière plan j'ai inséré l'interdiction de copier coller, glisser déplacer et le clic droit .Mon problème est que lorsque je suis allé sur un autre classeur je me suis trouvé sans "copier" bouton droit (reste grisé).
Je suis à la recherche d'un pro du VBA afin qu'il puisse contrôler ce dont j'ai formulé.
Dans Feuil1 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
NoCopCol = True
If NoCopCol Then Application.CutCopyMode = True
NoCopCol = False
Application.CellDragAndDrop = False

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Dans ThisWorkbook :
Application.CutCopyMode = False
NoCellCopCol = False
NoCopCol = False
Application.CellDragAndDrop = True
NoCellDragAndDrop = True

Merci, Christophe