Drucken der Arbeitsmappe verhindern

Mit Hilfe des folgenden VBA-Codes kann die Druckfunktion für eine gesamte Arbeitsmappe deaktiviert werden. Damit kann kein Tabellenblatt ausgedruckt werden. Der Druckversuch wird mit einer entsprechenden Meldung quittiert.

Dieser Code muss in den Container "Diese Arbeitsmappe" eingefügt werden.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "In dieser Arbeitsmappe darf nicht gedruckt werden!", vbCritical
End Sub