Gestion accès utilisateurs

Dull

XLDnaute Barbatruc

• 16 Décembre 2013

• #2

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

Cliquez pour agrandir...

Bonne Journée

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 16 Décembre 2013

• #3

Re : Gestion accès utilisateurs

Dull,

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

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 16 Décembre 2013

• #4

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 ?

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 16 Décembre 2013

• #5

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

Cliquez pour agrandir...

Bonne Journée

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 16 Décembre 2013

• #6

Re : Gestion accès utilisateurs

Au top "Dull"
Merci pour tout

Bonne journée

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 16 Décembre 2013

• #7

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

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 16 Décembre 2013

• #8

Re : Gestion accès utilisateurs

Application.ScreenUpdating = False ?

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 16 Décembre 2013

• #9

Re : Gestion accès utilisateurs

Pb résolu merci

 

Vote positif 0 Vote négatif