Beskytte flere ark samtidig

Hej

Jeg har en masse ark, som jeg har beskyttet, men når der skal laves ændringer i dem er det lidt langhåret at skulle fjerne arkbeskyttelsen en af gangen.

Jeg har nedenstående kode, som fungerer fint og i øvrigt er "lånt" fra et andet lignende indlæg. Min udfordring er bare, at jeg har et par ark, som ikke skal beskyttes. Kan der laves en kode til det?

Sub UBeskyt_ark()
With ActiveWorkbook
    For Each ws In ActiveWorkbook.Worksheets
        ActiveWorkbook.Sheets(ws.Name).Unprotect Password:="password"
    Next
End With
End Sub

Sub Beskyt_ark()
With ActiveWorkbook
    For Each ws In ActiveWorkbook.Worksheets
        ActiveWorkbook.Sheets(ws.Name).Protect Password:="password"
    Next
End With
End Sub

På forhånd tak.

Vh CHC