XL 2016 Mot de passe avec des accès pour Projet VBA

dalisoon · 17 Juillet 2022

Bonsoir les amis :
J'ai besoin de votre aide pour avoir avoir des niveaux d'accès :

Identifiant : USER Mot de passe : USER >>> cet utilisateur doit juste accès sur le USERFORM pour juste lecture et non modification
Identifiant : ADMIN Mot de passe : USER09 >>> cet utilisateur accès sur le USERFORM pour modification et lecture

Merci

sylvanu · 17 Juillet 2022

Si ce n'est pas un utilisateur reconnu, on boucle sur la demande d'identification.

gbinforme · 17 Juillet 2022

Bonjour,

Tu as certainement de bonnes raisons de vouloir mettre des protections mais si ton classeur possède des données sensibles et intéressantes ce n'est pas tes mots de passe qui empêcheront leur accès aux personnes qui voudront y accéder.
Il serait sans doute plus sûr d'avoir deux classeurs avec un classeur de lecture et un de gestion.

sylvanu · 17 Juillet 2022

Bonjour Dalisoon,
Une réelle protection dans XL est illusoire.
Mais si ce n'est que pour se prémunir de fausses manips, alors un essai en PJ.
Si le mot de passe n'est pas celui de l'admin alors toutes les feuilles sont masquées et inaccessibles.
Seul l'admin a accès à tout.
Mettre des mots de passes sur feuille est illusoire, et obligerait à reprendre vos macros car elles y accèdent.

VB:

Private Sub CommandButton1_Click()
    If Id = "ADMIN" And MDP = "USER09" Then
        For Each Sh In Worksheets
            Sheets(Sh.Name).Visible = -1
        Next Sh
    Else
        Sheets("Menu").Visible = -1
        For Each Sh In Worksheets
            If Sh.Name <> "Menu" Then
                Sheets(Sh.Name).Visible = 2
            End If
        Next Sh
    End If
    Unload PwdRequest
End Sub

Code:

Private Sub Workbook_Open()
    PwdRequest.Show
    UserForm1.Show
End Sub

Mot de passe VBA : 1234

dalisoon · 17 Juillet 2022

Bonjour @sylvanu :
Merci c'est presque ça
sauf que c'est tu écris n'importe quel login et n'importe quel mot de passe ça passe
je veux avoir une restriction pour l'ADMIN et le USER

ADMIN mp:USER09 pour toutes les modifications et la lecture
USER mp:USER pour seulement la lecture

sylvanu · 17 Juillet 2022

dalisoon à dit:
sauf que c'est tu écris n'importe quel login et n'importe quel mot de passe ça passe

C'est ce que j'ai dit.

sylvanu à dit:
Si le mot de passe n'est pas celui de l'admin alors toutes les feuilles sont masquées et inaccessibles.

Alors précisez quoi faire si le login est différent de USER ou ADMIN.
Je n'ai pas de boule de cristal.
Il vous suffit de compléter avec un IF ENDIF sur un autre login pour dire ce que vous voulez faire.

dalisoon · 17 Juillet 2022

sylvanu à dit:
C'est ce que j'ai dit.

Alors précisez quoi faire si le login est différent de USER ou ADMIN.
Je n'ai pas de boule de cristal.
Il vous suffit de compléter avec un IF ENDIF sur un autre login pour dire ce que vous voulez faire.

@sylvanu
c'est fait je vais d'ajouter IF ENDIF
C'est resolu merci

sylvanu · 17 Juillet 2022

Si ce n'est pas un utilisateur reconnu, on boucle sur la demande d'identification.

sylvanu · 17 Juillet 2022

Oups! les messages percutent.

dalisoon · 17 Juillet 2022

sylvanu à dit:
Si ce n'est pas un utilisateur reconnu, on boucle sur la demande d'identification.

That's sounds good
merci c'est parfait pour moi

XL 2016 Mot de passe avec des accès pour Projet VBA

dalisoon

XLDnaute Nouveau

Pièces jointes

sylvanu

gbinforme

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

dalisoon

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

dalisoon

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

dalisoon

XLDnaute Nouveau

Discussions similaires