Userform inactif tant que mot de passe non validé
#1
Régulier XLPages

Inscription: 27/06/2010

Messages: 44

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2007
Posté le : 20-10-2011 09h42
Bonjour à tous,

Voila j'ouvre un userform en plein écran à l'ouverture d'excel, et j'ai au-dessus un petit userform pour entrer utilisateur et mot de passe pour pouvoir entrer dans le formulaire principal (en arrière plan).

Mon problème est le suivant : j'aimerai pouvoir désactivé le userform plein ecran (ou le griser) tant que l'utilisateur n'a pas validé son ID et son mot de passe.

Merci de votre aide et bonne journée à tous.
Hors Ligne
Rapport   Haut 

Re: Userform inactif tant que mot de passe non validé
#2
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 22-10-2011 16h06
Bonjour fred777,

Petit classeur avec validation à l'ouverture.

Je n'ai pas bien compris Citation :
j'ouvre un userform en plein écran à l'ouverture d'excel
mais voici tout de même une ébauche qui pourrait répondre à tes attentes.

Les noms et mots de passe inscrits dans le classeur sont :

Usager    Mot de passe
 fred777    Tourelou
 Guy          Lalalère
 Chose       Rien

Mise à jour : fichier légèrement modifié. Fermeture par l'usager interdite.

Cordialement,

Guy



Pièce jointe:
xls Validation par mot de passe.xls   [ Taille: 56.00 Ko - Téléchargements: 1288 ]
Edité par Guy le 24/10/2011 23:11:20

Hors Ligne
Rapport   Haut 

Re: Userform inactif tant que mot de passe non validé
#3
Débutant XLPages

Inscription: 16/01/2013

Messages: 1

Système d'exploitation:
PC
Version Excel utilisée:
Office 2003
Posté le : 16-01-2013 14h20
Bonjour,

Je viens de tomber sur votre fichier très intéressant mais je ne trouve pas l'endroit dans le code ou changer / définir les couples login / password.

Pourriez-vous m'indiquer comment faire ?

Merci d'avance.

Jonathan

Hors Ligne
Rapport   Haut 

Re: Userform inactif tant que mot de passe non validé
#4
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 20-01-2013 23h47
Bonjour jonleboss, bonjour Guy, bonjour à tous,

Notre ami Guy est assez occupé en ce moment et n'a pas pu te répondre, mais il a donné les informations dans son code:
'Extrait du code de Guy:

  ' La plage d'identification d'usager.
  Set objPlageID = Range("PlageID").Columns(1)
  lngID = WorksheetFunction.Match(txtID, objPlageID, 0)
 
  ' La plage des mots de passe correspondants.
  Set objPlageMDP = Range("PlageID").Columns(2)
  boolID = True
  strMDP = WorksheetFunction.Index(objPlageMDP, lngID, 1)
 

Tu vois que les informations d'identification se trouvent dans la zone nommée "PlageID", et sa définition et donc son emplacement exact dans le gestionnaire de noms.

Bonne soirée,

mth

Hors Ligne
Rapport   Haut 

Re: Userform inactif tant que mot de passe non validé
#5
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 21-01-2013 00h18
Bonsoir jonleboss, Mireille,

Effectivement je suis à la bourre (forme hexagonale), dans le jus (forme québécoise), au boulot mais rien ne m'empêche de zieuter le forum par moment.

Bref. La feuille qui porte le tableau Usager/Mot de passe est cachée... elle se nomme ID (nom de code) alors que l'onglet de cette feuille se nomme Identification. Suffit de modifier la propriété de cette feuille de calcul de Visible = xlSheetVeryHidden à Visible = xlSheetVisible pour aprecevoir la plage de validation.

Cette plage se nomme "PlageID" comme te l'a fait remarquer Mireille. C'est une plage nommée dynamique (voir Tuto sur les plages nommées dynamiques et le bonheur sera à portée de main).

Chose importante, cette plage doit impérativement se composer de lignes jointives non vides comme dans l'exemple et ne comporter aucune lignes non vides au-delà. Tu peux y mettre les noms d'usagers et les mots de passe correspondants selon ton choix dans l'ordre qui te plaira. À partir de la cellule A1, monte la liste comme suit :

     A             B
Usager1 MotDePasse1
Usager2 MotDePasse2
etc

Une fois complétée la saisie replace la propriété de la feuille Identification en Visible = xlSheetVeryHidden et le tour est joué.

Ce classeur, comme je l'ai souligné est une ébauche, seulement une ébauche. Il n'est absolument pas à l'épreuve des balles.

Cordialement et merci Mireille,

Guy





Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes