mot de passe à l'aide d'une macro

bonjour à tous,

Alors personne n'a d'avis?????


Merci de répondre


Olivier

Bonsoir,

Tiens tiens il me semble que j'ai deja vu cette question il y a un peu plus d'un mois !!!

On t'a pas dit de ne pas reposter sur le même sujet vilain !!!!

Bref, comme pour ton exemple le code est propre à chaque machine, je ne peux pas te poster d'exemple qui fonctionne.

Je vais donc t'expliquer le principe. tu vas recuperer soit le nom de l'ordinateur ou le nom de l'utilisateur (à ton bon vouloir !) sur les 3 micros.
avec la commande VBA : msgbox environ$('USERNAME') ou msgbox environ$('COMPUTERNAME').

Une fois cela tu crées tes 3 'zones' protégées en attribuant comme mot de passe ce que tu as obtenu au dessus pour les 3 machines (Attention de ne pas inverser les mot sde passes/utilisateurs lol sinon ca sert à rien hihiii).

Et enfin tu places ce code dans thisworkbook

Private Sub Workbook_Open()

Dim Qui As String
Qui = Environ$('USERNAME')

Select Case Qui
Case 'Loulou'
ActiveSheet.Protection.AllowEditRanges('Olivier').Unprotect Password:=Qui
Case 'Riri'
ActiveSheet.Protection.AllowEditRanges('Bruno').Unprotect Password:=Qui
Case Fifi
ActiveSheet.Protection.AllowEditRanges('CEdric').Unprotect Password:=Qui
End Select

End Sub

Cliquez pour agrandir...

Dans ce code je suis parti sur le username et j'ai obtenu comme reponse à l'etape 1 : Riri/fifi/loulou, et j'ai mes 3 'Zones' Bruno, Cedric et Oliver.

Et voila !!

Tu donnes le fichier et à l'ouverture sur chaque poste en fonction du username ou computername il déverouillera la partie qui va bien.

@+

Creepy

Bonsoir,

En complément à Creepy, voici un fil qui ne répond pas directement à ta demande puisque tu agis sur une plage, mais qui agit ici sur des onglets qui seraient attribués à un ou plusieurs utilisateurs.

le fil : Lien supprimé

Bon travail