Bonjour,
J'ai ce code pour protéger les feuilles d'un classeur excel 2013.
J'ai créé une boîte de dialogue nommée "Dial" avec une zone de texte nommée "DialText1" et un bouton de commande "Protéger"
Lorsque je lance l'exécution, je tape une mot de passe dans la zone de texte mais le code se bloque au niveau de l'instruction:
ActiveSheet.Protect Contents:=True, Pasword:=MPasse
Pouvez-vous m'aider?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Protéger_Click()
    MPasse = Dial.DialTxt1.Value
    NbFeu = ActiveWorkbook.Sheets.Count
        For Cpt = 1 To NbFeu
            Sheets(Cpt).Activate
            ActiveSheet.Protect Contents:=True, Pasword:=MPasse
        Next Cpt
    Dial.Hide
End Sub