Interdire le copier coller

[Rahan]

Bonjour,

Je souhaite pouvoir interdir le copier/coller de cellules vers un nouveau document excell.

j'ai essayé de taper ce code mais ça ne fonctionne pas.

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

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


Kk1 peut m'aider ?

J'ai une question complémentaire: comment active t'on ce code (ou celui qu'ira bien) au démarrage ?

Merci

 

[Bernard_XLD]

Re : Interdire le copier coller

Bonjour

c'était presque cela
pour la question subsidiaire, ce code est à placer dans le volet thisworkbook et étant événementiel, il sera automatiquement actif

Cordialement, A+

Private Sub Workbook_Deactivate()
Application.CutCopyMode = False
End Sub

 

[porcinet82]

Re : Interdire le copier coller

Salut, re Yeahou,

Juste pour dire qu'il manque un s dans le code de Yeahou. Il faut mettre :

Private Sub Workbook_De[B][COLOR=#ff0000]s[/COLOR][/B]activate()
Application.CutCopyMode = False
End Sub

@+

PS : Merci Yehaou, et +1 au compteur facilement

 

[Bernard_XLD]

Re : Interdire le copier coller

Re Porcinet

on doit po avoir le même excel !!

A+

 

[Mytå]

Re : Interdire le copier coller

Salut le Forum

Rahan ton code est bon

Méthode radicale pour interdire le copier/coller
dans le module ThisWorkbook de ton classeur

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

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

Mytå

 

[Rahan]

Re : Interdire le copier coller

Merci pour vos réponses mais ça ne fonctionne toujours pas.
Le bon vieux 'ctrl C' et 'Ctrl V' fonctionne toujours.

 

[Rahan]

Re : Interdire le copier coller

j'ai Excel 2000, je ne pense pas que çela ait une influence mais bon.

 

[michel_m]

Re : Interdire le copier coller

Bonjour à tous,

A tester cette démo de Fréderic Sigonneau
Ce site n'existe plus

 

[Bernard_XLD]

Re : Interdire le copier coller

Re

si je reprends l'énoncé, tu veux éviter les copies dans un nouveau document excel donc un autre classeur. Dans ce cas il faut passer par une macro événementielle appliquée au classeur ce qui est le cas de workbook_deactivate mais pas de Workbook_SheetDeactivate
Private Sub Workbook_Deactivate()
Application.CutCopyMode = False
End Sub
cette macro s'exécutera quand on sélectionnera l'autre classeur puis cela aura pour de désactiver le premier.
je te mets un fichier exemple ou tu ne pourras pas ni copier des valeurs dans un autre classeur ni coller des valeurs d'un autre classeur par contre tout reste possible entre feuilles du classeur
Egalement tu utilises des macros activate, cela ne s'utiliserait dans ton cadre de demande que si tu veux empécher qu'on colle dans le classeur qui contient la macro auquel tu peux utiliser
Private Sub Workbook_Activate()
Application.CutCopyMode = False
End Sub

bien poser ton problème est primordial pour avoir une réponse correcte. Bien analyser les réponses est tout aussi important!

Cordialement, A+

Regarde la pièce jointe exemple3.zip

 

[Mytå]

Re : Interdire le copier coller

Salut L e Forum

Rahan pourquoi ne pas l'avoir mentionner des le début

Merci pour vos réponses mais ça ne fonctionne toujours pas.
Le bon vieux 'ctrl C' et 'Ctrl V' fonctionne toujours

Mytå

 

[Rahan]

Re : Interdire le copier coller

Merci beaucoup pour votre aide.

J'ai finalement trouvé ce post sur le forum qui correspond à mes attentes.

https://www.excel-downloads.com/threads/interdire-copier-coller.28970/

Passez de bonnes fêtes

 

[aredo]

Re : Interdire le copier coller

re,

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.
bonne soirée

 

[kiki29]

Re : Interdire le copier coller

Salut, Deterrage : voir VBA Express : Excel - Disable Cut, Copy, Paste

 

[javierpinto]

Re : Interdire le copier coller

Salut, re Yeahou,

Juste pour dire qu'il manque un s dans le code de Yeahou. Il faut mettre :

Private Sub Workbook_De[B][COLOR=#ff0000]s[/COLOR][/B]activate()
Application.CutCopyMode = False
End Sub

@+

PS : Merci Yehaou, et +1 au compteur facilement

Bonsoir, je cherche à interdire le copier/coler d'un dossier ou fichier vers une clé USB ou autre mais laisser la possibilité aux utilisateurs d'ouvrir le fichier ou dossier et de travailler avec.

merci A+

 

[Bernard_XLD]

Re : Interdire le copier coller

Bonjour Javierpinto, le forum

javierpinto, on évite de remonter des fils vieux de quatre ans, crée plutôt un nouveau sujet

Cordialement, @+