Verouillage conditionnel
DADIBA
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 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
- Format conditionnel excel - Guide
- Verouillage clavier - Guide
- Excel menu déroulant conditionnel - Guide
- Comment verrouiller son clavier d'ordinateur ✓ - Forum Clavier
- J'aimerais verrouiller mon clavier. Comment faire ? ✓ - Forum Windows
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.