Discussion :

[Domimart]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub auto_open()
Application.CutCopyMode = False
End Sub

ou même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

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

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Domimart]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Dom