Vérouillage de cellules avec formules

Bonjour

pouvez vous m'indiquer comment verrouiller les cellules qui contiennent des formules ? (sans forcement les sélectionner)

Merci

bonjour

1) sélection des cellules que vous souhaiter être modifiable par la suite

2) clic droit : format de cellule

3) aller dans l'onglet protection et décocher la case : verrouillée

4) dans le ruban révision cliquer sur protéger la feuille vous pouvez mettre un mot de passe si vous le souhaiter mais sachant que les mots de passe d'excel sont très facilement contournable pour une personne plus ou moins expérimentée....

5) cliquer OK

fini les cellules sont verrouillées elles ne sont plus modifiables

Fred

Sub nana()
Dim rng2 As Range
With Sheets("Feuil3")
.Activate
End With
For Each c In Sheets("Feuil3").UsedRange
If c.HasFormula = True Then
      If Not rng2 Is Nothing Then

            Set rng2 = Union(rng2, c)
        Else
            Set rng2 = c
        End If
End If
Next c
rng2.Select
Selection.Locked = True
End Sub

Merci beaucoup

Bonne continuation