Makro für drucken

Question

Hallo,

mein beliebtes Thema: Habe 55 Tabellenblätter

53 heißen KW1, KW2 ... KW53
1 heißt UR
1 AR


Benötige ein Code wenn ich eine KW.. öffne und diese drucken tue, soll grundsätzlich die Seite UR als 2. Seite mitgedruckt werden. Also immer, wenn ich eine KW-Seite drucke

und wenn möglich noch einen 2. Code:
Ein Blatt heißt AR und darf nur mit Passwortabfrage gedruckt werden

Answer 1

Hallo Unbekannte(r),

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Left(ActiveSheet.Name, 2) = "KW" Then
Worksheets("UR").PrintOut
ElseIf ActiveSheet.Name = "AR" Then
' Passwortabfrage per UserForm da sonst sichtbar
'If Passwort = Falsch Then Cancel True
End If
End Sub

Gruß Hajo