Comment désactiver les fonctions de couper, copier et coller dans Excel ?

Supposons que vous ayez un classeur contenant des données importantes que vous devez protéger contre les actions de couper, copier et coller. Comment y parvenir ? Cet article propose une méthode VBA pour désactiver simultanément les fonctions de couper, copier et coller dans un classeur Excel.

Désactiver les fonctions de couper, copier et coller avec du code VBA

Désactiver les fonctions de couper, copier et coller avec du code VBA

Veuillez suivre les étapes ci-dessous pour désactiver les fonctions de couper, copier et coller dans un classeur Excel.

1. Dans le classeur où vous souhaitez désactiver les fonctions de couper, copier et coller, appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, double-cliquez sur ThisWorkbook dans le volet Projet à gauche, puis copiez et collez le code VBA ci-dessous dans la fenêtre ThisWorkbook (Code). Voir capture d'écran :

Code VBA : Désactiver simultanément les fonctions de couper, copier et coller dans Excel

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

3. Ensuite, appuyez sur les touches Alt + Q pour quitter la fenêtre Microsoft Visual Basic for Applications.

Maintenant, vous ne pouvez plus couper ni copier de données depuis ce classeur. De plus, les données que vous avez copiées à partir d'autres feuilles ou classeurs ne peuvent pas être collées dans ce classeur.

Remarque : La fonction de glisser-déposer est également désactivée après avoir exécuté le code VBA ci-dessus.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Articles connexes :

• Comment désactiver le clic droit sur l'onglet de la feuille dans Excel ?
• Comment désactiver le menu contextuel du clic droit dans une feuille de calcul spécifique ou dans tout le classeur dans Excel ?
• Comment empêcher ou désactiver le mode édition en double-cliquant sur une cellule dans Excel ?