Hallo Experten

Ich habe diesen Code damit alle Tabellenblätter geschützt werden.

Sub BlattSchutzEin()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect "Test" 'Kennwort anpassen, in Anführungszeichen
Next i
End Sub

Wie müsste der Code aussehen wenn ich einige Tabellenblätter davon ausnehmen will, also das einige nicht geschützt werden.
Vielen Dank für eure Unterstützung.

LG