Empécher utilisateurs de faire un Ctrl X

Bonjour le Forum,

Ayant du refaire plusieurs fois un fichier a cause de cellules manquantes,
Je cherche à empécher les utilisateurs de faire la combinaison de touche Ctrl X ou (de faire un couper/coller) tout en leur laissant la possibilité de faire CtrlC ou (Copier/coller)

J'ai essayé avec l'aide de Vba plusieurs codes du style mais sans résultat

Code:

---

1 2 3

Sub auto_open() Application.CutCopyMode = False End Sub

---

ou même :

Code:

---

1 2 3

Sub auto_open() Application.CutCopyMode = xlCopy End Sub

---

et tout remettre en ordre à la fermeture du classeur avec un Sub Auto_Close

Si quelqu'un a une idée

Merci à vous

Dom

bonjour Domimart le forum fait une recherche sur OnKey !!
attention quand meme a l'utilisation

exemple

Code:

---

1 2 3 4 5 6

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "^{x}" End Sub Private Sub Workbook_Open() Application.OnKey "^{x}", " " End Sub

---

Re bonjour Laetitia,

Avec OnKEy, je peux effectivement empécher la combinaison de touches Ctrl X, mais l'utilisateur a quand même la possibilité de faire un clic droit, puis faire un couper coller

Tu as raison c'est toujours délicat de modifier le comportement du clavier ou des évenements excel, et je risque de tout planter.
Je vais plutôt resensibiliser les opérateurs sur ce point

Merci à toi et bon weekend à tous

Dom

Bonjour.

Si la feuille est protégée, avec sélections autorisées, tu peux copier des cellules verrouillées, mais pas les couper.

Cordialement,

PGZ

Bonjour PGZ,

Le problème est que ce sont des cellules dévérouillées, les utilisateurs (nombreux et de différents niveaux) doivent y saisir des noms.
Comme je compare chaque nom, et que je vérifie si il est autorisé, j' ai plusieurs cellules dépendantes. Et quand ils me suppriment une cellule
,tous les dépendants me renvoyent une valeur d'erreur et je ne m'en aperçoie pas forcement immédiatement.

J'ai bien essayé de contourner le pbm avec une macro lançant une MsgBox d'information et en lui attribuant le racourçi Ctrl+X, mais xl me met automatiquement un racourci Ctrl+Maj+X

Cordialement
Dom

Re bonjour à tous,
Finalement j'ai utilisé le code de Laetitia pour lancer une MsgBox d'information.
Les utilisateurs peuvent toujours faire un couper/coller avec le menu contextuel, mais au moins cela limite déjà les erreurs.
voici le code final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub auto_open() Application.OnKey "^{x}", "info " End Sub Sub info() MsgBox "Vous allez supprimer une cellule " & Chr(10) & _ " et générer une erreur. " & Chr(10) & _ "Faites plutôt un copier/coller." End Sub Sub auto_close() Application.OnKey "^{x}" End Sub

---

Merci à tous et bon forum:ccool:

Dom