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

[dalisoon]

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

 

[gbinforme]

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]

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.

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

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

Mot de passe VBA : 1234

 

[dalisoon]

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]

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.

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]

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]

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

 

[sylvanu]

Oups! les messages percutent.

 

[dalisoon]

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