Empécher l'impression d'une feuille [Resolu]

[sapheron]

Bonjour,

J'aimerais rendre l'impression de certaines feuilles Excel de mon classeur impossible ! Comment faire je n'arrive pas à trouver la solution ?

En vous remerciant 🙂

 

[DoubleZero]

Re : Empécher l'impression d'une feuille

Bonjour, sapheron, le Forum,

Peut-être avec ce code, placé dans ThisWorkbook :

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "Impression interdite !"
End Sub

A bientôt 🙂

 

[sapheron]

Re : Empécher l'impression d'une feuille

Merci j'essaye de ce pas et je te dis si ça à marché 🙂

 

[DoubleZero]

Re : Empécher l'impression d'une feuille

Re-bonjour,

Mes excuses, je n'avais pas prêté attention à ceci :

... rendre l'impression de certaines feuilles ...

Ce code ne bloque pas toute impression :

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
If .Name = "a" Or .Name = "b" Then Cancel = True 'nom d'onglet adapter
End With
End Sub

A bientôt 🙂

 

[sapheron]

Re : Empécher l'impression d'une feuille

Ca ne marche pas :/
Dans ton code tu as mis Workbook n'aurait-il pas fallu mettre worksheet
Ensuite ton code semble dire : "si on lance une impression faire apparaitre la boite de dialogue avec le message "impression interdite"" Il ne faudrait pas rajouter une ligne pour empêcher l'impression ?

 

[DoubleZero]

Re : Empécher l'impression d'une feuille

Re-bonjour,

Le code est modifié... ici.

A bientôt 🙂

 

[sapheron]

Re : Empécher l'impression d'une feuille

Ca marche nickel je te remercie 😎