Interdire l'impression d'un fichier

5 mars 2014
Imprimer


 

Private Sub Workbook_BeforePrint(Cancel As Boolean)
     MsgBox "Vous n'avez pas le droit d'imprimer ce fichier", vbOKOnly + vbInformation, "Nom du classeur ou votre nom"
     Cancel = True
End Sub