blocage de la fonction CTRL C et CTLR V

[Francois everly]

Bonjour à tous

Comment bloquer les fonctions claviers CTRL C et CTRLC V en VBA

Merci d'avance

 

[Mytå]

Bonsoir Francois

Voila une idée de macro me souvient plus de qui par contre (désolé pour l'auteur)

Sub Désactiver()
For Each K In Array("^", "%", "+^", "+%", "^%", "+^%")
'Lettre c et C
Application.OnKey K & Chr$(99), ""
Application.OnKey K & Chr$(67), ""
'Lettre v et V
Application.OnKey K & Chr$(118), ""
Application.OnKey K & Chr$(86), ""
Next K
End Sub

Sub Réactiver()
For Each K In Array("^", "%", "+^", "+%", "^%", "+^%")
'Lettre c et C
Application.OnKey K & Chr$(99)
Application.OnKey K & Chr$(67)
'Lettre v et V
Application.OnKey K & Chr$(118)
Application.OnKey K & Chr$(86)
Next K
End Sub

A suivre

 

[Mytå]

re pour précision

Le code vient de Laurent Longre que j'avais un peu modifier pour mon application

 

[Mytå]

Re le forum

Bon faut croire que les mercis c'est pas ton fort Francois everly

Et que cela doit fonctionner on pense !!!!!!

Mytå

 

[@+Thierry]

Bonjour Mytå et le forum !


Ben alors c'est moi qui vais te dire merci !!! et quant à savoir si çà marche.... Le nom que tu as cité est un gage de garantie de fonctionnement !!!

En effet, le simple nom du grand Chef à Trois Plumes fait trembler le débugeur de VBE !!! lol

Merci en tout cas pour cette info, qui pourra être utile à tout le monde, en plus de François...

Bonne Journée
@+Thierry

 

[Francois everly]

Bonjour Mytå

Halte au tir de cavalerie la guerre est terminée.

Merci pour le code VBA, le fonctionnement est parfait

Cordialement Francois

 

[Bony.R]

non seulement le fonctionnement est parfait mais il sert toujours à d'autres ...

Merci
Stef

 

[@+Thierry]

mais où est passé Mytå ..........


Bonne soirée (nuit)
@+Thierry

 

[Myta]

Bonsoir le Forum

@Thierry je suis encore la mais le lague de connection (meme avec ADSL)
la galere pour cela je ne passe que tard la nuit et tous les posts on deja
été pondue.....

Alors je retourne a d'autre choses.

Un ancien habitué qui va bientot quitter si sa lague autant le jour.

Mytå