XL 2019 Verrouiller que si cellules vides

Tioneb_h · 31 Octobre 2022

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 ?

VB:

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 · 31 Octobre 2022

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 :

VB:

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

sylvanu · 31 Octobre 2022

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

VB:

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 · 31 Octobre 2022

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 · 31 Octobre 2022

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 :

VB:

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 · 31 Octobre 2022

sylvanu à dit:
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 :

VB:

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

XL 2019 Verrouiller que si cellules vides

Tioneb_h

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Tioneb_h

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Tioneb_h

XLDnaute Nouveau

Discussions similaires