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.
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 ?
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels