Verrouiller les cellules jaunes dans planning

Fermé
mgrizzly Messages postés 17 Date d'inscription vendredi 1 mai 2009 Statut Membre Dernière intervention 8 mai 2010 - 6 mai 2009 à 10:00
Bonjour,
J'ai créé un planning sous excel où les jour fériés ainsi que les weekend se colorent en jaune.
Pour verrouiller les cellules jaunes j'ai fait ce code en VBA :

Sub Verrouiller() ' verrouiller les cellules de couleur jaune

Dim x As Integer
Dim n As Range

For x = 1 To Worksheets.Count
Sheets(x).Unprotect
For Each n In Worksheets(x).[F4:L34]
If n.Interior.ColorIndex = 6 Then
n.Locked = True
End If
Next
Sheets(x).Protect
Next

End Sub

Mais avec ce code le programme verrouille pas seulement les cellules jaune du mois en cours mais aussi celle
qui étaient jaune les mois d'avant où celles qui le seront dans les mois après.
Comment faire pour verrouiller seulement celles du mois en cours.

Merci d'avance pour votre aide.