Sujet Précédent Sujet Suivant

Verouillage conditionnel

Fermé
DADIBA Messages postés 2 Date d'inscription jeudi 14 septembre 2017 Statut Membre Dernière intervention 14 septembre 2017 - Modifié le 14 sept. 2017 à 18:46
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 14 sept. 2017 à 19:32
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.

2 réponses

Réponse 1 / 2
yclik Messages postés 3593 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 24 avril 2024 1 481
14 sept. 2017 à 18:46
Bonsoir
peut être un format conditionnel et des styles définis

si cellule vide style "non verrouillé" sinon "verrouillé"
0
DADIBA Messages postés 2 Date d'inscription jeudi 14 septembre 2017 Statut Membre Dernière intervention 14 septembre 2017
14 sept. 2017 à 18:51
Bien reçu et merci
La difficulté,c'est que je sais pas comment écrire la formule.
Un exemple m'aurais grandement facilité la tache.
0
Réponse 2 / 2
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié le 14 sept. 2017 à 19:34
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
0

Discussions similaires

Publipostage - regroupement plusieurs lignes
nat62162 -
Sniper_125 -

2 réponses
remplissage automatique d'une case si une conditions est remplie
secutor08 -
via55 -

4 réponses
[Access] champ calculé avec condition
euskal75 -
blux -

4 réponses
Liste à choix multiple conditionnelle
julien94000 -
Raymond PENTIER -

4 réponses
Afficher smiley de couleur en fonction de valeur de cellule
Kikochikitin -
Stephanie -

9 réponses