IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Intégrer condition pour utilisateur multiples


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Décembre 2011
    Messages
    571
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Burkina Faso

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2011
    Messages : 571
    Par défaut Intégrer condition pour utilisateur multiples
    Salut le forum.

    J'ai obtenu un code qui permet de s'identifier par mot de passe.
    Ce code ne prend pas en compte plusieurs mots de pass mais un seul.
    Je souhaite que chaque utilisateur ait son mot de pass.
    Les mot de pass sont déjà contenu dans une plage de donnée (PARAMETRE!A1:A50).
    Si le mot de pass saisi figure parmi la liste de ma plage de donnée, que la session s'ouvre;sinon pas d'ouverture.
    Comment intégrer cela dans le code ci-dessous?
    Je suis preneur d'autres solutions.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Private Sub auto_Open()
     
    Dim Password As String
    Password = Application.InputBox(prompt:="Entrez le mot de passe", Title:="Ouverture du fichier à accès restreint", Default:="", Type:=2)
    If (Password = "1234") Then
      Call SuiteMotDePasse
     
    Else
       MsgBox "Désolé, le mot de passe n'est as concluant."
       ActiveWorkbook.Close False
     
    End If
     
    End Sub

  2. #2
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, sans utiliser de mot de passe via Environ("USERNAME") qui renvoie le nom de login Windows et pas Application.UserName qui renvoie les infos saisies lors de l'installation de la suite Office.

  3. #3
    Membre éclairé
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Décembre 2011
    Messages
    571
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Burkina Faso

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2011
    Messages : 571
    Par défaut
    Salut kiki

    Merci pour ton feedback.
    J'ai essayé d'ajouter un autre mot de pass en utilisant Or et ca fonctionne:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If (Password = "1234" or "1235") Then
    Si qqu'un n'a pas autre solution, je vais me concentrer sur le or.

  4. #4
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Re, [F1] sur Select Case

  5. #5
    Membre éclairé
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Décembre 2011
    Messages
    571
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Burkina Faso

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2011
    Messages : 571
    Par défaut
    Salut kiki
    J'ai pas bien compris ce que votre recommadation mais j'ai essayé de demande une aide avec mot clé select case.
    Si j'ai compris ce que vous voulez me faire voir c'est l'utilisation de case 1 to ...
    Est-ce bien cela? Aussi le case 1 peut-il être la valeur d'une cellule?
    Aussi j'ai oublié que le code du post #1 était precedé du code ci-dessous:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub SuiteMotDePasse()
    Dim X As Byte
    Dim Compteur As Byte
    Compteur = 0
          UserForm11.TextBox9.Value = "Autorise"
          UserForm11.TextBox10.Value = Sheets("DONNE").Range("G19").Value
          UserForm11.TextBox6.Value = Sheets("DPRIVE").Range("C30").Value
     
       UserForm11.Show
     
    End Sub
    Dans ce code lorsque le mot de pass d'ouverture est saisi (1234 ou 1235), le textbox9 affiche autorise.
    Dans le complement du code ci-dessus, est-il possible de faire en sorte que si 1234 est saisi, que par exemple autorise s'affiche et si c'est 1235 qui est saisi, que Zodo s'affiche dans le textbox9?
    En resumé, je souhaite que la valeur du textbox9 soit fonction du mot de pass d'ouverture.
    Merci

Discussions similaires

  1. [MySQL] Condition pour compte utilisateur
    Par artdream dans le forum PHP & Base de données
    Réponses: 4
    Dernier message: 29/05/2015, 16h54
  2. Condition pour l'affichage d'une boite de message
    Par Virgile59 dans le forum Access
    Réponses: 19
    Dernier message: 05/10/2005, 14h22
  3. Droits pour utilisateurs
    Par Maxime555 dans le forum PostgreSQL
    Réponses: 1
    Dernier message: 03/05/2005, 19h56
  4. Interface graphique pour utilisateur
    Par Missvan dans le forum PostgreSQL
    Réponses: 10
    Dernier message: 14/02/2005, 09h56
  5. [Choix de langage] POO pour de multiples applications
    Par Shadowritter dans le forum Langages de programmation
    Réponses: 15
    Dernier message: 17/01/2005, 15h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo