Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "Impression interdite !"
End Sub
... rendre l'impression de certaines feuilles ...
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