Verrouillage d'une cellule après saisie
lesmacrospourlesnuls
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Gyrus Messages postés 3360 Statut Membre -
Gyrus Messages postés 3360 Statut Membre -
Bonjour,
J'aimerai que la colonne (en D) date se verrouille automatiquement après la saisi de la date souhaité. J'ai essaye la macro ci-dessous mais ca ne marche pas est ce que quelqu'un peu m'aider?
Sub VEROUCELLULE()
' NB : La protection est associée à un mot de passe : "0000"
'Suppression de la protection de la feuille
ActiveSheet.Unprotect Password:="0000"
'Verrouillage de la cellule qui vient d'être modifiée
' (identifiée par la variable objet de type Range intitulée "Target")
Target.Locked = True
'Remise en place de la protection de la feuille
ActiveSheet.Protect Password:="0000"
End Sub
Merci!
J'aimerai que la colonne (en D) date se verrouille automatiquement après la saisi de la date souhaité. J'ai essaye la macro ci-dessous mais ca ne marche pas est ce que quelqu'un peu m'aider?
Sub VEROUCELLULE()
' NB : La protection est associée à un mot de passe : "0000"
'Suppression de la protection de la feuille
ActiveSheet.Unprotect Password:="0000"
'Verrouillage de la cellule qui vient d'être modifiée
' (identifiée par la variable objet de type Range intitulée "Target")
Target.Locked = True
'Remise en place de la protection de la feuille
ActiveSheet.Protect Password:="0000"
End Sub
Merci!
A voir également:
- Verrouillage d'une cellule après saisie
- Téléphone bloqué code verrouillage - Guide
- Saisie gestuelle iphone - Guide
- Verrouillage clavier - Guide
- Verrouillage cellule excel - Guide
- Comment saisir une adresse url - Guide
2 réponses
Bonjour,
Voici un exemple de code pour verrouiller les cellules de la colonne D lorsque la cellule D1 est modifiée.
Le code est à placer dans le module de la feuille concernée.
A+
Voici un exemple de code pour verrouiller les cellules de la colonne D lorsque la cellule D1 est modifiée.
Le code est à placer dans le module de la feuille concernée.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$D$1" Then
ActiveSheet.Unprotect Password:="0000"
Columns(4).Locked = True
ActiveSheet.Protect Password:="0000"
End If
End Sub
A+
Merci pour ton aide.
Quand j'ai créé la macro et que j'essayer de la lancer j'ai un message d'erreur qui dit argument non facultatif...
Ca veut dire?
Merci
Quand j'ai créé la macro et que j'essayer de la lancer j'ai un message d'erreur qui dit argument non facultatif...
Ca veut dire?
Merci
Tu n'as pas besoin de lancer la macro. Il s'agit d'une procédure évènementielle qui s'exécute automatiquement lorsque la cellule D1 est modifiée.
Tu as bien placé le code dans le module de la feuille concernée ?
Tu peux poster un fichier exemple anonymisé de ton classeur via https://www.cjoint.com/
A+
Tu as bien placé le code dans le module de la feuille concernée ?
Tu peux poster un fichier exemple anonymisé de ton classeur via https://www.cjoint.com/
A+
