Verrouiller 21 feuilles sur les 25 que comprend le fichier

Bonjour à tous,

J'aimerais savoir s'il est possible et comment faire pour verrouiller un certains nombres de feuilles sur un fichier.

Merci par avance

Bonsoir,
Un exemple pour le principe.
Cdlt.

Public Sub ProtectWorksheets()
Dim wb As Workbook, ws As Worksheet
    Set wb = ActiveWorkbook
    For Each ws In wb.Worksheets
        Select Case ws.Name
            Case "Sheet1", "Sheet2", "Sheet3", "Sheet4":
            Case Else: ws.Protect
        End Select
    Next ws
End Sub

un grand merci