Blattschutz

Sub Blattschutz_ein()
Dim Blatt As Worksheet
For Each Blatt In Worksheets
Blatt.Protect "test"
Next Blatt
End Sub

Wie muss man dieses Makro ändern, damit alle Blätter/Mappen bis auf eins mit Blattschutz aktiviert werden?
z.B.: alle Mappen außer "TEST"
Gruß Andreas