Autres boutons verrouiller et déverrouiller par le code de protection de la feuille

[chaelie2015]

Bonjour forum
je souhaite créer un code qui verrouiller et déverrouiller la feuille par le code de protection de la feuille.
si je clique sur le bouton vert donc verrouiller la feuille et masquer ce bouton il s'affichera le bouton rouge et vis versa si je clique sur le bouton rouge donc déverrouiller la feuille avec affichage d'une fenetre pour saisir le MDP et masquer ce bouton il s'affichera le bouton VERT cette fois.

merci par avance

 

[sylvanu]

Bonjour Chaelie,
Un essai en PJ.

 

[jmfmarques]

Bonjour
Autrement dit, tu veux faire en cliquant sur ces 2 boutons, ce que tu ferais en cliquant menu -->> révision -->> protéger ou déprotéger la feuille.
Une idée pour que tu apprennes à pêcher : utilise l'enregistreur de macros et tu auras l'essentiel du code à écrire à cette fin.

 

[chaelie2015]

Bonjour sylvanu ,jmfmarques
Merci sylvanu pour la réponse , mais je souhaite donc le cas de déverrouillage ,afficher une fenetre pour saisir le MDP est ce possible ?
@ jmfmarques: merci pour l'astuce.
A+

 

[sylvanu]

Re bonjour,

 

[chaelie2015]

Re
C'est extrat , merci sylvanu et bonne journnée.
a+

 

[chaelie2015]

Re
j'ai un autre souci , si je clic sur annulé ou le MDP est erroné j'ai un bug
j'ai testé avec cette modif😵 sur le code de sylvanu mais ca n'a rien donné.

Sub Deprotege()
if ActiveSheet.Unprotect then
ActiveSheet.Shapes("déverrouiller").Visible = True
ActiveSheet.Shapes("verrouiller").Visible = False
else
exit sub
end if

End Sub
merci

 

[sylvanu]

Re,
désolé je n'avais pas testé cette config.
C'est mieux ainsi :

Sub Deprotege()
On Error GoTo Fin
    ActiveSheet.Unprotect
    If ActiveSheet.ProtectContents = False Then
        ActiveSheet.Shapes("déverrouiller").Visible = True
        ActiveSheet.Shapes("verrouiller").Visible = False
    End If
Fin:
End Sub

 

[jmfmarques]

Déjà

if ActiveSheet.Unprotect then

n'a aucun sens. une méthode (ce qu'est la méthode unprotect) n'est pas une booléenne.

 

[sylvanu]

Re,
J'ai écrit :

 If ActiveSheet.ProtectContents = False Then

Testez !

 

[jmfmarques]

Toi, oui, sylvanu. Pas chaelie2015 en son message #7 et que ma remarque concernait 😀

 

[chaelie2015]

Toi, oui, sylvanu. Pas chaelie2015 en son message #7 et que ma remarque concernait 😀

Re
c'est moi qui a modifié le code de sylvanu 😱 désolé.
a+

 

[jmfmarques]

c'est moi qui a modifié le code de sylvanu 😱 désolé.

1) pas grave
2) tu voudras bien comprendre ma réaction concernant un point aussi fondamental et dont il m'apparaît que ne pas le relever serait trahir (surtout un débutant).