XL 2010 verrouiller cellule sur date définie

mix770

XLDnaute Impliqué
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
 

Pièces jointes

  • test cout denrées.xlsx
    255.3 KB · Affichages: 8

mix770

XLDnaute Impliqué
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

XLDnaute Impliqué
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

XLDnaute Impliqué
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
 

Discussions similaires

Statistiques des forums

Discussions
311 705
Messages
2 081 733
Membres
101 807
dernier inscrit
foued