Mot de passe d'une macro
Bonjour à tous,
Je voudrais mettre un mot de passe différent pour chaque colonne (olivier, cédric, bruno)
Il y a la possibilité avec : Outils > Protection > permettre à des utilisateurs de modifier des plages.
Après on clique sur nouveau, on rentre un nom de plage et on selectionne la plage en question et on rentre un mot de passe.
On valide. On peux faire autant de plage que l'on veut.
Quand on cliques sur une des zones à modifier il te demande le mot de passe !!
L'inconvénient est que l'on doit retaper les mots de passe à chaque fois que l'on intervient sur ce fichier sachant que les 3 personnes doivent gérer indépendamment le fichier
je voudrais mettre une macro pour éviter de faire ces opérations
Autrement existe-t-il une autre facon sachant que les 3 personnes ont chaun un ordi différent
je préfererais travailler avec une macro,
Merci
Bonjour,
Personnellement je ferais à l'ouverture un vérouillage respectivement dévérouillage des différentes plage en fonction, soit d'une petite boite de dialogue ou l'utilisateur tapera son mot de passe ou directement en récupérant le nom d'utilisateur Windows.
Petite piste pour commencer :
Private Sub Workbook_Open()
Dim Qui As String, Plage As String
Qui = UCase(InputBox("Entrez votre nom"))
Select Case Qui
Case Is = "OLIVIER": Plage = "A:A"
Case Is = "CEDRIC": Plage = "B:B"
Case Is = "BRUNO": Plage = "C:C"
Case Else: Plage = ""
End Select
If Plage = "" Then Exit Sub
With Sheets("Feuil1")
.Unprotect Password:=""
.Range(Plage).Locked = False
.Protect Password:=""
End With
End Sub