Bonjour Le forum

Pour éviter que "n'importe qui" puisse exécuter le code ci-dessous et voir mes feuilles, je souhaite qu'on m'aide à conditionner l'exécution par l'entrée d'un mot de passe valide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub Voir()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Visible = 1
    Next sh
End Sub
Exemple : le mot de passe sera "capi" sachant que je vais le changer dans mon cas réel.