Créer des sessions sous excel avec MDP

Bonjour Lermite,

Merci pour ce document qui a plus l'air de se rapprocher d'une session. Mais il m'a également l'air plus technique. Je vais me pencher dessus et je reviendrai surement vers vous dans les prochaines heures où les prochains jours.

Merci

Bonjour,

Comme je le pensais me revoici...
Un problème m'empeche de modifier le nom de l'onglet acceuil que je veux renommer accueil. J'ai eu beau tout modifier dans le code, une ligne me bloque (même en ayant retiré le stop) voici la ligne réfractaire :

Sub ChangerUtilisateur()
Dim F As Integer
'Stop
'CodeAdmin = "9999"
    CodeAdmin = Sheets("code").[B4] ' "9999"

    Application.ScreenUpdating = False
    For F = 1 To Worksheets.Count
        If Sheets(F).Name <> "accueil" Then

            Sheets(F).Visible = xlSheetVeryHidden
            Sheets(F).Protect CodeAdmin
        Else
            Sheets(F).Protect CodeAdmin
        End If
    Next F
    With Sheets("accueil")
    .CommandButton1.Caption = "Changer d'utilisateur"
    .CommandButton1.Visible = False
    .GererCode.Visible = False
    .Protect CodeAdmin
    End With
    Niveau = 0
    Application.ScreenUpdating = True

End Sub

Merci d'avance

Merci beaucoup Michel

Je vais regarder cela avec beaucoup d'attention.

Bonjour Lermite,
Finalement, il me semble que cela fonctionne (en mettant en commentaire le stop)
Je continue mon avancé sur ton super travail.

Merci

En utilisation "opérationnelle" je ne suis pas parvenu a reproduire ce que tu dis.
C'est probablement arriver au cour de travail dans le code !

En faitpour en arriver la. Je me suis d'abord connecté sous admin. Puis j'ai modifié le nom de l'onglet ainsi que sur la page code. Puis j'ai ajouté une nouvelle personne et je me suis connecté avec son profil. Et là, c'est le "petit drame" (étant donné que les pages s'affichent bien lorsqu'on clique sur fin)

Je pense que le problème vient du fait que j'ai rajouté 2 feuilles.
Quand on crée une nouvelle personne, deux 0 s'inscrivent en colonne M et N, j'ai donc voulu m'en servir pour ajouter 2 nouvelles feuilles.
Est-ce une erreur ?

C'est parfaitement cela ! Merci

Avant ta réponse j'ai essayé avec une parade qui consistait à mettre le NomUtilisateur (désigné par la variable As String) dans une cellule ; afin de reprendre les références de cette dernière dans le code. Mais aussi simple soit-il je n'ai pas réussi, pourrais-tu m'éclairer ?

Merci

Lorsque tu te connecte en session, un userform disant bonjour "NomUtilisateur" apparait, j'aurai souhaité avoir ce nom utilisateur dans une cellule (en b2 de la feuille Code par exemple). Est-ce plus clair ?

Re,

Le but de cette manip' n'est pas d'avoir un historique mais de pouvoir personnaliser chaque la combobox1 en fonction de la personne qui se connecte.
Est plus claire ?

Non, je comprend absolument pas, oublie pas que je n'ai pas ton appli et que je n'ai pas non plus de boule de cristal.

En effet, je vais tenter d'être le plus précis possible.

J'ai crée 10 sessions, chacune faisant référence à un onglet et chaque onglet reprend le nom de la personne qui se connecte.

Du coup lorsqu'une personne se connecte elle peut ecrire via un userform (qu'elle lance depuis la page d'accueil) des données relatives à ses rendez-vous. Personne à part elle (la personne connectée) ne peut écrire sur son onglet.

Le userform qui se lance est le même pour chaque personne qui se connecte. Ainsi que les différents éléments qui y figurent (combobox notamment).

J'aimerai en quelque sorte que ce combobox soit relié à la session qui s'ouvre. Peut être qu'en reprenant l'exemple cité plus haut cela sera plus claire dorénavant

If (nom utilisateur) = Nom Prenom then

    ComboBox1.AddItem "Entreprise 1"
    ComboBox1.AddItem "Entreprise 2"
End if

If (nom utilisateur) = Nom2 Prenom2 Then

    ComboBox1.AddItem "Entreprise 1"
    ComboBox1.AddItem "Entreprise 3"
    ComboBox1.AddItem "Entreprise 4"
End if

Etc.

Je peux peut être encore faire mieux mais j'espère que je t'aurai transmis l'essentiel pour que tu comprennes mon problème :)

Merci d'avance

Entreprise 1, Entreprise 2, etc ... ce sont les noms des onglets qui sont accessible à l'utilisateur ?
Sinon, c'est quoi ?

Bonjour Lermite,

L'utilisateur lorsqu'il se connecte n'a qu'un seul onglet : celui qui porte son nom.
Exemple : je suis Laurent Blanc, je me connecte sous le nom laurent blanc et le nom de mon onglet actif est laurent blanc.

Le nom de l'entreprise figure dans la colonne "d" de sa feuille.

Est ce plus clair ?

Je pense que tu as bien compris (même si pour le moment je n'arrive pas à faire fonctionner ce code)
Seulement, j'aimerai mieux ne pas faire appel à ce qui est déjà dans la feuille car des fois celle-ci n'est pas rempli par l'utilisateur. Connaissant moi-même les entreprises qui y figureront je peux leur pré-mâcher le travail. C'est pour cela que j'aimerai définir la combo depuis VBA. Je reprends mon exemple précédent, peut être celui-ci sera dorénavant plus parlant pour toi :

If (nom utilisateur) = Nom Prenom then

    ComboBox1.AddItem "Entreprise 1"
    ComboBox1.AddItem "Entreprise 2"
End if

If (nom utilisateur) = Nom2 Prenom2 Then

    ComboBox1.AddItem "Entreprise 1"
    ComboBox1.AddItem "Entreprise 3"
    ComboBox1.AddItem "Entreprise 4"
End if

Etc.

Merci pour tout le temps passé !

Tu commence sérieusement à devenir chi... t :-)
Une solution serait de mettre ces données dans la feuille des codes, en VBA tu pourais les récupérer sans devoir la rendre visible,
Voir exemple

Bonjour Lermitte, Oui très ch...t, je m'en rends compte moi même ^^

En attendant de trouver mieux, j'ai fait une petite parade qui consiste à afficher (de manière non visible) sur le userform dans un etextbox le nom de l'onglet. En fonction de cela la combobox se voit modifier et attribuer les bons noms d'entreprises !

Merci pour ton coup de main en tout cas, qui m'a mis sur la piste !!!!

Bonne journée (et à bientôt :)

Merci pour la réponse

Bonjour Lermite222,

Quand je parle de pouvoir faire ctrl+Z ce n'est pas suite à une action initiée par une macro. Mais simplement lorsque j'écris tout simplement des données dans le tableur ou lorsque je les modifie.
Je comprends bien qu'on ne puisse pas faire une ctrl+Z après une macro mais avec une simple modif dans le tableur cela me semble bizarre que ça ne marche pas.