Comment protéger une macro par mot de passe ?

Fermé
sekouausud -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
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

2 réponses

  1.
    Frenchie83 Messages postés 2254 Statut Membre 339
     
    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
    0

Discussions similaires

Mot de passe administrateur Freebox : où le trouver ?
Utilisateur anonyme -
Marie -

7 réponses