Verouillage conditionnel
DADIBA
Messages postés
2
Statut
Membre
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 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.
A voir également:
- Verouillage conditionnel
- Mise en forme conditionnel - Guide
- Verouillage clavier - Guide
- Excel menu déroulant conditionnel - Guide
- Code de verouillage - Guide
- Publipostage conditionnel plusieurs lignes ✓ - Forum Word
2 réponses
Bonsoir
peut être un format conditionnel et des styles définis
si cellule vide style "non verrouillé" sinon "verrouillé"
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 :
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
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
La difficulté,c'est que je sais pas comment écrire la formule.
Un exemple m'aurais grandement facilité la tache.