XL 2019 Empêcher d'imprimer une feuille

[Yann71]

Bonjour le forum. J'ai trouvé ici un Userform qui affiche toutes les feuilles du classeur. Une case à cochée
se trouve devant leur nom, ce qui me permet de sélectionner la ou les feuilles que je souhaite imprimer.
Ma question, est-ce qu'il est possible de ne pas rendre visible certaine feuille, pour éviter ainsi
qu'une personne puisse les imprimer.
Merci pour votre aide.

 

[fanch55]

Bonjour,
Masquer les feuilles voulues.
Dans le code de l'userform:

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

 

[Yann71]

Bonjour,
Masquer les feuilles voulues.
Dans le code de l'userform:

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

Bonjour fanch55. Merci pour ton intervention. J'ai des feuilles masquées mais elles apparaissent toujours dans la liste. Je n'ai pu envoyer le fichier original car il est assez lourd.

Mes feuilles sont masquée grâce au code : Sheets("Feuil2").Visible = xlVeryHidden, car en ouvrant le classeur chaque personne doit entrer leur identifiant et mdp dans un userform. Donc sur une feuilles "Paramètres", j'ai les noms et mdps de chaque personne et chacune d'entre elle on accès à certaine feuille. Il me suffit d'inscrire un "x" dans la cellule se trouvant en dessous du nom de la feuille pour donner l'accès à ces feuilles.

 

[fanch55]

Bonjour fanch55. Merci pour ton intervention. J'ai des feuilles masquées mais elles apparaissent toujours dans la liste. Je n'ai pu envoyer le fichier original car il est assez lourd.

Mes feuilles sont masquée grâce au code : Sheets("Feuil2").Visible = xlVeryHidden, car en ouvrant le classeur chaque personne doit entrer leur identifiant et mdp dans un userform. Donc sur une feuilles "Paramètres", j'ai les noms et mdps de chaque personne et chacune d'entre elle on accès à certaine feuille. Il me suffit d'inscrire un "x" dans la cellule se trouvant en dessous du nom de la feuille pour donner l'accès à ces feuilles.

Le code fourni devrait fonctionner car on ne liste que les feuilles visibles .

 

[Yann71]

Le code fourni devrait fonctionner car on ne liste que les feuilles visibles .

Bonjour fanch55, cela fonctionne. Je te remercie pour ton aide.

Meilleures salutations

Yann