Macro pour afficher toutes les feuilles masquées

Bonjour

Quelqu'un pourrait-il m'aider pour trouver une macro qui me permettrais d'afficher toutes les feuilles masquées.

Dans le fichier joint j'ai encore noté quelques indications pour faciliter la compréhension

Merci d'avance

Bonjour

Modifies ta macro

Sub Afficher_feuille_MDP()
Dim Ws As Worksheet
    Dim sPass As String
    sPass = InputBox("Veuillez saisir le mot de passe")
    If sPass = "excel" Then
        Range("G4").FormulaR1C1 = "=RC[-4]*RC[-2]"
        Range("G5").Select
        For Each Ws In Sheets
          Ws.Visible = True
        Next Ws
    End If
End Sub

Super top ça fonctionne parfaitement

merci beaucoup

Suis nouveau sur ce forum et je suis impressionné par la rapidité et l'efficacité de la communauté du site

Chapeau bas

bonjour

et merci d'avance pour les services que vous rendez à travers ce forum

je suis bien intéressé par ce sujet d'affichage simultané de plusieurs feuilles en même temps

mais vu mes connaissances bien limitées en la matière d'utilisation de la macro ! merci de m'expliquer la procédure

bonne journée

Bonjour

Simultané pas tellement, mais (en principe) imperceptible à l'oeil humain

On passe en revue toutes les feuilles For Each Ws In Sheets du classeur et on les rend visible Ws.Visible = True une par une

Voilà c'est tout pas plus compliqué

Le sujet est de masquer les feuilles, est-ce que cela répond à ta question ?