Mot de passe

[kiff77]

Bonjour à tous,

J'ai un code VBA que j'ai récupéré sur le net qui fonctionne très bien permettant de gérer les accès à un fichier Excel (un mot de passe définit la vue sur les onglets du fichier).

Je vous joins une partie du code :

Case "util"
Sheets("nom_onglet").Visible = True
...

Util est le mot de passe. Je voudrais savoir si on pouvais remplacer le mot de passe "util" par le nom d'une feuille et d'une cellule. L'idée serait que les mots de passe soit regroupés dans un onglet. Ainsi ma collègue pourrait changer les mots de passe des utilisateurs sans rentrer dans VBA.

Exemple:

dans l'onglet "admin" en cellule B2 il y aurait le mot de passe "util"

le code VBA pourrait donner : Case "feuille "admin" cellule "B2""
sheets("nom_onglet").visible=true

Je ne sais pas si j'ai vraiment été clair

Merci pour vos réponses
A+
Kiff

 

[wilfried_42]

Re : Mot de passe

Bonjour

essaye ca : Feuille nommé MDP, mots de passe colonne B

select case motdepasse
     case sheets("MDP").range("B1").value
            ........... Ton code
     case sheets("MDP").range("B2").value
            ........... Ton code
     case else
            msgbox "Mot de passe non valide"
            exit sub
end select

 

[kiff77]

Re : Mot de passe

Merci pour ta réponse

J'ai pas encore testé, je pense que je testerai ça la semaine prochaine.

Bon WE A+
Kiff

 

[kiff77]

Re : Mot de passe

Bonsoir,

Merci Wilfried ça marche nickel.

A+
Kiff