Données des droits selon utilisateur | ||
---|---|---|
Inscription: 30/01/2016
De France
Messages:
2
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 30-01-2016 22h44
bonsoir à tous,
je debute en vba doncc'est pourquoi je me tourne vers vous en faite, j'ai un classeur avec une feuille qui s appellent "admin" avec mon nom d'utilisateur dans la colonne Un mot de passe dans la colonne B et le nom de mes feuilles C, D, E, F, I inséré un X majuscule sur la ligne correspondant à l'utilisateur colonne de la page à laquelle je lui souhaite un accès, si aucun X et cacher cette page
donc j'ai trouver ce lien sur votre forum http://www.mdf-xlpages.com/modules/ne ... iewtopic.php?post_id=2268 je voudrais pouvoir l'integrer a mon code
Private Sub UserForm_Initialize() Me.Utilisateur.List = Sheets("admin").Range("Utilisateur").Value Me.Utilisateur.ListIndex = 0 End Sub Private Sub MotPasse_Change() p = Application.Match(Me.Utilisateur, Range("Utilisateur"), 0) mdp = Application.Index(Range("MotPasse"), p) If Not IsError(mdp) Then If Me.motpasse = CStr(mdp) Then ok = True End If End Sub Private Sub B_ok_Click() If Me.motpasse <> "" And Me.Utilisateur <> "" Then NbEssai = NbEssai + 1: Me.Label3.Caption = NbEssai & " essai(s)" For i = 1 To Range("MotPasse").Count If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) And _ UCase(Me.Utilisateur) = UCase(Range("utilisateur")(i)) Then For j = 1 To [feuille].Count If Range("droits").Cells(i, j) = "X" Then temp = Range("feuille")(j) Sheets(temp).Visible = True End If Next j Sheets("Espion").[M2] = Me.Utilisateur Unload Me: Exit Sub End If Next i End If If NbEssai > 3 Then MsgBox NbEssai & " essais!" ThisWorkbook.Close False End If End Sub meme si je doit rajouter un X par exemple pour les utilisateur qui pourrait faire la modification cela n'est pas génant |
|
|
Re: Données des droits selon utilisateur | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 31-01-2016 12h38
Bonjour ploz, bienvenue sur XLpages.
Il me semble que Julien35000 attend un fichier de ta part pour donner réponse à ton problème dans cet autre forum : http://forum.excel-pratique.com/excel ... eu-special-t73388-10.html
Ça serait dommage de négliger les efforts qu'il consent pour t'aider.
Bien cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|