Suppress printing workbook

[zenahs]

I currently have the following macro to suppress printing and it almos
works perfectly:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "Information contained in this workbook cannot be printed"
End Sub

The problem is that some individuals (who do not have edit privileges
may need to print a worksheet before sending the workbook to the en
user (who cannot print anything).

Those users who have edit privileges are currently using a "loc
button" to lock specific cells throughout the workbook from bein
edited by the end users. Can this print macro be somehow assigned t
the same button that I'm using to lock cells? I've tried to do thi
but it doesn't seem to work. (FYI: If it helps, here is the macro
recorded in a module to lock the cells):
Sheets("T133B").Select
Range("A1:M133").Select
ActiveWindow.ScrollRow = 1
Selection.Locked = True
Selection.FormulaHidden = False
Range("C4:J4").Select
Sheets("T133A").Select
Range("C3:M44").Select
ActiveWindow.ScrollRow = 12
Selection.Locked = True
Selection.FormulaHidden = False
Range("C5").Select
Sheets("T133A 2nd").Select
Range("C5:M44").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("C5").Select
Sheets("DLO").Select
ActiveWindow.ScrollRow = 1
Range("C5:M77").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("C5").Select
End Su

 

[Tom Ogilvy]

See one answer in Programming. Please don't multipost as you waste
people's time answering questions that might have already been answered.
If you want to post in multiple groups, cross post so that all see the
answers in each forum.

 

[zenahs]

Sorry Tom! I realized after the fact that I had originally posted my
question in the wrong spot. Rookie mistake. Won't happen again.