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
Anzeige