XL 2010 verrouiller cellule sur date définie

[mix770]

bonjour le forum,

je reviens vers vous après des recherches sur mon problème.

je souhaitais faire une macro pour verrouiller les cellules en vert à partir du 8 du mois.
pour ce faire je défini une cellule cachée dans laquelle sera inscrit chaque mois la date (ex 8/02/10).
les feuilles sont toutes protégées, la macro fermerai les cellules restantes (en vert) au 8 du mois.

j'ai trouvé sur le forum et je remercie tout ceux qui prennent du temps pour répondre, une macro qui fonctionne, mais je vois pas comment l'adapter à mon cas.
si quelqu'un pouvais m'aider

merci à vous

 

[mix770]

Oupss,

je fatigue !!

avec le code qui est dans la feuille.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C3:BA80")) Is Nothing Then
jour = Cells(2, Target.Column).Value
If Date > jour Then
MsgBox ("Vous ne pouvez pas revenir à une date précedente")
[A1].Select
Exit Sub
End If
End If
End Sub

merci à vous

 

[mix770]

j’essaie de définir les cellules dans cette ligne mais comment séparer les champs ?

If Not Intersect(Target, Range("D10:F13" "D15:F15")) Is Nothing Then

y compris pour la ligne de référence de date

jour = Cells(14, Target.Column = 14).Value

merci à vous

 

[mix770]

re,

en bidouillant ... peut être pas très académique j'ai trouvé !!
dites moi ce que vous en pensez !
merci


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D10:F13, D15:F15, D21:F21, D24:F24, D26:F26, C31:C32, I22:K22, H33")) Is Nothing Then
jour = Cells(14, 14).Value
If Date > jour Then
MsgBox ("La date limite de saisie des éléments est dépassée")
[A1].Select
Exit Sub
End If
End If
End Sub