pascal21
XLDnaute Barbatruc
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
Dernière édition: