Bonjour;
Je prot=E8ge mes feuilles avec la macro suivante, mais elle me demande
un mot de passe que je n'ai introduit =E0 aucun moment. Comment puis je
neutraliser la demande de mdp ?
Merci =E0 vous tous
Private Sub ToggleButton1_Click()
Application.ScreenUpdating =3D False
If ToggleButton1.Value =3D 0 Then
ToggleButton1.Caption =3D "D=E9prot=E9g=E9"
ToggleButton1.BackColor =3D &HFF00&
Sheets("Jour 6").Unprotect
Else
ToggleButton1.Caption =3D "Prot=E9g=E9"
ToggleButton1.BackColor =3D &HFF&
Sheets("Jour 6").Protect
End If
Application.ScreenUpdating =3D True
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Si tu as protégé ta feuille sans utiliser de mot de passe, que ce soit par macro ou par la commande du menu de la feuille de calcul, il n'y aucune raison que l'on demande un mot de passe pour déprotéger la feuille.
Dans ta procédure, si ton "ToggleButton1" est sur la feuille Sheets("Jour 6"), tu dois d'abord déprotéger la feuille avant de modifier le texte du Caption du bouton bascule. Tu dois inverser l'ordre des commandes dans ta macro.
MichD -------------------------------------------- "michir" a écrit dans le message de groupe de discussion :
Bonjour; Je protège mes feuilles avec la macro suivante, mais elle me demande un mot de passe que je n'ai introduit à aucun moment. Comment puis je neutraliser la demande de mdp ? Merci à vous tous Private Sub ToggleButton1_Click() Application.ScreenUpdating = False If ToggleButton1.Value = 0 Then ToggleButton1.Caption = "Déprotégé" ToggleButton1.BackColor = &HFF00& Sheets("Jour 6").Unprotect Else ToggleButton1.Caption = "Protégé" ToggleButton1.BackColor = &HFF& Sheets("Jour 6").Protect End If Application.ScreenUpdating = True End Sub
Bonjour,
Si tu as protégé ta feuille sans utiliser de mot de passe,
que ce soit par macro ou par la commande du menu de
la feuille de calcul, il n'y aucune raison que l'on demande
un mot de passe pour déprotéger la feuille.
Dans ta procédure, si ton "ToggleButton1" est sur la
feuille Sheets("Jour 6"), tu dois d'abord déprotéger la feuille
avant de modifier le texte du Caption du bouton bascule.
Tu dois inverser l'ordre des commandes dans ta macro.
MichD
--------------------------------------------
"michir" a écrit dans le message de groupe de discussion :
660d9f9a-ba4f-49af-bac5-abad4cae9ad9@v10g2000yqn.googlegroups.com...
Bonjour;
Je protège mes feuilles avec la macro suivante, mais elle me demande
un mot de passe que je n'ai introduit à aucun moment. Comment puis je
neutraliser la demande de mdp ?
Merci à vous tous
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False
If ToggleButton1.Value = 0 Then
ToggleButton1.Caption = "Déprotégé"
ToggleButton1.BackColor = &HFF00&
Sheets("Jour 6").Unprotect
Else
ToggleButton1.Caption = "Protégé"
ToggleButton1.BackColor = &HFF&
Sheets("Jour 6").Protect
End If
Application.ScreenUpdating = True
End Sub
Si tu as protégé ta feuille sans utiliser de mot de passe, que ce soit par macro ou par la commande du menu de la feuille de calcul, il n'y aucune raison que l'on demande un mot de passe pour déprotéger la feuille.
Dans ta procédure, si ton "ToggleButton1" est sur la feuille Sheets("Jour 6"), tu dois d'abord déprotéger la feuille avant de modifier le texte du Caption du bouton bascule. Tu dois inverser l'ordre des commandes dans ta macro.
MichD -------------------------------------------- "michir" a écrit dans le message de groupe de discussion :
Bonjour; Je protège mes feuilles avec la macro suivante, mais elle me demande un mot de passe que je n'ai introduit à aucun moment. Comment puis je neutraliser la demande de mdp ? Merci à vous tous Private Sub ToggleButton1_Click() Application.ScreenUpdating = False If ToggleButton1.Value = 0 Then ToggleButton1.Caption = "Déprotégé" ToggleButton1.BackColor = &HFF00& Sheets("Jour 6").Unprotect Else ToggleButton1.Caption = "Protégé" ToggleButton1.BackColor = &HFF& Sheets("Jour 6").Protect End If Application.ScreenUpdating = True End Sub
