Excel Vs print

DD!

Kr na začetku povem, da nima dost pojma...
V Excelu imam zeo veliko podatkov,pa ne bi rad, da bi jih kdo dal printat. Kako onesposobim printanje?
Probal sem tole v VB pa stvar ne deluje . Kako zaženem, da bi delovalo?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "Preview and Print not allowed.", vbCritical, "PRINT DISABLED"
End Sub


Hvala že vnaprej.

Thx, deluje.