Protéger une macro spécifiquee par mot de passe

Bonsoir,
Cherche aide ;
Dans classeur excel j'ai une feuil "SevalA" et sur cette feuil il y a 1 bouton pour imprimer des feuilles en boucle.
Avec CCM on m'a donné le code qui suit pour lancer l'impression à partir de mon bouton :

Public Sub imprime()
Dim feu As Worksheet
For Each feu In ActiveWorkbook.Sheets
If InStr(1, feu.Name, "NevalA") Then
feu.Visible = xlSheetVisible
feu.PrintOut
feu.Visible = xlSheetHidden
End If
Next feu
End Sub

Maintenant je voudrais 1 code pour protéger le bouton d'impression, car il m'est arriver de lancer plusieurs fois l'impression par erreur.
Merci beaucoup
Cordialement