Druck Tabellenblatt unterbinden
28.10.2021 10:52:06
Daniel
ich würde gerne den Druck bestimmter Tabellenblätter unterbinden.
Im Netzt habe ich das untenstehende Skript gefunden.
Doch leider erhalte ich hier eine Fehlermeldung, das die Variable "xWs" nicht deklariert wurde.
Ich hatte dann versucht diese als String anzugeben. Daraufhin erhielt ich eine andere Meldung
das die Steuervariable für For Each vom Typ Variant oder Object sein muss.
Kann mir jemand weiterhelfen?
Besten Dank im Voraus.
Viele Grüße
Daniel
Hier das verwendete Skript:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim WsName As String
WsName = "2021-02-05"
For Each xWs In Application.ActiveWorkbook.Windows(1).SelectedSheets
If xWs.Name = WsName Then
MsgBox ("You can not print this worksheet")
Cancel = True
End If
Next
End Sub
Anzeige
