Comment protéger une macro par mot de passe ? Fermé

Question

Bonjour, 
Je cherche aide pour protéger par un mot passe 1 macro liée à mon bouton de lancement de l'impression situé dans mon classeur excel précisément dans la feuille "SevalA".
Le code macro du bouton est le suivant :
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
En fait, il m'est arrivé de lancer par erreur plusieurs l'impression en boucle et cela est très génant car il à chaque fois arrêter l'imprimante puis annuler la tâche d'impression.
Merci d'avance
Cordialement

Frenchie83 · Answer

Bonjour
Plutôt que de saisir un mot de passe, pourquoi ne pas passer par une boîte de dialogue demandant confirmation avant l'impression? 
Public Sub imprime()
    Dim feu As Worksheet
    If MsgBox("ATTENTION, Etes-vous sur de vouloir lancer l'impression?", vbYesNo + vbCritical + vbDefaultButton2, "Impression") = vbNo Then Exit Sub
    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
Si ça vous convient.
Cdlt

Mike-31 · Answer

Bonjour,
Il va falloir perdre l'habitude d'ouvrir les discussions en doublon, merci.
https://forums.commentcamarche.net/forum/affich-34251656-proteger-une-macro-specifiquee-par-mot-de-passe