Blocage par ID

[Rv_Mikey]

Bonjour à toutes et tous,

Voilà mon problême, lisant régulierement le forum, je suis tombé sur un message parlant de blocage des fonctions (copier,coller...) par l'ID. Mais malheuresement je n'arrive pas à remettre la main dessus.

Est ce que quelqu'un pourrait, svp, m'indiquer le code pour un blocage par l'ID ?

Notes : j'ai récupéré tous les ID des fonctions de Microsoft :
* couper = ID 21
* Copier = ID 19
* Coller = ID 22

Voilà pour ceux que je veux annuler et bien sur remettre en fermant mon classeur ( ça je serais faire... enfin je crois !)

Merci pour votre aide.

Passez un agréable Week-End Rv Mikey

 

[Monique]

Bonjour,

Tu as un post ici sur le blocage de la fonction CTRL C et CTLR V
<http://www.excel-downloads.com/html/French/forum/messages/1_26255_26255.htm>

 

[Rv_Mikey]

Merci beaucoup Monique.

Je vais essayer cela de suite...

 

[Rv_Mikey]

ReBonjour,

Aie, ça ne fonctionne pas, il me marque : "Erreur de compilation, projet ou bibliothèque introuvable".

Sachant que je ne peut rien ajouter sur Excel. Est ce que quelqu'un aurait une solution ? Merci par avance.

Voici les deux codes du post cité ci-dessus :

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

Merci à Mytå pour la publication des codes et merci à Laurent Longre pour les codes. (faisant un copier-coller, je préfere rendre les félicitations aux acteurs du forum).