Über eine Antwort eurer Seits würde ich mich freuen.
Danke für eure Hilfe!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim pw As String
pw = InputBox("Passwort:", "Passwort")
If pw <> "Hans" Then Cancel = True
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Tabelle1" Then Cancel = True
End Sub