Discussion :

[thibaut.eugene]

Bonjour à tous,

Voici 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'on affiche la feuille Vierge
    Sheets("Vierge").Visible = True
'on planque toutes les autres feuilles sauf Vierge
    For x = 1 To ThisWorkbook.Sheets.Count
        If Sheets(x).Name <> "Vierge" Then Sheets(x).Visible = xlSheetVeryHidden
    Next
End Sub
 
Private Sub Workbook_Open()
On Error Resume Next
    Application.ScreenUpdating = False
'on defini un pointeur
    Pointeur = 0
 
'on affiche la feuille Vierge
    Sheets("Vierge").Visible = True
'on va dessus
    Sheets("Vierge").Activate
'on planque toutes les autres
    For x = 1 To ThisWorkbook.Sheets.Count
        If Sheets(x).Name <> "Vierge" Then Sheets(x).Visible = xlSheetVeryHidden
    Next
 
'on saisit le user
    User = InputBox("Veuillez saisir votre nom d'utilisateur", "Utilisateur")
'on saisit le mot de passe
    MDP = InputBox("Veuillez saisir votre mot de passe", "Mot de passe")
 
'Derniere ligne du tableau de la feuille DroitsUsers pour boucler dessus
    DerLigne = Sheets("DroitsUsers").Range("A65536").End(xlUp).Row
 
'on boucle pour trouver les occurences, x=2 car je pars du principe que la premiere ligne _
contient les entetes de colonne
    For x = 2 To DerLigne
'si ce qu'il y a dans la colonne1 (Colonne A : user) = le user saisi _
ET ce qu'il y a dans la colonne2 (Colonne B : mot de passe)
        If Worksheets("DroitsUsers").Cells(x, 1) = User And Worksheets("DroitsUsers").Cells(x, 2) = MDP Then
'on affiche la feuille définié en colonne3 (Colonne C : Onglet autorisé)
'on affiche la feuille correspondante
            FeuilleVisible = Worksheets("DroitsUsers").Cells(x, 3)
            Sheets(FeuilleVisible).Visible = True
'on va dessus
            Sheets(FeuilleVisible).Activate
'on se met un pointeur pour voir si on trouve quelque chose, si on trouve rien on quittera
            Pointeur = Pointeur + 1
        End If
 
    Next x
 
'Si le pointeur est 0 on ferme le fichier.
    If Pointeur = 0 Then
        MsgBox "Utilisateur ou mot de passe non valide" & vbCrLf & vbCrLf & "Le fichier va se fermer", vbCritical + vbOKOnly, "Sécurité"
        ActiveWorkbook.Close SaveChanges:=False
    End If
 
'on planque la feuille Vierge
    Sheets("Vierge").Visible = 2
 
    Application.ScreenUpdating = True
End Sub

Mon objectif est d'ouvrir l'Excel uniquement en lecture pour tout public et en écriture pour Toto et Titi. Malheureusement je n'y arrive pas...
Mon code me permet uniquement de donner accès à un onglet ou à un autre toujours en écriture. C'est ce que j'ai choisi de faire en attendant !

Pouvez-vous me propose une solution pour Lecture et Ecriture ?

Merci beaucoup d'avance,

Thibaut.

[MarcClap]

Bonjour Thibaut

Est ce que la solution native proposée par EXCEL qui consiste a protéger un fichier Excel en définissant un mot de passe pour autoriser la lecture ou la modification, ne suffirait-elle pas ?

Dans le cas contraire, la seule solution que je vois, pour permettre de gérer les accès utilisateur par utilisateur, consisterait à ajouter la protection de l'intégralité des feuilles affichées pour ceux qui ne sont autorisés qu'à lire.

Donc à insérer après avoir rendu la feuille visible

Code :

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

Sheets(FeuilleVisible).Protect Password:="motdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True

"Motdepasse" étant connu que dans la macro, personne ne pourra enlever la protection, si le code est protégé lui aussi.

[Menhir]

J'espère que tu fais cela pour le confort des utilisateur (mais dans ce cas pourquoi un MdP ?) et non pas pour la sécurité.
Parce qu'il suffit que l'utilisateur ne coche pas la case "Activer les macros" à l'ouverture du fichier, et ton château de cartes s'effondre.

[thibaut.eugene]

Menhir merci pour ta réponse. C'est effectivement une très bonne remarque... Je souhaitais le faire en passant par cmd mais mon service informatique ne souhaite pas le mettre en place, je passe donc par du VBA. As-tu une autre solution ? Précision, je le fais pour des collègues d'un autre service pour éviter suspicion entre collègue.

Merci MarcClap. La solution d'Excel avec MDP n'est pas mal, mais pour contourner tu fais enregistrer-sous avec un autre nom, puis tu supprimes l'Excel initial et tu renommes avec le nom initial.... Mais si je n'ai pas mieux je vais prendre ta proposition. Peux-tu expliquer ton code STP ?

Vraiment merci,

Thibaut.

[MarcelG]

Bonjour,

Une autre possibilité consisterait à changer le mode d'accès au classeur en fonction de son mode d'ouverture (ReadOnly) et/ou de l'identifiant machine de l'utilisateur (UserName)

[MarcClap]

Thibaut

La ligne de code que je te propose d'insérer, protège la feuille. On ne peut plus la modifier ni en contenu, ni en structure. De ce fait, seule la lecture reste possible.

[Menhir]

As-tu une autre solution ?

La protection de fichier via VBA est un sujet récurent sur ce forum (fais une petite recherche sur "mot de passe").
La conclusion est généralement qu'on ne peut pas faire une protection sérieuse via VBA.

Merci MarcClap. La solution d'Excel avec MDP n'est pas mal, mais pour contourner tu fais enregistrer-sous avec un autre nom, puis tu supprimes l'Excel initial et tu renommes avec le nom initial....

Demande-toi ce qui se passe si l'utilisateur enregistre le fichier en XLSX.
Abracadabra !!! Disparues les macros de protection.

Le plus fiable est de protéger les feuilles en écriture (en décochant la possibilité de sélectionner une cellule) avec un mot de passe différent pour chaque feuille en utilisant les commandes Excel (sans macro) : Ruban Révision > Protéger la feuille.
Tu donnes le mot de passe aux utilisateurs qui ont le droit d'utiliser ces feuilles.
Ca n'est pas inviolable mais c'est déjà plus costaud à contourner.

[thibaut.eugene]

Bonjour à tous,

Merci MarcClap, j'avais compris ton code mais pas l'objectif du code. Effectivement, ta proposition ne convient pas car un ou deux auteurs doivent garder la main sur la structure et les données. Mais je garde ta première solution de MDP lecture / écriture.

Menhir je suis totalement d'accord avec toi.... Mais, si l'utilisateur en arrive à faire toutes ces manipulations c'est qu'il souhaite réellement crasher l'outil et par conséquent qu'importe la sécurité il y arrivera toujours. Donc je vais opter pour la solution de mot de passe Excel proposé par MarcClap.

Solution : Fichier > Enregistrer sous > Outils > Options générales > enregistrement du MDP

Merci à tous,

Thibaut !