Problème sur mes macros?

Bonjour,

J'ai créer un bouton qui s'appelle "Masquer les feuilles" hors la feuille de calcul "Accueil", et je souhaiterais mettre un mot de passe sur cette macro afin d'empêcher des gens d'y accéder :

'Masquer les feuilles hors la feuille "Accueil"

Sub Masquerfeuille()

Dim i As Integer

If MsgBox("Voulez-vous vraiment masquer les feuilles?", vbYesNo + vbCritical + vbDefaultButton2, "Confirmation!") = vbYes Then

For i = 1 To Sheets.Count - 1

Sheets("xxxx").Visible = xlSheetVeryHidden

Next i

End If

End Sub

J'ai commencé à écrire cette macro pour le mot de passe, mais celle-ci ne marche pas car la macro "Masquer les feuilles" est déjà actif et je n'arrive pas à mettre cette macro "Mot de passe" sur celle existante :

'Activer le mot de passe sur ce Classeur

Private Sub ActiverMotDePasse()

If monpassword = "546952" Then

Sheets("xxxx").Visible = True

Worksheets("Service_Tech").Select

Range("A1").Select

End If

End Sub

Donc si quelqu'un peut m'aider car j'avoue que je ne comprends pas comment faire.

Merci