XL 2016 RESOLU Identifiant et mot de passe pour ouvrir des onglets

[arkheos]

Bonjour,

Je souhaite créer un fichier avec plusieurs onglets, ce fichier est utilisé par plusieurs personnes avec des droits différents (1 Admin : accès à la totalité, 3 utilisateurs accès à certains onglets). Je souhaite que chacun possède un mot de passe différent et qu'il soit possible d'enregistrer leur accès dans un tableau.

J'ai trouver comment on peut faire avec des userform, mais je souhaite conserver la mise en page que je vous fourni dans le fichier joint.

A votre dispo pour tout compléments, merci de votre aide

 

[Usine à gaz]

J'ai repris le classeur du post 8.
C'est tout bon.
Une question m'était apparu.
Ton classeur ne me connait pas LOL et pourtant il affiche mon prénom à l'ouverture en tant qu'utilisateur.
C'est magique ?

 

[Jacky67]

.

Ton classeur ne me connait pas LOL et pourtant il affiche mon prénom à l'ouverture en tant qu'utilisateur.
C'est magique ?

Re...
C'est parce que j'ai une boule de Crystal
Va voir dans le ThisWorkbook. Il y a des instructions à l'ouverture du classeur
Celle qui t'espionne est
.[i12] = Application.UserName
Edit:
Il y a une erreur de disposition dans mon code, sans incidence, mais erreur tout de même
Rectification

Private Sub Workbook_Open()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Accueil" Then Sh.Visible = False
Next
With Sheets("Accueil")
.[i15] = ""
.[i12] = Application.UserName
End With
End Sub

 

[arkheos]

c'est parfait jacky67 !

un GRAND merci pour ton aide.

 

[Usine à gaz]

Merci pour tes réponse et mes excuses un peu tardives à arkheos pour m'être invité à votre fil.
Amicalement,
Bonne nuit à toutes et à tous,
Lionel,

 

[arkheos]

Merci pour tes réponse et mes excuses un peu tardives à arkheos pour m'être invité à votre fil.
Amicalement,
Bonne nuit à toutes et à tous,
Lionel,

Pas de soucis arthour973.
Arkheos

 

[Usine à gaz]

Je te remercie et j'espère au moins avoir participé à l'avancement du schmilblik

 

[arkheos]

Bonjour,

j'ai crié victoire un peu tôt ...

lorsque je rajoute une page et que je donne l'accès en précisant la cellule D de "MDP", rien ne se passe ?

faut il rajouter une ligne de code pour que cela fonctionne ?

Bien cordialement

 

[Jacky67]

Bonjour,

j'ai crié victoire un peu tôt ...

lorsque je rajoute une page et que je donne l'accès en précisant la cellule D de "MDP", rien ne se passe ?

faut il rajouter une ligne de code pour que cela fonctionne ?

Bien cordialement

RE...
Pour être clair sur le fonctionnement
A l'ouverture du classeur seul la feuille "Accueil" est visible
L'utilisateur entre un nom d'utilisateur et un mot de passe
Les feuilles qui sont inscrites dans la ligne de l'utilisateur seront visibles si le MDP est correct

Les feuilles doivent exister.
Si tu souhaites un autre type de fonctionnement il faut le préciser.
Testes le classeur en PJ et dis ce qui ne fonctionne pas
*Edit
Je rajoute une version(v2) qui permet de changer d'utilisateur sans fermer le classeur
**RE Edit:
J'ai cru que c'était Ce lien n'existe plus qui avait des problèmes
Arkheos est-ce que le problème est résolu ?

 

[Jacky67]

Pour Arkheos
Avec la possibilité de rajouter des accès d'onglets dans la feuille "MDP"

 

[arkheos]

Bonsoir jacky67,

super ! merci pour le fichier, je galérai à essayer de faire en sorte que ça fonctionne.

Si tu peux faire en sorte que la case identifiant n'affiche rien à l'ouverture ce serait parfait ( mon nom s'affiche dès l'ouverture du fichier)

 

[Jacky67]

Bonsoir jacky67,

super ! merci pour le fichier, je galérai à essayer de faire en sorte que ça fonctionne.

Si tu peux faire en sorte que la case identifiant n'affiche rien à l'ouverture ce serait parfait ( mon nom s'affiche dès l'ouverture du fichier)

Re..
Dans le ThisWorkbook
Remplace cette ligne
.[i12] = Application.UserName
par
.[i12] = ""

 

[arkheos]

NICKEL !

je te remercie, tu me fais gagner énormément de temps.

Cette fois je peux mettre "résolu"

Bien cordialement