Ce servir du nom d'utilisateur comme mot de passe

[rainbow69006]

Bonjour a tous

Ma question est la suivante (elle ce reporte au fichier que j'ai joint)

En fait dans l'user form (usmenu1) j'arrive a obtenir le nom d'utilisateur.
Je souhaiterais que ce nom d'utilisateur soit compare au nom d'utilisateur contenu dans la page "adm".

En fait grace au bouton CC j'arrive a l'user form (usmenu2) (dans l'exemple alleger que je met sa ne marche pas , mais chez moi sa marche).

Je voudrais par exemple:
- que si l'utilisateur n'est pas connu alors sa ouvre l'userform3
- que si l'utilisateurs est "pierre" (donc de niveau 1): dans l'usmenu2 il n'apparaissent que les 2 premiere options bouton
- que si l'utilisateurs est "robert" (donc de niveau 2): dans l'usmenu2 il apparaissent tout les options bouton

PS: on ne s'occupe pas des bouton AA,BB,DD dans l'usmenu1

Merci de votre aide

 

[Cousinhub]

Re : Ce servir du nom d'utilisateur comme mot de passe

Bonsoir,
OK, c'est de ma faute, je n'ai pas lu TOUTES les lignes de ton code...😱
Par contre, évite des lignes du type :

Application.Quit

on n'a pas forcément envie de fermer excel.....
heureusement, il n'y avait pas l'instruction d'ignorer les alertes...

 

[rainbow69006]

Re : Ce servir du nom d'utilisateur comme mot de passe

Oups desoler

 

[rainbow69006]

Re : Ce servir du nom d'utilisateur comme mot de passe

Bonjour bhbh

Est ce que tu a une idee?

merci

 

[Compte Supprimé 979]

Re : Ce servir du nom d'utilisateur comme mot de passe

Bonsoir tout le monde,
Rainbow69006,

Essaye ce code pour voir (à mettre dans ton usf1)

Private Sub UserForm_Initialize()
  Dim LigF As Long, Niveau As Integer
  VUser = Application.UserName
  TextBox1 = "Welcome " & VUser & " !"
  TextBox2 = "the date: " & Now
  LigF = Sheets("adm").Range("A:A").Find(What:=VUser, LookAt:=xlWhole).Row
  ' L'utilisateur n'est pas trouvé
  If LigF = 0 Then
    UserForm3.Show
    Exit Sub
  End If
  ' L'utilisateur est trouvé
  Niveau = Sheets("adm").Range("B" & LigF)
  If Niveau = 1 Then
    usmenu2.OptionButton1.Visible = True
    usmenu2.OptionButton2.Visible = True
    usmenu2.OptionButton3.Visible = False
    usmenu2.OptionButton5.Visible = False
    usmenu2.OptionButton6.Visible = False
    usmenu2.OptionButton7.Visible = False
  End If
  If Niveau = 2 Then
    usmenu2.OptionButton1.Visible = True
    usmenu2.OptionButton2.Visible = True
    usmenu2.OptionButton3.Visible = True
    usmenu2.OptionButton5.Visible = True
    usmenu2.OptionButton6.Visible = True
    usmenu2.OptionButton7.Visible = True
  End If
End Sub

A+

 

[rainbow69006]

Re : Ce servir du nom d'utilisateur comme mot de passe

Merci Bruno

J'ai du remplacer tes VUser par Application.UserName et supprimer VUser = Application.UserName autrement sa me mettait variable non defini. je sais pas pourquoi

Quand je suis identifie de niveau 1 ou 2 cela marche impeccablement.

Par contre quand je ne suis pas identifie la il y a un probleme.
quand je veu demarrer mon premier userform1

sa me met une erreur: run time error 91
object variable or with block variable no set

Que puis je faire ?

merci

 

[Compte Supprimé 979]

Re : Ce servir du nom d'utilisateur comme mot de passe

Rainbow69006,

Avant la ligne LigF il faut mettre
On Error Resume Next
Après
On Error Goto 0

Ce qui donne

Private Sub UserForm_Initialize()
...
On Error Resume Next
  LigF = Sheets("adm").Range("A:A").Find(What:=VUser, LookAt:=xlWhole).Row
On Error Goto 0
...

Voilà 😉

 

[kiki29]

Re : Ce servir du nom d'utilisateur comme mot de passe

Soir Bon, une remarque
Application.UserName ne donne pas le nom de login windows de l'utilisateur
mais de : menu ? d'Excel / à propros de Microsoft Excel : Licence d'utilisation accordée à
il faut passer par Environ("USERNAME") pour être certain du nom d'utilisateur

 

[rainbow69006]

Re : Ce servir du nom d'utilisateur comme mot de passe

Re Bonjour

Donc si je comprend bien je dois remplacer Application.UserName par Environ("USERNAME") c'est sa ?

En tout cas le code marche vraiment bien

Si je veu en plus de cacher des bouton faire apparaitre ou disparaitre des pages qu'est ce que je dois utiliser? je suppose la fonction "visible" mais comment l'utilise t'on?

merci