Blattschutz für alle Sheets ohne 2 bestimmte
Pascal
In einer Excel-Arbeitsmappe hab ich im Workbook - Open drin folgenden Code um alle Tabellenblätter mittels einem Blattschutz zu versehen:
Public Sub Workbook_Open()
Dim pw As Variant, B As Boolean
B = Sheets(1).ProtectContents
pw = "test-password"
For Each Ws In ThisWorkbook.Worksheets
Ws.Protect Passwort
Next Ws
End Sub
wie kann ich bewirken, dass dieser Blattschutz (mit Password) auf alle Tabellenblätter mit Ausnahme zweier Tabellenblätter "Tabelle1" und "Tabelle4" gesetzt wird ?
Besten Dank für die Tips