Protéger cellule en fonction d'une autre cellule.

[alexandre33260]

Bonjour, encore un petit casse tête pour les Pro de la Macro...
Sur le fichier joint, tout est expliqué...
Je souhaite protéger une cellule si la date qui est écrite dans sa cellule voisine n'est pas encore révolue.
Sur mon exemple, je suis sur 10 cellules (dates) en fait, le fichier final devrait avoir 50 cellules (dates).
Merci pour votre aide.

 

[eriiic]

Re : Protéger cellule en fonction d'une autre cellule.

Bonjour,

A essayer, dans ThisWorkbook :

Private Sub Workbook_Open()    Dim lig As Long
    With Sheets("Feuil1")
        On Error GoTo fin ' toutes les dates sont supérieures
        lig = Application.Match(CLng(Date), .[A:A], 1)
        On Error GoTo 0
        .[B3].Resize(lig - 2).Locked = True
    End With
fin:
End Sub

- 2 car tes données commencent en ligne 2 sur ton exemple.

eric