Ctrl-c et ctrl-v

Bonjour,

J'aimerais savoir, est-ce que c'est possible d'interdire le CTRL-C et CTRL-V dans un fichier Excel ?

J'ai le code suivant qui fonctionne pour interdire le bouton droit de la souris mais on peut toujours faire CTRL-C et CTRL-V dans mon document.

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

If Not Application.Intersect(Target, Range("A1:ZZ1000")) Is Nothing Then
Cancel = True
End If

End Sub

Merci de votre collaboration!

Bonjour

Tu peux faire ceci

Sub ctrlc()
MsgBox "interdit !"
Application.CutCopyMode = False
End Sub

et

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

  If Application.UserName = "" Then
     Cancel = False
  ElseIf (Range("G3").Value > 0) Then
   MsgBox "Vous n'avez pas complété tous les champs requis."
   Cancel = True
   Else
   Cancel = False
  End If
  End Sub

Super ça fonctionne!

Est-ce que je pourrai mettre ces deux codes dans Module1 sans soucis:

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

If Not Application.Intersect(Target, Range("A1:ZZ1000")) Is Nothing Then
Cancel = True
End If

End Sub

Non, les codes Private Sub Worksheet doivent rester attachés aux feuilles.