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

dalisoon

XLDnaute Nouveau
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
 

Pièces jointes

  • Projet vba.xlsm
    65.6 KB · Affichages: 21
Dernière édition:

gbinforme

XLDnaute Impliqué
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

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Projet vba.xlsm
    71.4 KB · Affichages: 18

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Discussions similaires

Réponses
2
Affichages
114
Réponses
4
Affichages
595
Réponses
46
Affichages
648