XL 2019 Verrouiller que si cellules vides

[Tioneb_h]

Bonjour,

Je voudrais verrouiller les cellules que si elles sont vides...
La macro verrouille bien les cellules vides mais déverrouille également les cellules non vides et verrouillées...
voir pièce jointe.
quelqu’un peut m'aider ?

Sub Verrouille()
  
Dim Cel As Range
Dim Plage As Range
Dim Mg As String, TB
    With Sheets("METRE")
        Set Plage = .Range("A1:J20")
       .Unprotect
        For Each Cel In Plage
            Mg = Cel.MergeArea.Address
            TB = Split(Mg, ":")
                If .Range(TB(0)).Value <> "" Then
                .Range(Mg).Locked = False
            Else
                .Range(Mg).Locked = True
            End If
        Next Cel
        .Protect
    End With
End Sub

Merci d'avance,
Benoît

 

[sylvanu]

Bonjour Tioneb,
Peut être en rajoutant une condition, on déverrouille que si cellule non vide et non verrouillée.

Sub Verrouille()
Dim Cel As Range
Dim Plage As Range
Dim Mg As String, TB
    With Sheets("METRE")
        Set Plage = .Range("A1:J20")
       .Unprotect
        For Each Cel In Plage
            Mg = Cel.MergeArea.Address
            TB = Split(Mg, ":")
            If .Range(TB(0)).Value <> "" Then
                If .Range(Mg).Locked = False Then .Range(Mg).Locked = True
            Else
                .Range(Mg).Locked = True
            End If
        Next Cel
        .Protect
    End With
End Sub

 

[Tioneb_h]

Salut sylvanu,

merci... pour ton retour

j'ai juste changer : If .Range(Mg).Locked = False True Then .Range(Mg).Locked = True

ça fonctionne pour ce que je voulais faire

Benoît

 

[sylvanu]

Donc pour les cellules non vides si True alors True, donc si False alors false, donc le mieux est de ne pas toucher aux cellules non vides :

Sub Verrouille()
Dim Cel As Range
Dim Plage As Range
Dim Mg As String, TB
    With Sheets("METRE")
        Set Plage = .Range("A1:J20")
       .Unprotect
        For Each Cel In Plage
            Mg = Cel.MergeArea.Address
            TB = Split(Mg, ":")
            If .Range(TB(0)).Value = "" Then .Range(Mg).Locked = True
        Next Cel
        .Protect
    End With
End Sub

 

[Tioneb_h]

Donc pour les cellules non vides si True alors True, donc si False alors false, donc le mieux est de ne pas toucher aux cellules non vides :

Sub Verrouille()
Dim Cel As Range
Dim Plage As Range
Dim Mg As String, TB
    With Sheets("METRE")
        Set Plage = .Range("A1:J20")
       .Unprotect
        For Each Cel In Plage
            Mg = Cel.MergeArea.Address
            TB = Split(Mg, ":")
            If .Range(TB(0)).Value = "" Then .Range(Mg).Locked = True
        Next Cel
        .Protect
    End With
End Sub

tiptop merci