Alle Blätter schützen, außer eines

habe folgenden Code in "Diese Arbeitsmappe":
Private Sub Workbook_Open()
Dim Arbeitsblatt As Worksheet
Application.ScreenUpdating = False
For Each Arbeitsblatt In Worksheets
Arbeitsblatt.Protect Password:="orga", UserInterfaceOnly:=True
Next Arbeitsblatt
End Sub

Möchte nun nicht alle, sondern alle außer ein Blatt "Test" schützen. Frage: wie ist das am besten möglich...?

Danke für die Hilfe...