Recherche de cellules verrouillées

Bonjour,

Quelqu'un serait s'il y a un moyen de détecter les cellules verrouillées sur une feuille de calcul ?

Merci d'avance

Bonsoir Tr80 et

Si j'ai bien compris, voici le code

Sub Test()
  Dim Cel As Range, Rng As Range
  Set Rng = Range("A1:E10")
  For Each Cel In Rng
    If Cel.Locked = True Then
      MsgBox "La cellule : " & Cel.Address & " est protégée"
    End If
  Next Cel
End Sub

A+

Bonsoir,

Merci pour cette réponse rapide, j'essaie cela demain.

Cordialement

Bonjour,

La formule fonctionne, néanmoins est-il possible que les cellules se colore en vert par exemple mais non permanent ?

Cordialement

Re,

Les couleurs sont justes là pour visualiser les cellules protégées des non protégées

En aucun cas, j'applique de couleur dans mon code

Sinon en voici un

Sub ColoriageCelluleProtégée()
  Dim Cel As Range, Rng As Range
  Set Rng = Range("A1:E10")
  For Each Cel In Rng
    If Cel.Locked = True Then
      Cel.Interior.Color = 13434828
    Else
      Cel.Interior.Color = xlNone
    End If
  Next Cel
End Sub