Verouilles les feuilles en masse, avec option !

[Mi_]

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

 

[Mi_]

Re coucou,

J'ai trouvé tout seul la solution: il fallait ajouter la ligne en rouge, dans le premier module:

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

Je me remercie beaucoup pour cette gracieuse solution, lol