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

Supposons que vous ayez un classeur contenant des données importantes que vous devez protéger contre le coupage, la copie et le collage. Comment y parvenir? Cet article fournit une méthode VBA pour vous permettre de désactiver les fonctions couper, copier et coller en même temps dans un classeur Excel.

Désactivez les fonctions couper, copier et coller avec le code VBA

Désactivez les fonctions couper, copier et coller avec le code VBA

Veuillez procéder comme suit pour désactiver les fonctions couper, copier et coller dans un classeur Excel.

1. Dans le classeur, vous devez désactiver les fonctions couper, copier et coller, appuyez sur le bouton autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, veuillez double-cliquer Ce classeur à gauche Projet volet, puis copiez et collez le code VBA ci-dessous dans le Ce classeur (code) la fenêtre. Voir la capture d'écran:

Code VBA: désactivez les fonctions couper, copier et coller en même temps 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 le autre + Q touches pour quitter Microsoft Visual Basic pour applications fenêtre.

Désormais, vous ne pouvez pas couper ou copier les données de ce classeur, en attendant, les données que vous avez copiées à partir d'autres feuilles ou classeurs ne peuvent pas être collées dans ce classeur.

Notes: La fonction glisser-déposer est également désactivée après l'exécution du code VBA ci-dessus.

Débloquez Excel Magic 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 sur mesure pour rationaliser vos flux de travail.
• Codage VBA: Écrivez et implémentez du code VBA sans effort.
• Interprétation de la formule: Comprendre facilement des formules complexes.
• Traduction de texte: Brisez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils basés sur l'IA. Téléchargez et faites l'expérience d'une efficacité comme jamais auparavant !

Articles connexes:

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