XL 2016 Protéger Plage avec condition

TooFatBoy à dit:

Désolé, la macro que je venais de poster ne correspondait pas exactement à ce que je voulais te proposer.

Celle-ci semble faire ce que je voulais te proposer (à tester) :

VB:

Private Sub Worksheet_Activate()
'
Dim MaxLig As Long
Dim MaxCol As Integer, MaColonne As Integer

    ActiveSheet.Protect UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=Monpass

    Set f1 = Sheets("Année")
    MaxLig = f1.Range("A9").End(xlDown).Row
    MaxCol = f1.Cells(8, Columns.Count).End(xlToLeft).Column

    On Error GoTo PasTrouve
    MaColonne = Application.Match(CDbl(Date), f1.Range(Cells(8, 3), Cells(8, MaxCol)), 0) + 2

    f1.Range(Cells(9, 3), Cells(MaxLig, MaxCol)).Locked = False
    If MaColonne > 3 Then f1.Range(Cells(9, 3), Cells(MaxLig, MaColonne - 1)).Locked = True
    GoTo Fin

PasTrouve:
    f1.Range(Cells(9, 3), Cells(MaxLig, MaxCol)).Locked = (f1.Range("C8") < Date)

Fin:

End Sub

Théoriquement dans ma proposition il devrait se passer ceci :

- Si la date d'aujourd'hui est trouvée : on déprotège tout le tableau, puis on protège tout ce qui est inférieur à aujourd'hui.

- Si la date d'aujourd'hui n'est pas trouvée : tout le tableau est protégé, ou déprotégé, selon si la première date du tableau (cellule C8) est inférieure, ou non, à la date d'aujourd'hui.

Cliquez pour agrandir...