Protégée avant aujourd'hui ?

**Nounours1** · 03/11/2012, 15h17

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** · 03/11/2012, 16h59

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** · 03/11/2012, 17h08

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** · 03/11/2012, 17h11

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** · 03/11/2012, 17h22

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** · 03/11/2012, 17h24

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** · 03/11/2012, 19h17

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** · 03/11/2012, 19h49

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.

**Daniel.C** · 03/11/2012, 20h27

Si je duplique ma feuille et que je renomme le code va suivre ?

Non, il faut changer le nom de la feuille ou faire une boucle sur les feuilles si plusieurs sont concernées :

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
19
20
Private Sub Workbook_Open()
    Dim C As Range, Feuilles As Variant
    Feuilles = Array("Feuil5", "Feuil6")
    For Each Sh In Feuilles
        With Sheets(Sh)
            .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
    Next Sh
End Sub

**Nounours1** · 03/11/2012, 20h49

Je ne m'en sort pas.

ça ne fonctionne pas je dois passer à coté de quelque chose.

@+ et encore merci

**Daniel.C** · 03/11/2012, 20h54

Le plus simple : mets ton classeur - sans données confidentielles - en pièce jointe en indiquant quelle feuille tu veux protéger.

**Nounours1** · 03/11/2012, 21h07

Daniel.xlsx

Je vais dupliquer cette feuille puis le renommée plusieurs fois, il faut protéger toutes les cellules avant aujourd'hui des colonnes E,G,I,K le reste est déjà protégés par défaut, mais dans les mêmes colonnes laisser libre à partir d'aujourd'hui vers les dates futures pour saisir des données.

Merci.

**Daniel.C** · 03/11/2012, 22h20

A protéger avant le 3/11/2012 toute la feuille sauf les colonnes E,G,I,K >= aujourd'hui

Je ne comprends pas. Je protège toutes les cellules de la ligne 1 à 307 mais que faut-il faire de particulier pour les colonnes E,G,I,K ? Peux-tu donner un exemple ?

**Nounours1** · 04/11/2012, 12h03

Au départ et par défaut toute ma feuille est protégée sauf les colonnes E,G,I,K
Je vais noter dans ces cellules des infos toute l'année"colonnes E,G,I,K" uniquement, mais une fois passé le jour qui est dans la colonne "C" je voudrais que les cellules des colonnes E,G,I,K soient verrouillées pour ne pas annuler par erreur c'est données saisie depuis le 1er Janvier de l'année en cours.

A partir du jour J vers le futur donc à partir de demain "vers le bas de la feuille" les cellules de ces colonnes devront être libre pour saisir de nouveau.
<AUJOURDHUI() on protége
Merci.

Bonjour,

Pas de solution ?

Je vais poster ma question autrement.

Encore merci pour ton aide
Bon dimanche.

@+

**Daniel.C** · 04/11/2012, 12h42

Hé ! tu te lèves de bonne heure pour un dimanche

J'ai maintenant compris ce que tu veux.

**Nounours1** · 04/11/2012, 12h45

Bonjour,

Je joins de nouveau un classeur exemple pour trouver une solution

à chaque fois que j'ouvre le classeur si la date en C est égale à ce jour alors on protège toutes les cellules des colonnes concernées avant aujourd'hui.

Le reste de la feuille est déjà protégée.

Merci.
Essaiprotége1.xlsx

Bon dimanche.

Oui tu sais nous les paysans on n'est des durs à cuire

Bon dimanche à toi et merci.

**Daniel.C** · 04/11/2012, 13h03

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
    Dim C As Range, Plage As Range
    With Sheets("Feuil1")
        .Unprotect "AZ"
        .Cells.Locked = True
        Set Plage = Union(.[E:E], .[G:G], .[I:I], .[K:K])
        Plage.Locked = False
        For Each C In Plage.SpecialCells(xlCellTypeConstants)
            If C.Value < Date Then C.Locked = True
        Next C
        .Protect "AZ"
        .EnableSelection = xlUnlockedCells
    End With
End Sub

**Nounours1** · 04/11/2012, 13h14

Daniel, tu peux faire un essai sur dernier classeur joint ?

Je ne comprends pas ça ne fonctionne pas.

Merci.

**Daniel.C** · 04/11/2012, 13h30

Je ne comprends pas ça ne fonctionne pas.

Ben non, si tu changes les colonnes...
Je ne comprends pas ça ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
    Dim Ligne As Long
    With Sheets("Feuil1")
        .Unprotect "AZ"
        Ligne = Application.Match(Date * 1, .[C:C], 0) - 1
        .Range("1:" & Ligne).Locked = True
        .Range(.[D1], .Cells(Ligne, 7)).Locked = True
        .Protect "AZ"
        .EnableSelection = xlUnlockedCells
    End With
End Sub

**Nounours1** · 04/11/2012, 13h40

Même en changeant les colonnes dans le code il ne ce passe rien c'est plutôt étrange

Je met bien le code sur le VBA de ma feuille , j'ai même fais un essai sur le classeur, mais rien ne ce passe.

Tu peux faire un essai sur mon classeur puis me le renvoyer si ça va ?

Protégée avant aujourd'hui ? [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager