XL 2016 Protection des feuilles

[Elow]

Bonjour,
Je souhaiterai créer un classeur avec 35 feuilles.
L'idée serait que, à part pour moi-même, que chacun des 34 autres utilisateurs n'ait accès qu'à une seule des feuilles du classeur (celle concernant sa structure) et qu'il n'ait qu'un accès de consultation. (pas de consultation possible)
Aussi je souhaiterai donc protéger chaque feuille. Est-ce possible?si oui, comment?

Merci d'avance pour votre aide

 

[Corentin.PL]

Bonjour,
Pas possible de créer 35 fichiers nominatifs protégés par des mots de passe différents ?
Sinon je crois qu'il faut passer par la création de groupes d'utilisateurs et d'autorisations, mais n'ayant jamais procédé à ce genre de paramétrage je ne peux t'aider.
Navré,
Corentin

 

[Elow]

Bonjour,
Pas possible de créer 35 fichiers nominatifs protégés par des mots de passe différents ?
Sinon je crois qu'il faut passer par la création de groupes d'utilisateurs et d'autorisations, mais n'ayant jamais procédé à ce genre de paramétrage je ne peux t'aider.
Navré,
Corentin

Il est malheureusement nécessaire que nous ayons un suivi régulier, sur le premier onglet qui du coup alimenterait les 34 autres hors j'ignore si un classeur peut en alimenter un autre / 34 autres

 

[Corentin.PL]

Si je ne me trompe pas, ce doit être possible.
Regarde du coté des références entre classeus !

Bon courage

 

[Yannick35]

Bonjour,
Tu peux essayer ce type de code :

Private Sub Workbook_Open()

Dim Nom As String
Dim compt1 As Double

Nom = Application.UserName

For compt1 = 2 To 3
If Range("A" & compt1) = Nom Then
Worksheets(1).Visible = True
Worksheets(2).Visible = False
End If
Next compt1

End Sub

 

[GALOUGALOU]

bonjour elow bonsoir le fil, le forum
une solution avec une fonction

Function VerifMDP(Utilisateur As String, MdP As String) As Boolean
Dim rngTrouve As Range
VerifMDP = False 'par défaut, renvoie FAUX

With Sheets("parametrage") 'dans la feuille paramétrage
     'cherche, colonne A, le nom d'utilisateur saisi
    Set rngTrouve = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole)
    If rngTrouve Is Nothing Then 'si il ne trouve pas
        VerifMDP = False 'la fonction renvoie faux
    Else 's'il le trouve
        'vérifie que le mot saisi feuille parametrgae colonne B est identique
        'au mot de passe saisi dans l'USF
        If rngTrouve.Offset(0, 1) <> MdP Then
            VerifMDP = False 'si FAUX
        Else
            VerifMDP = True 'si VRAI
        End If
    End If
End With
End Function

le tuto sur le site comment ça marche

VBA Excel - Mot de passe et Utilisateurs

Cette fiche pratique vous permet de configurer votre classeur Excel afin que chaque utilisateur accède uniquement aux feuilles qui lui sont autorisées. L'objectif est que chaque utilisateur puisse avoir accès...

www.commentcamarche.net

dans le classeur ci-dessous vous ouvrez tous les onglets avec id ADMIN mot de passe ADMIN
vous affectez à chaque utilisateur un onglet accessible avec un mot de passe personnalisé
n'oubliez pas de proteger le code vba avec un mot de passe
cordialement
galougalou

 

[GALOUGALOU]

bonjour le fil
ce classeur avec 34 onglets, chaque feuille protégé avec un mot de passe MDP, toutes modifications impossible, code vba protégé avec mot de passe MAISON
la feuille paramétrage doit être renseignée par l'administrateur
cordialement
galougalou

 

[Elow]

Je vous remercie, je vais regarder vos idées et mettre ça en place. vous êtes géniaux !