Atteindre les cellules protégés

Bonjour,

Voici une approche en VBA.

Copiez le code suivant dans un module standard
'**********
Sub ProtegeSelect()
Dim C As Range
Dim U As Range
For Each C In ActiveSheet.UsedRange
If C.Locked Then
If U Is Nothing Then
Set U = C
Else
Set U = Union(U, C)
End If
End If
Next C
U.Select
End Sub
'_________________________
Sub NonProtegeSelect()
Dim C As Range
Dim U As Range
For Each C In ActiveSheet.UsedRange
If Not C.Locked Then
If U Is Nothing Then
Set U = C
Else
Set U = Union(U, C)
End If
End If
Next C
U.Select
End Sub
'**********

Comme leur nom l'indique
1) ProtegeSelect sélectionne les cellules protégées.
2) NonProtegeSelect sélectionne les cellules non protégées.

Cordialement.
--
PMO
Patrick Morange

Bonjour,
Est il possible de selectionner les seules cellues protégées ou non
protégées commes il possible d'atteindre les cellules contenant une
formules (Edition/ atteindre / cellules)
Merci et à +