ouvrir une feuille excel

Question

bonjour,

a l'ouverture j'es un UserForm qui demande le Nom d'utilisateur et le pass une fois confirmer la feuille est active .
ma question je souhaiterai rediriger l'utilisateur sur la Feuil2
voila mon code

Private Sub CommandButton1_Click()
Static compteur As Byte
compteur = compteur + 1
If ComboBox1.ListIndex >= 0 Then
     If Feuil8.Range("B1").Offset(ComboBox1.ListIndex, 0) = txtMotdePasse Then
    MsgBox "Mot de passe correct ", vbInformation, "Mot de passe "
            If txtNouveauMotDePasse = "" Then
    txtNouveauMotDePasse = txtMotdePasse
Else
        Feuil8.Range("B1").Offset(ComboBox1.ListIndex, 0) = txtNouveauMotDePasse
    End If
   
        Unload Me


     Else
     If compteur = 3 Then
MsgBox "Echec dans la saisie du mot de passe. " & _
vbCr & "La commande ne peut-&#234;tre ex&#233;cut&#233;e", _
vbOKOnly + vbExclamation, "Mot de passe incorrect"
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
MsgBox "Le mot de passe fourni n'est pas correct. ", _
vbOKOnly + vbExclamation, "Mot de passe incorrect"
txtMotdePasse.Text = ""
txtMotdePasse.SetFocus
Me.Caption = "Entrez le mot de passe. Tentative " & _
compteur + 1 & " sur 3"
End If
End If


End Sub

TThierry133

Simouss33 · Answer

Essaie de faire cette commande &#224; la fin de ton programme, elle permet de d&#233;finir la feuille 2 en tant que feuille active 

ActiveWorkbook.Worksheets(2).Activate

cs_TTHIERRY · Answer

sa marche merci

a tu un truc pour quand l'utilisateur se connect la CommandButton2 soit invisible et quand l'administrateur se connect la Command Botton2 soit visible

TThierry133

Simouss33 · Answer

Tu fais ton test pour savoir qui est l'utilisateur.
Si c'est l'admin, mets ActiveWorkbook.Worksheets(2).CommandButton2.Visible = True
Sinon ActiveWorkbook.Worksheets(2).CommandButton2.Visible = False

Le num&#233;ro &#224; c&#244;t&#233; du WorkSheets est celui de la feuille o&#249; ton bouton est pr&#233;sent, donc modifie si je me suis tromp&#233;.

cs_TTHIERRY · Answer

je suis ok avec toi
le sousis et le suivant comment faire pour s'avoir qui est administrateur, je m'explique je met login "toto" et mot de passe "1234" etant admin il voie le boutton et les utilisateur eux ne le voie pas.

la command je la met ou etant donner que c'est lem&#234;me UserForm qui sert au 2

merci de ton aide

TThierry133

Ouvrir une feuille excel

4 réponses

Discussions similaires