Données des droits selon utilisateur
#1
Débutant XLPages

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
ceci est sa devient compliqué en fait, je souhaite que je pourrais restreindre l'accès pour certains en lecture seule utilisateur, et pour les autres le pouvoir de la modification totale.
on ma dit d'ajouter un mot de passe à la feuille, mais je voudrais que ce soit automatiser pour l'utilisateur "Admin" à se connecter à mon userform il Otez le protéger car il aura un accès total au classeur de lecture + modification.
si l'utilisateur "Bernard" a normalement accès à la feuille 1 il peut lire mais pas effectué de changement

 

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
Je espère avoir été clair dans ma description
Merci d'avance pour votre aide
si vous aviez des questions ne hésitez Je suis derrière le pc
 

Hors Ligne
Rapport   Haut 

Re: Données des droits selon utilisateur
#2
Webmestre

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
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
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