Tisk vba je povolen pouze prostřednictvím makra

Dobrý den,

Toto je můj kód v modulu:

Sub PrintForm()
Application.PrintCommunication = False
S ActiveSheet.PageSetup
.PrintArea = "$A$1:$I$40"
.PrintTitleRows = "$1:$3"
.Zvětšení = 75
Konec s
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=Nepravda
Application.PrintCommunication = True
End Sub

Toto je můj kód v objektu Workbook:
Private Sub Workbook_BeforePrint (Zrušit jako booleovský)
Zrušit = Pravda
End Sub

Mohu vědět, jak mohu zakázat příkaz Tisk, ale povolit tisk přes makro, tj. chtěl bych přidat kontrolu, že Macro PrintForm smí tisknout pouze přes makro. Oceňuji, že někdo může pomoci, děkuji.