Imprimer, copier coller

[nonolerobot11]

Bonjour,
je cherche à interdir la fonction imprimer dans un classeur,
et aussi je voudrais qu'il soit possibe de conserver la fonction couper-copier coller dans ce classeur mais qu'il soit impossible de faire un couper- copier coller vers un autre classeur ou un autre document tel que word,power paint, le bloc not etc...

Merci pour votre aide

 

[criscris11]

Re : Imprimer, copier coller

Bonjour,
Pour la première question, peut-être une piste avec ce code :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = [COLOR=red]"Liste batterie"[/COLOR] Then Cancel = True
End Sub

à mettre dans ThisWorbook
Pense à remplacer "Liste batterie" par le nom de ta feuille.
Bon après-midi.

 

[nonolerobot11]

Re : Imprimer, copier coller

Bonjour,
Pour la première question, peut-être une piste avec ce code :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = [COLOR=red]"Liste batterie"[/COLOR] Then Cancel = True
End Sub

à mettre dans ThisWorbook
Pense à remplacer "Liste batterie" par le nom de ta feuille.
Bon après-midi.

Merci pour ta réponse,
j'ai un peux modifié, j'ai gardé :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

et ça à l'air de fonctionner
Merci