Protéger Macro mot de passe

Bonjour tout le monde

Je vous adresse encore une fois une question que je n'arrive pas à régler malgré mes différentes recherches, et sur Google, et sur le forum.

Mon problème est relativement simple, j'ai une macro qui s'appelle "Affiche" et qui permet d'afficher une liste d'onglets dans mon fichier Excel.

Or, deux de ces onglets sont confidentiels et ne doivent pouvoir être affichés uniquement sur saisie d'un mot de passe (genre "Toto").

Sauriez vous quel code je dois insérer pour que cette fonction soit protégée par mot de passe?

Mille merci pour vos retours, très bonne journée

Bonsoir,

Ci-joint un exemple à tester et à adapter.

• onglets masqués
• code VBA protégé

Bonne soirée

Bouben

merci beaucoup pour ta réponse

je vais modifier la macro et la tester

sais tu par contre où je peux modifier le mot de passe VBA (tata)?

Je ne le trouve pas dans le code

Merci beaucoup et bonne journée

Bonjour à tous

Pour le MdP VBA

Depuis le développeur Clic Droit sur VBAProject(OngletsConfidentiels.xlsm)

Propriétés de VBAProject

Protection

Et les MdP sont sous forme de *****

Bonjour à tous

Malgré de nombreux essais, je n'arrive pas à faire ce qu eje souhaite avec la confidentialité de certains onglets

En fait, j'ai deux macros:

Une pour afficher :

Sub Afficher()
Dim Fe As Worksheet
For Each Fe In Worksheets
Fe.Visible = True
Next Fe
Set Fe = Nothing
End Sub

Et une pour cacher :

Sub Cacher()
Worksheets("SUMMARY BY ACTIVITY").Visible = False
Worksheets("PIVOT BY ACTIVITY").Visible = False
Worksheets("TAUX").Visible = False
Worksheets("TCD Charts").Visible = False
Worksheets("Data TABLES").Visible = False
End Sub

J'ai également un bouton pour chacune de ces macro.

Ce que je souhaiterai faire, c'est que lorsque je clique sur le bouton "Afficher" (lancement de la première macro), Excel me demande un mot de passe (comme dans l'exemple plus haut, "toto")

Savez vous quel code je dois créer pour ma macro "Afficher" afin de répondre à mon problème?

Un grand merci pour votre aide car là je nage complètement

Bonjour,

A tester

Bonjour

Je reviens vers vous concernant ma précédente demande

Le code proposé fonctionnait mais maintenant, cela ne fonctionne plus. A priori je n'ai rien modifié mais maintenant, quand je clique sur le bouton permettant de lancer la macro d'affichage, le mot de passe m'est demandé et ensuite j'ai cette erreur :

pour rappel voici le code utilisé:

Option Explicit

Public Const MS_MP As String = "einstein"

Public Sub MotPasse()
    frmMotPasse.Show vbModal
End Sub

Public Sub AfficherMasquer(pbAffich As Boolean)
    Dim Fe As Worksheet
        For Each Fe In Worksheets
            If pbAffich Then Fe.Visible = True
        Next Fe
    Set Fe = Nothing
End Sub

Sub Cacher2()
    Worksheets("PIVOT_GLOBAL").Visible = 2
    Worksheets("Liste titres affaires").Visible = 2
    Worksheets("Graphic data").Visible = 2
    Worksheets("Code Pays").Visible = 2
    Worksheets("Contrôle Total").Visible = 2
End Sub

Savez vous d'où cela vient? J'ai pourtant désactivé le complément pour l'Euro...