Discussion :

[boulser]

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

[MarcelG]

Salut,

S'l te plaît, retourne tout code balisé (#).

Sans doute le mot de passe n'est-il pas exact.
Pour sa gestion, je te conseillerais l'utilisation d'une boucle Loop afin de tester son exactitude.

Autre remarque, il n'est pas besoin d'activer une feuille pour la protéger.

Enfin, je te conseillerais d'utiliser des noms de contrôle plus évocateurs, préfixés par des caractères qui en indiquent le type(Exemple : Txt_Motpass)

[boulser]

salut, merci pour la réponse

Le mot de passe, je peux mettre n'importe lequel dans la zone de texte puisque la variable et la valeur de cette zone de texte.
Ce n'est que pour ôter la protection qu'il faut le respecter. Enfin il me semble, si je n'ai pas fais d'ereur.
Boulser

[Thautheme]

Bonjour Boulser bonjour le forum,

As-tu déclaré la variable MPasse ? Où ?
Que vaut-elle au moment où ça plante ?

[Édition]
Bonjour Marcel, nos post se sont croisés...

[boulser]

La première instruction la déclare lorsque j'écris un mot de passe dans la zone de texte DialTxt1 de la boîte de dialogue Dial.
Donc la valeur de MPasse prend cette valeur en principe.
Boulser

[MarcelG]

Salut,

Essaie manuellement de protéger la feuille avec le mot de passe qui génère l'erreur.
De plus, pour cerner celle-ci, au moment de sa survenance, tu peux écrire dans la fenêtre Exécution (CTRL+G)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

?Sheets(Cpt).Name

(ne pas oublier le point d'interrogation)
puis activer la touche "Entrée".

[boulser]

j'ai essayé le code dans la fenêtre exécution, cela plante sur la première feuille.

[MarcelG]

Relance la procédure.
Au message d'erreur, tu effectues la manipulation que je t'ai indiquée.
Tu reviens en indiquant le mot de passe que tu as choisi.

Au passage, la feuille n'est-elle pas déjà protégée?

[boulser]

OK, j'ai trouvé.
Dans les propriétés de ma zone de texte "DialText1" de la boîte de dialogue "Dial", j'ai mis un espace intempestif.
Ma faute, ma très grande faute.

Merci de vos réponses et du temps que vous m'avez consacré.
Boulser