Prevent Users From Printing

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
   Cancel = True
   Call MsgBox("You are not allowed to print this workbook.", vbInformation + vbOKOnly)
End Sub

Prevent Certain Sheets

You could still select a different worksheet and then print the whole workbook ??

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
   Select Case ActiveSheet.Name
      Case "Sheet1", "Sheet2"
         Cancel = True
         Call MsgBox("You are not allowed to print this particular worksheet.", vbInformation + vbOKOnly)
   
   End Select
End Sub

© 2019 Better Solutions Limited. All Rights Reserved. © 2019 Better Solutions Limited TopPrev