Bonsoir,
Pour changer des utilisateurs à partir de ce que j'ai fait :
- ALT + F11 pour aller dans VBA
- dans la fenetre à gauche "project", double clique sur This Workbook
- dans la macro Workbook_open", tu verras ceci :
Case Is = "A": Sheets("Planning_Sommaire").Activate: Range("A2").Select: Selection.AutoFilter Field:=4, Criteria1:="A" ou A est le nom de l'utilisateur. Il te suffit de changer A par un nouveau nom ou d'ajouter un nouvelle ligne Case is avec le nouveau nom;
Par exemple : Case Is = "Laurence": Sheets("Planning_Sommaire").Activate: Range("A2").Select: Selection.AutoFilter Field:=4, Criteria1:="Laurence"
Attention de bien toujours encoder les noms de la même manière; respect des lettres et espaces.
Pour ce qui est de protéger, tu peux utiliser l'option, protection feuille du menu - Données et / ou enregistre le fichier sous un autre nom et dans les options, choisir "lecture seule". Cette dernière s'appliquera à tous les utilisateurs du fichier. Cela peut être fait par macro à l'ouverture du fichier.
Espérant t'avoir aidé.
Si pb n'hésite pas
@+ Dan