Système de gestion d'accès

Bonjour,

Je viens poser ma question après avoir fait de longues recherches sur ce forum ou d'autres, mais je n'ai toujours pas trouvé une solution qui convient à mon problème.

Étudiant en alternance, j'ai été chargé dans mon entreprise de créer un fichier excel 2010 en VBA contenant des informations de pointage que l'on récupère grâce à un ERP. Cependant, ces informations sont plus ou moins confidentiel et vu que le fichier sera sur le réseau car plusieurs personne l'utilise, je me demande si il est possible de créer une interface de connexion par identification et si oui, comment cela peut se faire sans que le fichier devienne trop lourd.

J'ai déjà pensé à quelques solutions possibles mais il me reste à savoir comment l'implémenter. A savoir, créer une feuille que l'on masquerait pour les utilisateurs sauf pour les administrateurs où il y aurait les informations de connexion (login et mot de passe), ensuite on comparerait les informations rentré par l'utilisateur avec les données contenue dans la feuille.

Aussi, est-il possible de faire un système de déconnexion sans fermer la feuille ? J'ai déjà effectué des recherches sur ce point mais apparemment ce n'est pas réalisable mais peut-être que vous avez une idée sur ce point.

Je vous remercie pour vos réponses.

Bonjour,

Personne n'a d'idée sur ce point ?

Donc j'ai un peu avancé sur le projet, j'ai réussit à faire un compte administrateur qui pourrait rajouter des utilisateurs en créant dans mon classeur, une feuille User contenant les informations que seule l'administrateur peut atteindre.

Aussi, j'ai crée en Userform une petite interface de connexion(c'est juste une beta, moche pour effectuer les tests), contenant des TextBox (cf : pièces jointes "Interface".

L'idée pour les utilisateurs lambda est de à la base de cacher toutes les feuilles de données et si l'utilisateur s'identifie avec les bonnes informations, alors on affiche les feuilles masquées. Je pensais à récupérer les données de la feuille User pour les intégrer dans un tableau et comparer les données avec ce que l'utilisateur rentre dans les checkBox.

J'ai une erreur au niveau du tableau lorsque je veux l'utiliser dans l'UserForm(voir code, l'erreur est mis en évidence), le message d'erreur suivant apparait : "L'indice n'appartient pas à la sélection".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Dim tab_login(29) As Variant   Dim j As Integer j = 1   'Cette boucle remplit un tableau de String avec les login des utilisateurs, cela va nous servir pour tester si le login rentré est présent dans le tableau For i = 0 To 30   j = j + 1   'Cette ligne pose apparemment problème tab_login(i) = Workbooks("Pointage.xlsm").Sheets("User").Range("A" & j + 1)   Next i     If TextBoxLogin.Value = "Admin" And TextBoxMDP.Value = "test" Then   Sheets("User").Visible = True     Else Dim retour As Long retour = MsgBox(prompt:="Le login ou le mot de passe est incorrect", Buttons:=vbOKOnly)   End If

---

Merci

Bonjour,

Tu vas avoir beaucoup de mal. Les feuilles et la structure du classeur doivent être protégées avec un mot de passe et les données de connexion doivent se trouver dans des lignes ou des colonnes masquées. Autrement, il est en effet trop facile d'afficher des feuilles masquées. Et verrouille naturellement le projet VBA avec un mot de passe.

Donc la protection du fichier est compliqué ? Même si on bloque le VBA par mot de passe et les fonctions dans Excel, on peut afficher les feuilles qui sont masqués ?

Citation:

---

les données de connexion doivent se trouver dans des lignes ou des colonnes masquées

---

Mais même si les cellules sont masqués, c'est assez simple de les ré afficher, non ?

Voila par exemple une macro qui affiche toutes les feuilles du classeur actif :

Code:

---

1 2 3 4 5 6

Sub AfficherLesFeuilles() Dim Sh As Worksheet For Each Sh In ActiveWorkbook.Worksheets Sh.Visible = xlSheetVisible Next Sh End Sub

---

Il suffit de mettre cette macro dans un autre classeur.

Bonjour,

Oui, je n'avais pas pensé à cette possibilités, surtout que les données sont plus ou moins confidentiels, je pense même que de ce faite on peut faire ce que l'on veut du fichier et de ces données en se plaçant dans un autre classeur(modifier,supprimer,ajouter...) ?. Cette solution est donc à oublier et je suppose que le même problème se pose sur Access.

En tous cas merci pour les réponses

Je ne suis pas compétent en ce qui concerne Access. Tu peux quand même éviter que les feuilles soient affichées si tu protèges le classeur et que tu le déprotèges le temps d'afficher les feuilles qui vont bien.