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

Question

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

michel_m · Answer

Bonjour
..."il m'est arriver de lancer plusieurs fois l'impression par erreur. "... 
si tu es le seul utilisateur, un msgbox en début de macro suffirait peut-^tre avec un "êtes vous sûr de vouloir lancer l'impresssion ?" par exemple

Mike-31 · Answer

Bonjour,
Il va falloir perdre l'habitude d'ouvrir les discussions en doublon, merci.
https://forums.commentcamarche.net/forum/affich-34251749-comment-proteger-une-macro-par-mot-de-passe#p34252323 
PS: meilleurs vœux Michel_m http://dl.free.fr/getfile.pl?file=/i5EWGGxK