XL 2019 impression multiple affiche une feuille masquée

Yann71 · 7 Septembre 2022

Bonjour la com. J'ai un classeur avec plusieurs feuilles. La feuille "Paramètres" permet donner l'autorisation d'accéder à certaine feuille
en inscrivant un "x" dans la colonne correspondante. Il y a un bouton ouvrant un Userform permettant d'imprimer la feuille en cour
ou d'afficher les feuilles du classeur permettant ainsi de sélectionner la ou les feuilles à imprimer. Pour le moment tout fonctionne, mais
là ou le problème se dévoile, c'est que si exemple "Toto2" est logué, qui n'a pas accès à la feuille "Paramètre" mais lorsqu'il désir imprimer,
toutes les feuilles sont visible dans la feuille y compris la feuille "Paramètre". Ma demande est, comment masquer cette feuille de la liste,
en faite de pouvoir masquer les feuilles qui ne sont pas visible.

Utilisateurs: Toto1 mdp 1
Toto2 mdp 2

fanch55 · 7 Septembre 2022

Bonjour,
Dans l'userform frm_impression, modifier le code existant pour l'activate comme ci-dessous :

VB:

Private Sub UserForm_Activate()
    If Oui = 0 Then
        For Each sh In Sheets
            If sh.Visible = xlSheetVisible Then Lst.AddItem sh.Name
        Next
    End If
End Sub

Yann71 · 7 Septembre 2022

fanch55 à dit:
Bonjour,
Dans l'userform frm_impression, modifier le code existant pour l'activate comme ci-dessous :

VB:

Private Sub UserForm_Activate() If Oui = 0 Then For Each sh In Sheets If sh.Visible = xlSheetVisible Then Lst.AddItem sh.Name Next End If End Sub

Bonjour Fanch55, je te remercie pour ton aide c'est parfait.

Meilleures salutations

Yann

XL 2019 impression multiple affiche une feuille masquée

Yann71

XLDnaute Occasionnel

Pièces jointes

fanch55

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

Discussions similaires