VBA-E] Mots de passe multi-users

J'ai une petite question je dois, sur plusieurs classeurs Excel installer des mots de passes multi utilisateurs :(

exemple

sur classeur 1
user1 peut lire feuille1 (seulement) et modifier feuille2
user2 peut modifier feuille1 et pas voir feuille2
user3 peut lire feuille1 et feuille2 et modifier feuille3
user_patron lire et modifier tout!

idem sur classeur 2 et 3 avec des droits différents

(je précise que c'est le patron qui me l'a demandé ) :evil:

Je voudrais savoir si Excel gère les multi-users et dans ce cas comment on fait ou bien est-ce qu'il faut tout développer en VBA.

Je voudrais savoir si on peut déposé du code pour la communauté, Administrateur et modérateurs veuillez me répondre s'il vous plait

et si quelqu'un a développé un truc du même genre cela m'interesse. :wink:

merci à tous

Merci je connaisssait pas. :idea:

Je suppose que l'on met ce code dans :

Private Sub Worksheet_activate()

Si on le met ailleurs merci de me le signaler. 8O

Bon je vais tester cela et je reviendrais en cas de pepin 8)

Merci encore

Salut ouskel'n'or,

Bon j'ai utilisé .UserName mais il doit y avoir autre chose parce j'ai un problème. :(

J'ai fais comme tu ma dis :

Code:

---

1 2 3 4 5 6 7

Sub Workbook_Open() With Application MonUserActif = .UserName End With MsgBox "Current user is : " & MonUserActif   End Sub

---

et j'ai comme réponse Current user is : * :?: :?: :?:

Sachant que je me suis connecter au démarrage sur le réseau de l'entreprise avec un nom user et un mot de passe le : "*" ne m'aide pas beaucoup.
Je suis allé voir l'aide incluse à Excel de microsoft qui est très pauvre sur ce point précis. :evil:

j'ai essayer ceci aussi :

Code:

---

MsgBox "Current user is : " & Application.UserName

---

mais c'est pareil :cry:
Sachant qu'après je voudrai faire un select case suivant la valeur de : "MonUserActif",

Un petit coup de main serai grandement apprécié.

Merci d'avance

Salut,

Je ne vois pas le problème car lorsque j'utilise le code de ouskel'n'or, cela me donne bien le bon nom d'utilisateur .....

Regarde au niveau de la lisence à quel nom elle est cela peut peut-être venir de là.

J'espère que tu trouveras une solution

Bon courage

Théo

Bien vu :bravo:

Effectivement le nom de l'utilisateur est : * :!: :!:

Donc le code fonctionne bien merci. :) (je suis arrivé depuis peu et j'avais pas encore remarqué. :| )

Mais au vu de ce que je vois j'ai donc l'impression que c'est lié au poste, ou plus exactement à la licence qui se trouve sur le poste. Or ces nom de licence sont encore plus étonnant que mon etoile (je viens de verifier) et chez moi les postes ne sont pas forcement dédier à une personne... :evil:

J'ai pensé :idea: (oui ça m'arrive quelque fois) à utiliser un userforms de récupérer un nom user + un mot de passe et en fonction du résultat de mettre en oeuvre mes autorisation sur les feuilles.

Est-ce que d'après vous cela résoudrai mon pbl et est-ce suffisamment sécurisé :?:

J'ai peut-être pas pensé à des astuces et si vous en avez, ou même seulement un avis, je suis curieux de les connaître. :wink:

Merci d'avance :D

WHAOU :ave:

Si j'ai bien compris tu cryptes son code et tu le planques dans ton code VBA ?
Si c'est ça c'est hyper puissant !
Jamais vu ni entendu un truc pareil, :hola: mais bon je suis un simple autodidacte de la programmation VBA avec quelques notions d'objets. :?

Alors s'il te plait Ouskel'n'or je ne te demande pas ta formule miracle de cryptage, mais peux-tu m'explique ce que fait ta deuxième ligne de code : 8O

Code:

---

Application.VBE.CodePanes(2).CodeModule.ReplaceLine 25, msg

---

CodePanes : c'est quoi et pourquoi tu mets 2
CodeModule : ça sert à quoi
ReplaceLine 25, msg : ça j'ai compris, en ligne 25 tu place ton code crypté qui se trouve dans msg

Même l'aide d'Excel ne ma pas permis de comprendre : les explications sont vraiement très succintes :!:


Excuses moi de te déranger pour des choses qui peuvent te paraître simple mais j'ai des centaines de points d'interrogation qui se bouscule dans ma tête :oops: Et puis si j'ai mal compris si cela ne fait pas ce que je crois que cela fait peux-tu me ré-expliquer ?

Merci d'avance pour ta gentillesse et ton expertise