Microsoft 365 besoin d'aide sur EXCEL - créer un mot de passe pour chaque feuille.

Zizou981 à dit:

Bonjour la team,

je voudrais savoir est ce c'est possible de mettre un mot de passe pour chaque liste qui se trouve sur la liste déroulante, le mot de passe doit être diffèrent de chaque liste a une autre de telle sorte a ce que lorsqu'en sélectionnant la liste a partir du menu, un mot de passe doit être demandé.

Ci-joint l'exemple.

j'espère que mon explication est claire, sinon je serai a votre disposition pour plus d'informations complémentaires.

merci d'avance et bonne journée.

Cliquez pour agrandir...

soan à dit:

Bonjour Zizou,

ton fichier en retour.

je te laisse essayer tes 2 listes déroulantes de C6 et B7.​

formule en C7 :

VB:

=SI(OU(C6="";B7="");"";INDIRECT("Feuil3!" & CAR(CODE(DROITE(C6))+3) & DROITE(B7)+1))

à te lire pour avoir ton avis.

soan

Cliquez pour agrandir...

soan à dit:

@Zizou

voici une autre version du fichier.

* au départ, tu es sur la 1ère feuille "Menu"

* la cellule active est C9 ; y'a aucune formule ; va en C8 : idem ; va en C7 : idem

* va en C6, et choisis un des 3 items de la liste

* regarde aussi ce qui se passe quand tu effaces C6 (touche Suppression)

---

code VBA du Module de Feuil1 :

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim mdp$, L$, cel As Range, k As Byte
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address <> "$C$6" Then Exit Sub
    [C7:C9].ClearContents: L = .Value: If L = "" Then Exit Sub
    mdp = InputBox("Veuillez saisir votre mot de passe :"): If mdp = "" Then Exit Sub
    Set cel = Worksheets("Mot de passe").Columns(1).Find(L, , -4163, 1, 1)
    If cel Is Nothing Then Exit Sub
    If mdp <> cel.Offset(, 1) Then MsgBox "Mot de passe incorrect !", 48: Exit Sub
    k = Asc(Right$(L, 1)) - 61: Application.ScreenUpdating = 0
    Worksheets("Feuil3").Cells(2, k).Resize(3).Copy: [C7].PasteSpecial -4163
    Application.CutCopyMode = 0: [C6].Select
  End With
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

Cliquez pour agrandir...

soan à dit:

@Zizou

voici une autre version du fichier.

* au départ, tu es sur la 1ère feuille "Menu"

* la cellule active est C9 ; y'a aucune formule ; va en C8 : idem ; va en C7 : idem

* va en C6, et choisis un des 3 items de la liste

* regarde aussi ce qui se passe quand tu effaces C6 (touche Suppression)

---

code VBA du Module de Feuil1 :

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim mdp$, L$, cel As Range, k As Byte
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address <> "$C$6" Then Exit Sub
    [C7:C9].ClearContents: L = .Value: If L = "" Then Exit Sub
    mdp = InputBox("Veuillez saisir votre mot de passe :"): If mdp = "" Then Exit Sub
    Set cel = Worksheets("Mot de passe").Columns(1).Find(L, , -4163, 1, 1)
    If cel Is Nothing Then Exit Sub
    If mdp <> cel.Offset(, 1) Then MsgBox "Mot de passe incorrect !", 48: Exit Sub
    k = Asc(Right$(L, 1)) - 61: Application.ScreenUpdating = 0
    Worksheets("Feuil3").Cells(2, k).Resize(3).Copy: [C7].PasteSpecial -4163
    Application.CutCopyMode = 0: [C6].Select
  End With
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

Cliquez pour agrandir...

soan à dit:

@Zizou981

désolé pour le retard de ma réponse, j'étais occupé sur d'autres exos.

ton nouveau fichier V4 en retour ; j'ai changé qu'une seule chose :

dans le code VBA, cette ligne :

[C7:C9].ClearContents: L = .Value: If L = "" Then Exit Sub

est devenue :

L = .Value: If L = "" Then Exit Sub

---

donc : 1ère instruction [C7:C9].ClearContents en moins ; c'est elle qui effaçait les cellules C7 à C9 par sécurité, pour garder la confidentialité des infos affichées suite à un mot de passe correct. ​

soan

Cliquez pour agrandir...

soan à dit:

@Zizou981

oui, tu as raison, pour le problème que tu as mentionné.

aussi voici une autre version jointe ci-dessous.

à toi de l'essayer, et donne-moi ton avis.

soan

Cliquez pour agrandir...

soan à dit:

@Zizou981

avant de voir ta nouvelle demande, je dois t'indiquer quelque chose de très important :

* en C6, choisis "Liste A", puis saisis "111" ➯ affichage de 1 ; 4 ; 7 en C7:C9.

* en C6, choisis "Liste B" ; sans saisir de mot de passe : clic sur bouton Annuler ;
C7:C9 est vide, n'est-ce pas ? oui ? eh bien non, pas tout à fait :

regarde la cellule A1, et clique sur la petite « case » du coin haut gauche, qui est juste à gauche de la lettre A et au-dessus du chiffre 1 : ça sélectionne la feuille entière ; maintenant, si tu regardes bien attentivement C7:C9, tu verras qu'il y a 2 ; 5 ; 8 écrits en blanc.

donc au lieu d'effacer C7:C9 comme je l'avais fait au début avec [C7:C9].ClearContents j'ai mis tout simplement une couleur de police de caractères blanc (couleur n° 16777615) ; puis plus tard, pour l'affichage, je mets une couleur de police de caractères noire (couleur n° 0).
​

---

je ne vois pas comment faire autrement, mais c'est arrivé car tu as mis des formules alors que moi je les avais enlevées tout à fait volontairement, pour éviter pareil inconvénient ! aussi, je te suggère de reprendre ma solution où y'avait aucune formule en C7:C9 ; c'est juste une suggestion, t'es pas obligé de la suivre, alors fais comme tu préfères.

si tu reviens à une solution sans formule en C7:C9, peut-être que ta nouvelle demande de ton post #11 deviendra inutile ? ou tu préfères quand même que j'essaye de trouver quelque chose ?​

soan

Cliquez pour agrandir...

soan à dit:

Bonjour Zizou981,

désolé, mais je n'ai rien trouvé ; d'autre part, comme le problème initial a changé, je te suggère de faire ta nouvelle demande dans un autre sujet, le présent sujet ayant déjà été résolu par mon post #5 ; bonne chance pour la suite de ton projet ! ​

soan

Cliquez pour agrandir...