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
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 ?