Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Interdire le copier/coller?

  • Initiateur de la discussion Initiateur de la discussion aredo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

aredo

XLDnaute Occasionnel
bonjour,

J'ai un projet en vba, dont les feuilles sont protégées, ainsi qu'une interdiction de les imprimer. Malgré ceci, on peut toujours copier-coller.
Voyez-vous une solution adaptée, pour éviter cette action.
merci au fofo
 
Re : Interdire le copier/coller?

Bonjour,

A copier dans Thisworkbook:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CutCopyMode = True
.CellDragAndDrop = True
End With
End Sub

Private Sub Workbook_Open()
With Application
.CutCopyMode = False
.CellDragAndDrop = False
End With
End Sub

A+
 
Re : Interdire le copier/coller?

Bonsoir, effectivement,
une partie du code est à mettre dans la feuille.

Dans ThisWorkbook:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CutCopyMode = True
.CellDragAndDrop = True
End With
End Sub

Et dans la feuille:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Application
.CutCopyMode = False
.CellDragAndDrop = False
End With

End Sub

Et ça marche !! Voir classeur joint
A+
 

Pièces jointes

Re : Interdire le copier/coller?

salut degap,

Merci pour ce code, effectivement, çà marche. Parcontre, on a toujours la possibilité de coller dans un autre classeur. Il faudrait pouvoir interdire la cde copier ainsi que les raccourcis ctrl c et x.
J'ai trouvé un code qui le permet.
En tout cas, merci encore pour ta réactivité.
Comme toujours, ce forum est à la hauteur de nos espérances.
bonne continuation
bonne soirée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
867
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…