Discussion :

[Nounours1]

Bonjour à tous,

Voilà mon problème, ma feuille est protégée avec un mot de passe "AZ" et avec non sélection des cellules verrouillées sauf pour les colonnes E,G,I,K

sur la colonne "C" j'ai les dates de toutes l'année en cours
Je voudrais protéger 100 % des cellules s'en pouvoir les sélectionner à condition que les dates en colonne "C" soit inférieure à aujourd'hui.

Je pense que vu les tracks qu'il y a ici ça doit être possible !

Merci d'avance.
A bientôt.

[patricktoulon]

bonjour

ca te bloque toute les cellule qui n'ont pas la date dans la plage a1z200

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub protection_hors_date()
    Sheets(1).Unprotect
 
    MsgBox Date
    datetoday = Date
    For Each cel In Sheets(1).Range("a1:z200")
        If cel = datetoday Then
            cel.Locked = False
        Else
            cel.Locked = True
        End If
    Next
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

au plaisir

[Daniel.C]

Bonjour,

Pour les colonnes E, G, I, K :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Workbook_Open()
    Dim C As Range
    With Sheets("Feuil5")
        .Unprotect "AZ"
        .Cells.Locked = True
        For Each C In .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
            If C.Value < Date Then
                '.Cells(C.Row, 7).Cells(C.Row, 9).Cells(C.Row, 11))
                .Cells(C.Row, 5).Locked = False
                .Cells(C.Row, 7).Locked = False
                .Cells(C.Row, 9).Locked = False
                .Cells(C.Row, 11).Locked = False
            End If
        Next C
        .Protect "AZ"
        .EnableSelection = xlUnlockedCells
    End With
End Sub

[Nounours1]

Bonjour Patrick,

ça ne fonctionne pas je pense que cela vient de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(1).Unprotect

Ma feuille ne porte pas ce nom, je me demande si je renomme celle-ci comment le code va fonctionner ?
Ma feuille sera dupliquée avec changement de nom.
Encore merci

[patricktoulon]

bonjour

jen'est pas précisé mais oui il faut que tu mette le nom de ton sheets a ala place bien sur

la version de daniel est parfaite aussi que je salut au passage

mais attention il te faut mettre un mot de passe aussi sur le projet vba en entier
sinon un petit malin clique sur le mode "creation" et peut changer le code dans l'editeur vba voir meme récupérer celui en cours

aun plaisir

[Nounours1]

Daniel ça ne fonctionne pas j'ai créé un nouveau classeur avec les dates en colonne "C" la colonne E est bien dérouillée mais avant la date d’aujourd’hui
alors qu'il faudrait qu'elle soit protégée.

Encore merci.

[Daniel.C]

Oups, j'ai considéré que les dates étaient en colonne A :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_Open()
    Dim C As Range
    With Sheets("Feuil5")
        .Unprotect "AZ"
        .Cells.Locked = True
        For Each C In .Range(.[C1], .Cells(.Rows.Count, 3).End(xlUp))
            If C.Value < Date Then
                .Cells(C.Row, 5).Locked = False
                .Cells(C.Row, 7).Locked = False
                .Cells(C.Row, 9).Locked = False
                .Cells(C.Row, 11).Locked = False
            End If
        Next C
        .Protect "AZ"
        .EnableSelection = xlUnlockedCells
    End With
End Sub

[Nounours1]

Merci Daniel,

J'ai du changer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

< Date

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

>= Date

Sinon le jour même n'était pas accessible.
Si je duplique ma feuille et que je renomme le code va suivre ?

Merci et bonne soirée.