Verouilles les feuilles en masse, avec option !

Pour (dé)verouiller en masse toutes les feuilles d'un classeur, j'utilise

Sub Protection(Verrouille As Boolean)
Dim F As Worksheet
For Each F In Worksheets
If Verrouille Then
F.Protect Password:='tutu'
Else
F.Unprotect Password:='tutu'
End If
Next F
End Sub

avec comme commande:

Sub VerrouilleFeuilles()
Protection True
Application.ScreenUpdating = True
MsgBox 'Les feuilles sont protegées!', vbCritical, 'Attention!!'
End Sub

et

Sub DeverrouilleFeuilles()
Protection False
End Sub

Maintenant la question: comment faire pour avoir toutes les feuilles vérouillées avec seulement l'option 'Sélectionner les cellules déverouillées' et pas les autres ?

Merci pour tout aide,
Mi