Discussion :

[lelou54]

Bonjour,

j'ai récupéré un code qui permet de mettre un passe selon la personne qui se connecte avec sa session, par contre je ne sais pas comment faire pour mettre plusieurs utilisateurs, avec différents mots de passe pour chaque utilisateur.
De plus j'aimerais savoir s'il est possible pour chaque utilisateur de voir des pages spécifiques.
Merci d'avance de votre aide;

voilà mon code:

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
20
21
22
23
24
25
26
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.ScreenUpdating = False
        Dim sh As Worksheet
        For Each sh In Worksheets
            If sh.Name <> "Top" Then sh.Visible = xlVeryHidden
        Next sh
    Application.ScreenUpdating = True
End Sub
 
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
Dim prénom
Dim s As Worksheet
MsgBox Application.UserName
 
prénom = InputBox("indiquez votre code", "IDENTIFICATION")
 
If prénom = "princesse" Then
    For Each sh In Worksheets
        sh.Visible = True
    Next sh
    Else
        MsgBox "vous n'avez pas de droits sur cette application"
End If
 
End Sub

[Didier Gonard]

Bonsoir,

Tout est dans le code que tu donnes qui est très explicite, le mieux serait que tu arrives à le lire ligne pas ligne en "traduisant" ce que ça veut dire, il n'est pas très long ni complexe.

voir avec l'aide VBA et si tu butes, tu ouvres un message demandant le fonctionnement du point qui pose problème, mais point par point.

Ensuite ou si c'est déjà le cas, tu regardes du côté de l'instruction Select Case, elle me semble appropriée pour ton filtrage d'utilisateurs...

comme ici : 11-C. La structure Select Case

cordialement,

Didier

[cobra38]

Bonjour

je me permets de te soumettre cet exemple ( dont la paternité revient au Forum ) que j'ai adapté puisque j'ai été confronté au même pb

Cordialement
A+

[lelou54]

Merci de vos réponses rapides.
Cobra38, c'est tout à fait ce que je recherche comme fichier, par contre je voulais savoir si il était possible de ne pas autoriser la sauvegarde et la fonction enregistrer sous pour tous les utilisateurs sauf l'utilisateur ADMIN pour ton exemple.
Merci encore pour vos réponses très rapide

[cobra38]

Bonjour ,

Pour ma part je procède souvent par UserForm lorsqu'il s'agit de mise à jour
de données , de fait une touche "enregistrer" me permet de valider ou non la mise à jour
dans ton ton cas , le fait de protéger les feuilles te permet de verrouiller
les mises à jour ( faire une consultation donc ) et de n'autoriser la mise à jour
par le déverrouillage de la feuille sous ADMIN

Cordialement
A+

[lelou54]

Bonjour,

ton idée est trés interrensante, en faite tu mets un bouton sur la feuille visible par l'administrateur qui permet l'enregistrement.
Mais quel code tapes-tu pour empecher aux autres de ne pas enregister, mais aussi d'empecher la fonction "enregistrer sous"??
Quel code utilises-tu pour le bouton "enregistré"??
Merci de ton aide et pour tes idées

[cobra38]

en fait , je precise que je glane des idées çà et là
et je me suis aperçu que pour fiabiliser une appli sous excel
1 )il ne fallait pas autoriser l'accès à la feuille mais que sous forme d'un userform qui me permet de valider les données
2) il fallait verrouiller en écriture la feuille
3) effectuer le devérrouillage de la dite feuille lorsque l'on procède à l'enregitrement et après test de validité des données

de cette façon , il n'y a plus d'erreur et les filtres sont plus faciles à faire puisque les données sont déjà formatées avant enregistrement
Pour moi ( ce n'est que ma façon de faire ) je procède donc désormais que sous forme de userform et je ne n'autorise la modification de la table que sous couvert d'un MdP ad'hoc

en ce qui concerne l'enregistrement sous , cela ne change rien puisque la feuille est toujours protégée mais là je répond sous couvert des maitres es excel lol ...


je reste à votre dispo si d'autres questions ...
Cordialement
A+