Repérer les cellules déverouillées

Bonjour le forum,

J'ai besoin de votre aide...

Je vous expose mon problème. J'ai créé une base de données sous Excel. La feuille est protégée l'utilisateur peut uniquement sélectionner ou non certaines données, en affichant "OK" dans la colonne J (ces cellules sont donc déverrouillées). J'aimerais trouver un code VBA afin de repérer toutes les cellules déverrouillées (les sélectionnées ou désélectionnées en une seule fois).

Je vous joins le fichier pour plus de clarté.

Code de déverrouillage de la feuille "Toto"

Merci pour votre aide

Bonjour,

Sub EffacerCellules()
    Dim cc As Range, c As Range
    With Worksheets("Base de donnees")
        For Each c In .UsedRange
            If Not c.Locked Then
                If Not cc Is Nothing Then
                    Set cc = Union(cc, c)
                Else
                    Set cc = c
                End If
            End If
        Next c
    End With
    cc.ClearContents
End Sub

Bonjour,

Merci pour votre réponse.

Lorsque que j'intègre votre code, il fonctionne mais pourriez vous me l'expliquer afin que je puisse l'adapter au mieux.

Merci beaucoup

Rien de subtil ! On parcourt les cellules de la feuilles et on regroupe celles qui sont non verrouillées dans une variable plage, à laquelle on applique l'action d'effacer le contenu...

Cordialement.

Hellsoir,

Juste pour info, il existe une formule excel qui peut donner la valeur de verrouillage :