Bloquer une cellule après y avoir entrée une donnée
Résolu
bel.lor
Messages postés
3
Statut
Membre
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je ne sais pas si Excel a cette fonctionnalité. Je m'explique, dans une feuille partagée, je souhaite bloqué une cellule dès qu'un texte ou mot est écrit. Donc lorsque l'utilisateur sort de la cellule il ne peut revenir pour y apporter des changements. Est-ce possible . Merci de votre aide.
Je ne sais pas si Excel a cette fonctionnalité. Je m'explique, dans une feuille partagée, je souhaite bloqué une cellule dès qu'un texte ou mot est écrit. Donc lorsque l'utilisateur sort de la cellule il ne peut revenir pour y apporter des changements. Est-ce possible . Merci de votre aide.
3 réponses
-
Bonsoir,
Oui c'est tout à fait possible mais en VBA uniquement si tu as quelques notions
-
Re,
exemple tu veux contrôler la plage B6:P40
commence par sélectionner la plage B6:P40/clic droit/Format de cellule/onglet Protection/décoche Déverrouillée
ensuite il faut protéger la feuille, et pour que la déprotection ne se fasse pas d'un simple clic je te conseille la protection avec mot de passe "ATTENTION DE NE PAS L'OUBLIER"
dans le code j'ai prévu open comme mot de passe, donc soit tu changes ce mot de passe par celui utilisé lorsque tu protégeras ta feuille, soit tu protège ta feuille avec mon mot de passe open respecte également les majuscules et minuscules
clic droit sur l'onglet de ta feuille/Visualiser le code/coller le code ci dessousPrivate Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Selection, Range("B6:P40")) Is Nothing Then
If Target <> "" Or Target.Interior.ColorIndex <> xlNone Then
ActiveSheet.Unprotect Password:="open"
Target.Locked = True
ActiveSheet.Protect Password:="open"
End If
End If
End Sub
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre. -
Re,
Alors je passe le statut de la discussion en résolu
dans mon code j'ai laissé trainer un contrôle qui testait la couleur de la cellule et donc inutile, supprime ce bout de codeOr Target.Interior.ColorIndex <> xlNone
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
