Protection cellule sur excel

Bonjour,

une idée sans protéger la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static pl As Range, plSav As Range
    If Target.Address = "$A$1" Then Set plSav = Target: Exit Sub
    Set pl = Nothing
    Application.EnableEvents = False
    On Error Resume Next
    Set pl = Union([A1], Target).SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    If pl Is Nothing Then
        Set plSav = Target
    Else
        If plSav Is Nothing Then [A1].Select Else plSav.Select
    End If
    Application.EnableEvents = True
End Sub

si une formule est sélectionnée, retour à l'ancienne sélection. Impossible de modifier les formules.
Il y a une petite cuisine avec A1 (ou toute autre cellule sans formule !).
SpecialCells ne supporte pas une sélection d'une seule cellule, j'y ajoute donc A1 d'office.
eric

Bonjour Raymond,
C'est exactement cela.
Est ce possible par d'autre moyens?
dans l'attente,
Cordialement

Bonjour,
Non, tu es obligé de protéger la feuille

Ce que tu fais, tu sélectionnes toute la feuille
Clic droit --> format de cellule
Onglet Protection --> Cliquez pour cochez "Verrouillée" --> OK
Ensuite, sélection des cellules à ne pas protégées et idem clic droit pour décochez "Verrouillée"
Menu Révision --> Protéger la feuille (avec ou sans MdP)
Tu peut décocher "Sélectionner les cellules verrouillées"

Tu ne pourras plus aller sur les cellules verrouillées sans ôter la protection