Discussion :

[la_mule]

Bonjour,
je suis actuellement en cours de création d'un USERFORM d'autorisation d'accès...

Ce dernier a pour but de donner accès à une certaine partie d'un classeur EXCEL ou/et à certaine cellules ou plage de cellules.

Ce classeur étant utilisé par plusieurs groupe de travail différent il m'est important que ces derniers ne puissent consulter et modifier le reste du classeur.

Cet USERFORM est composé :

- d'une COMBOBOX qui permet de sélectionné le groupe de travail

- d'une TEXTBOX qui permet de saisir un mot de passe différent pour chaque groupe de travail

- d'un bouton VALIDER pour afficher le classeur avec certains onglet masqué en fonction de chaque groupe de travail si le mot de passe est en accord avec le groupe de travail.

- d'un bouton QUITTER qui permet de sortir d'EXCEL et du fichier sans pour autant interférer avec l'affichage par défaut EXCEL en cas d'ouverture d'un autre classeur.

- d'un bouton CHANGER MOT DE PASSE qui appel un autre USERFORM

Je cherche donc un bout de code pour me permettre dans un premier temps de pouvoir comparer le mot de passe saisi avec le groupe de travail sélectionné et d'autoriser l'accès au classeur si le mot de passe est correct.

Merci d'avance pour votre aide.

[Invité]

Bonjour

Je cherche donc un bout de code pour me permettre dans un premier temps de pouvoir comparer le mot de passe saisi avec le groupe de travail sélectionné et d'autoriser l'accès au classeur si le mot de passe est correct.

Est-ce que ces mots de passes sont sur une feuille de ton classeur ? Si oui, tu trouveras de nombreux exemples sur le forum et la FAQ pour accéder à une feuille à partir d'un UserForm ou faire des recherches sur une feuille.

De plus, sache que ton système ne sera pas inviolable pour des utilisateurs avertis, il suffit de désactiver les macros.

Une dernière chose, tu parles de plusieurs groupes de travail, etc.. avec des des protections. Si tu partages ton classeur, sache qu'il y a des choses que tu ne pourras pas faire, entre autre la protection et déprotection des feuilles.

Donc avant de faire ta boite de contrôle d'accès, regardes si sans cela tu peux faire ce que tu veux.

Phlippe

[la_mule]

Négatif, les mots de passe seront stockés dans le code VB.
D'ailleurs il me faut trouver une façon de modifier ces dernier depuis un autre Userfom "changement de mot de passe"

Concernant la protection du classeur, j'ai dans l'idée de verrouiller tout le classeur sauf les cellules qui nécessite une modification de la part de tous les utilisateurs.

Ma solution pour que chaque module ne puisse pas consulter les infos des autres module : j'intègrerais un code VB pour afficher que la partie nécessaire en fonction du module sélectionner sur mon Userform "autorisation d'accès". Onglets, cellules seront liés au module de travail actif.

[Invité]

Re

Négatif, les mots de passe seront stockés dans le code VB.
D'ailleurs il me faut trouver une façon de modifier ces dernier depuis un autre Userfom "changement de mot de passe"

C'est possible, mais je ne sais pas si l'accès au code VB est possible dans un classeur partagé, personnellement, je ne trouve pas cela top.


Philippe

[patricktoulon]

bonjour

par definition un mot de passe est present pour raison de securité

si tu ne protege pas le projet par mot de passe il serait facile pour tout utilisateur d'en modifier le contenu

une piste

regarde du coté de la base de registre
http://excel.developpez.com/faq/inde...le#SaveSetting
et met un mot de passe different pour ton projet dans l'editeur vbe


allez
au plaisir

[la_mule]

Concernant le USERFORM autorisation d'accès, il est fonctionnel, je remercie SECATEUR pour son code qui m'as permis de régler le problème.

Je poste ci dessous le code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Valider_Click()
    groupe = Me.ComboBox1.Value
    Select Case groupe
        Case "SECRETARIAT"
            mdp = "trucmuch"
        Case "PLANIFICATION"
            mdp = "bidule"
        '...
    End Select
    mymdp = Me.TextBox1.Value
    If mdp <> mymdp Then
        MsgBox "Le mot de passe n'est pas valable"
        Unload Me
        UserForm1.Show
    Else
        Unload Me
        ' la suite de ton programme
    End If
End Sub

ENCORE MERCI !!!