Optimieren von Workbook_BeforePrint
12.04.2005 11:55:02
Workbook_BeforePrint
ich möchte das Ausdrucken von Tabellenblättern (Tabelle1 - Tabelle12) in einer Datei verhindern. Mit Hilfe dieses Forum habe ich zusammengebastelt:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
Dim Username As Integer
If Application.Username <> "Mustermann" Then
For Each ws In ThisWorkbook.Worksheets
MsgBox ("Die Datenblätter können nicht ausgedruckt werden!"), vbOKOnly
Cancel = True
Next ws
Else
End If
End Sub
Dieser Code hat den Nachteil, daß der User 12 mal die MsgBox wegdrücken muß, wenn er z.B. in Tabelle1 stehend, den Print-Button gedrückt hat. Wie muß
der Code geändert werden, daß der User nur noch 1 mal die MsgBox erhält?
Ich möchte aber auch vermeiden, jedes WS einzeln in den Code einzubinden. Gibt es hier alternative Möglichkeiten?
Vielen Dank für Eure Tips im voraus.
Gruß
Torsten