protection par mot de passe multi utilisateurs d'après ex de Boisgontier

[pascal21]

Exemple4:Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de passe

A chaque utilisateur, il est attribuéplusieurs feuilles. La feuille Admin contient pour chaque utilisateur la
liste des feuilles qui lui sont attribuées. -ProtectionOngletMultiFeuillesMP -



Un UserForm demande le mot de passe:



Private Sub B_ok_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub

Dans un Module

Sub auto_open()
UserForm1.Show
End Sub

Sub AfficheTousOnglets()
For Each s In ActiveWorkbook.Sheets
s.Visible = True
Next s
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For s = 2 To Sheets.Count ' on masque les feuilles
Sheets(s).Visible = xlVeryHidden
Next s
End Sub

Protection

bonjour à tous
sur le site de boisgontier( merci à lui), j'ai trouvé une protection qui pourrait convenir à mon application
seul soucis que je n'arrive pas à solutionner
c'est la liste des feuilles autorisées à chaque utilisateurs
comment autoriser à partir du numéro de la feuille (ex feuil1) et non à partir du nom de l'onglet( ex analyses) , car celui-ci peut être modifié et dans ce cas çà ne fonctionnerait plus
merci

 

[pascal21]

Re : protection par mot de passe multi utilisateurs d'après ex de Boisgontier

je me permet de relancer le post

 

[kiki29]

Re : protection par mot de passe multi utilisateurs d'après ex de Boisgontier

Salut,je pense que tu parles de CodeName pour cela voir snapshot sur VBA Les bases [Résolu] - Forum des professionnels en informatique
Le CodeName permet de ne pas retoucher au code VBA si un utilisateur change le nom d'onglet,ajoute une feuille ou déplace une feuille
sinon pourquoi ne pas passer par Environ("USERNAME") qui te revoie le nom de login Windows ( pas le UserName VBA qui lui renvoie "License d'utilisation accordée à" Menu ?/A propos d'Excel )

 

[pascal21]

Re : protection par mot de passe multi utilisateurs d'après ex de Boisgontier

sinon pourquoi ne pas passer par Environ("USERNAME")

bonjour
le classeur sera sur le serveur de la boite et les utilisateurs se connecteront aux serveur
je ne sais pas si la reconnaissance peut fonctionner
je pense que je vais faire simple et trouver un code qui interdira de changer le nom de l'onglet

 

[Pierrot93]

Re : protection par mot de passe multi utilisateurs d'après ex de Boisgontier

Bonjour à tous,

et trouver un code qui interdira de changer le nom de l'onglet

protège tout simplement le classeur... cela empêche de renommer les feuilles...

bonne journée
@+

 

[noviceAG]

Re : protection par mot de passe multi utilisateurs d'après ex de Boisgontier

Bonjour pascal, kiki, Pierrot, le Forum,
Il y a aussi ceci :
Cijoint.fr - Service gratuit de dépôt de fichiers
Bonne journée à tous

 

[kiki29]

Re : protection par mot de passe multi utilisateurs d'après ex de Boisgontier

Re,je repete :

Le CodeName permet de ne pas retoucher au code VBA si un utilisateur change le nom d'onglet,ajoute une feuille ou déplace une feuille

Environ["USERNAME"] renvoie le nom de login windwos du PC qui se connecte au serveur
je n'ai plus de serveur à dispo mais comme tu en as un, rien de plus simple que de le tester