verouillage d'une colonne après une date précise

Lipadec à dit:

Salut les amis
Si vous pouvez m'aider à résoudre un problèle que voici
Sur une feuille Excel pleine de formules qui fonctionnent à merveille, et sur une des cellules de la colonne A, il y a une date, exemple 31/01/2006. Je voudrai que si la date d'aujourd'hui est supérieure à la date du 31/01/2006, je ne peux plus rectifier les cellules de la colonne A, disons je voudrai vérouiller cette colone A après la date du 31/01/2006
Merci de votre aide
lipadec@hotmail.com

Cliquez pour agrandir...

Private Sub Workbook_Open()
Dim X As Integer
 
Sheets("F1").Activate
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
For X = 1 To Range("IV2").End(xlToLeft).Column
    If IsDate(Cells(2, X)) Then
        If Cells(2, X) < Date Then Columns(X).Locked = True
    End If
Next X
ActiveSheet.Protect
End Sub

malcy45 à dit:

bonsoir gorfael et lipadec,
interessé par le fil, je me suis empressé de suivre tes conseils et je tombe sur une erreur apres enregistrement :

ca bloque la : ActiveSheet.Protect a l'activation des macros
a toi de nous dire
merci
bonne soirée
rémi

Cliquez pour agrandir...

Gorfael à dit:

Salut
Tu peux expliquer ce qui se passe, parce que chez moi, je n'ai aucun problème.
Mets ta macro en intégralité sur un poste pour que je puisse l'essayer
A+

Cliquez pour agrandir...

Lipadec à dit:

Bonjour Gorfael et merci de ton aide, mais je n'ai pas pu avoir de bons résultats. J'ai la date sur la ligne 25 des colonnes B à M.
Tu peux tjs me rectifier cette macro que j'ai apprécié.
Merci d'avance
Lipadec

Cliquez pour agrandir...

[LEFT]Private Sub Workbook_Open()
Dim X As Integer
 
Sheets("F1").Activate
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
For X = 2 To 13
    If IsDate(Cells(2, X)) Then
        If Cells(25, X) < Date Then Columns(X).Locked = True
    End If
Next X
ActiveSheet.Protect
End Sub

Lipadec à dit:

Salut et merci, mais quand j'ai aissayé ton nouveau code ça n'a rien donné et la colonne n'est tjs pas vérouillée
Je t'envoie ci joint un exemple en attachement
amicalement

Cliquez pour agrandir...