Hallo zusammen,
wie könnte man den unten stehenden Code so optimieren, das der Schutz nur auf bestimmte Sheets angewendet wird?
Bsp.
Tabelle1 - soll geschützt werden
Tabelle2 - soll nicht geschützt werden
Tabelle3 - soll nicht geschützt werden
Tabelle4 - soll geschützt werden
Private Sub Workbook_Open()
Dim myWorksheet As Worksheet
For Each myWorksheet In ThisWorkbook.Worksheets
myWorksheet.Protect Password:="xxx", UserInterFaceOnly:=True
Next
Vielen dank für die Hilfe.