Désactiver le Copier/Coller sur un txtbox

Bonjour,

Voici une piste en utilisant un moyen détourné.
L'idée est d'empêcher toute sélection du texte de la
TextBox. L'utilisateur ne pourra plus faire un copier/coller.

On utilise l'évènement KeyDown.
Copiez le code ci-dessous et remplacez TextBox1 par le
Name de votre TextBox.

'**********
Private Sub TextBox1_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
TextBox1.SelLength = 0
End Sub
'**********

Cordialement.
--
PMO
Patrick Morange

Bonjour à tous.
Je voudrais savoir s'il est possible de désactiver la fonction ctrl-c/ctrl-v
sur un textBox en VBA sur Excel... ?

Merci pour vos réponse

Bonjour.
Pour inhiber les touches CTRL-C et CTRL-V dans le contrôle TextBox1,
on peut intervenir lors de l'événement TextBox1_KeyDown:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)

If KeyCode = 67 And Shift = 2 Then
'CTRL-C détecté et annulé
KeyCode = 0

ElseIf KeyCode = 86 And Shift = 2 Then
'CTRL-V détecté et annulé
KeyCode = 0
End If

End Sub

docm

"OlafMouse" <OlafMouse@discussions.microsoft.com> a écrit dans le message
news: B7B068D6-A4C9-4344-A245-D46A1F54628C@microsoft.com...

Bonjour à tous.
Je voudrais savoir s'il est possible de désactiver la fonction
ctrl-c/ctrl-v

sur un textBox en VBA sur Excel... ?

Merci pour vos réponse