Verouillage conditionnel
DADIBA
Messages postés
2
Statut
Membre
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'aimerais donner accès a quiconque de remplir les cellules vides de ma base de donnée excel, mais en même temps, interdit a quiconque d'effacer les données une fois écrire. En résumé, pour effacer une écriture il faut passer une autre écriture.
J'aimerais donner accès a quiconque de remplir les cellules vides de ma base de donnée excel, mais en même temps, interdit a quiconque d'effacer les données une fois écrire. En résumé, pour effacer une écriture il faut passer une autre écriture.
2 réponses
-
Bonsoir
peut être un format conditionnel et des styles définis
si cellule vide style "non verrouillé" sinon "verrouillé" -
Bonjour,
par une validation je ne vois pas.
Avec un petit code :Private Sub Worksheet_Change(ByVal Target As Range) Dim v If Not Intersect(Target, Union([A2:B10], [E2:F10])) Is Nothing Then v = Target.Formula Application.EnableEvents = False Application.Undo If Target = "" Then Target.Formula = v ElseIf InputBox("mot de passe") = "cmoi" Then Target.Formula = v End If End If Application.EnableEvents = True End Sub
https://www.cjoint.com/c/GIorGTr42Xy
Si c'est pour toute la feuille enlève le If Not Intersect...
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
