Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Vérrouillage selon une date

Vérrouillage selon une date

2 réponses
Avatar
Cath
Bonjour,

Je me suis promené sur tout le forum mais je n'ai pas réussi à trouver une
solution à mon problème.

J'ai une colonne A qui est des dates jj/mm/aa
Si cette date est inférieur au mois en cours je dois vérouiller la ligne de
A à F.

voilà d'ou je pars, merci de votre aide sachant que j'ai la version Excel
2000

Private Sub Worksheet_Change(ByVal zz As Range)

If zz.Locked = False Then
ActiveSheet.Unprotect "toto"
zz.Locked = True
ActiveSheet.Protect "toto"
End If

End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Sortie du four sans trop de tests :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo YaUnOs
Select Case Month(Target.Value)
Case Is > Month(today)
Exit Sub
Case Is < Month(today)
End Select
If Target.Locked = False Then
Me.Unprotect "toto"
Range("A" & Target.Row & ":F" & Target.Row).Locked = True
Me.Protect "toto"
End If
Exit Sub

YaUnOs:
MsgBox "erreur dans la saisie des dates sur la colonne A", vbInformation,
"Arrêt"
Exit Sub

End Sub

Cordialement
Pascal


"Cath" a écrit dans le message de news:

Bonjour,

Je me suis promené sur tout le forum mais je n'ai pas réussi à trouver une
solution à mon problème.

J'ai une colonne A qui est des dates jj/mm/aa
Si cette date est inférieur au mois en cours je dois vérouiller la ligne
de
A à F.

voilà d'ou je pars, merci de votre aide sachant que j'ai la version Excel
2000

Private Sub Worksheet_Change(ByVal zz As Range)

If zz.Locked = False Then
ActiveSheet.Unprotect "toto"
zz.Locked = True
ActiveSheet.Protect "toto"
End If

End Sub


Avatar
papou
Bon je savais bien que j'avais été un peu vite (!), à modifier comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo YaUnOs
Select Case Month(Target.Value)
Case Is > Month(today)
Exit Sub
Case Is < Month(today)
If Target.Locked = False Then
Me.Unprotect "toto"
Range("A" & Target.Row & ":F" & Target.Row).Locked = True
Me.Protect "toto"
End If
End Select
Exit Sub

YaUnOs:
MsgBox "erreur dans la saisie des dates sur la colonne A", vbInformation,
"Arrêt"
Exit Sub

End Sub
"papou" <cestpasbon@çanonplus> a écrit dans le message de news:

Bonjour
Sortie du four sans trop de tests :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo YaUnOs
Select Case Month(Target.Value)
Case Is > Month(today)
Exit Sub
Case Is < Month(today)
End Select
If Target.Locked = False Then
Me.Unprotect "toto"
Range("A" & Target.Row & ":F" & Target.Row).Locked = True
Me.Protect "toto"
End If
Exit Sub

YaUnOs:
MsgBox "erreur dans la saisie des dates sur la colonne A", vbInformation,
"Arrêt"
Exit Sub

End Sub

Cordialement
Pascal


"Cath" a écrit dans le message de news:

Bonjour,

Je me suis promené sur tout le forum mais je n'ai pas réussi à trouver
une
solution à mon problème.

J'ai une colonne A qui est des dates jj/mm/aa
Si cette date est inférieur au mois en cours je dois vérouiller la ligne
de
A à F.

voilà d'ou je pars, merci de votre aide sachant que j'ai la version
Excel
2000

Private Sub Worksheet_Change(ByVal zz As Range)

If zz.Locked = False Then
ActiveSheet.Unprotect "toto"
zz.Locked = True
ActiveSheet.Protect "toto"
End If

End Sub