Bonjour
Débutant en VBA, j'essaie , grâce à des codes collectés sur différents sites de réaliser un classeur sous excel 2007.
Le but de ce programme est de permettre aux personnes autorisées d'enregistrer dans un classeur , les devis réalisés par type d'activité.
Ce classeur comporte plusieurs feuilles accessibles par mots de passe au moyen d'un userform.
Le code permettant l'accès est le suivant:
Private Sub CommandButton1_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub
Ce code fait référence à une liste de noms de feuilles et de mots de passe correspondants, située dans une feuille nommée "Accueil":
Mot passe Feuille
AdminOV Admin
111111 Automobile
222222 Maintenance
232425 Papeterie
sesame PJ
313233 TOT
414243 TPF
515253 TPF HC
616263 CIM
Ce programme fonctionne pour les 5 premiers mots de passe ,et ne fonctionne plus pour la suite .
Je ne peux pas joindre mon classeur(1Mo)
Pouvez vous m'aider
Merci
Débutant en VBA, j'essaie , grâce à des codes collectés sur différents sites de réaliser un classeur sous excel 2007.
Le but de ce programme est de permettre aux personnes autorisées d'enregistrer dans un classeur , les devis réalisés par type d'activité.
Ce classeur comporte plusieurs feuilles accessibles par mots de passe au moyen d'un userform.
Le code permettant l'accès est le suivant:
Private Sub CommandButton1_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub
Ce code fait référence à une liste de noms de feuilles et de mots de passe correspondants, située dans une feuille nommée "Accueil":
Mot passe Feuille
AdminOV Admin
111111 Automobile
222222 Maintenance
232425 Papeterie
sesame PJ
313233 TOT
414243 TPF
515253 TPF HC
616263 CIM
Ce programme fonctionne pour les 5 premiers mots de passe ,et ne fonctionne plus pour la suite .
Je ne peux pas joindre mon classeur(1Mo)
Pouvez vous m'aider
Merci