Gestion accès utilisateurs

[julien34]

Bonjour à tous,

Je ne sais pas comment m'y prendre pour faire la chose suivante.

J'ai un classeur Excel avec un accès utilisateur qui fonctionne.

J'ai par ailleurs un bouton qui ouvre un usf pour naviguer dans les onglets du classeur. (voir feuil1)
Est ce possible que cet usf ne montre que les onglets dont j'ai donné droit à l'utilisateur qui s'est identifié ?

Ci joint le fichier

ADMIN
ADMIN
pour entrer dans le classeur

D'avance merci

 

[Dull]

Re : Gestion accès utilisateurs

Salut julien34, le Forum

Dans l'initialize de ton USF2 ajoute la partie en rouge si j'ai bien compris

Private Sub UserForm_Initialize()
For Each s In ActiveWorkbook.Sheets
If s.Visible = True Then Me.ComboBox1.AddItem s.Name
Next s
End Sub

Bonne Journée

 

[julien34]

Re : Gestion accès utilisateurs

Dull,

Parfait, c'est exactement ce que je voulais !
Merci beaucoup !

 

[julien34]

Re : Gestion accès utilisateurs

J'en profite pour te demander.
Connaitrais tu un code qui puisse cacher les onglets au bas d'Excel à l'ouverture du classeur ?

 

[Dull]

Re : Gestion accès utilisateurs

Re le fil

Dans le Module ThisWorkbook ajouter la ligne en rouge

Private Sub Workbook_Open()
Dim Ws As Worksheet
ActiveWindow.DisplayWorkbookTabs = False

'Masque toutes les feuilles sauf la feuille "Feuil1"
'!!!! ADAPTEZ le nom de la feuille qui doit rester affichée
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Feuil1" Then Ws.Visible = xlSheetVeryHidden
Next Ws
'Charge l'Userform en mémoire
Load UserForm1
'Affiche l'Userform
UserForm1.Show
End Sub

Bonne Journée

 

[julien34]

Re : Gestion accès utilisateurs

Au top "Dull"
Merci pour tout

Bonne journée

 

[julien34]

Re : Gestion accès utilisateurs

Re,

Ah comme tu trouves réponse à mes pbs dans les 5 minutes, j'en profites 🙂
y'a t'il un moyen pour que je ne vois pas tous les onglets défilés après la validation de l'usf d'accès ?

Je m'explique ...
Je rentre mon id et mdp. Lorsque je valide, tous les onglets défilent jusqu'à la destination demandée à savoir feuil8.
Et pareil à l'ouverture mais dans l'autre sens !!

Peut on régler ce pb d'une manière ou d'une autre ?

D'avance merci

 

[julien34]

Re : Gestion accès utilisateurs

Application.ScreenUpdating = False ?

 

[julien34]

Re : Gestion accès utilisateurs

Pb résolu merci