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

chaelie2015

XLDnaute Accro
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
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

Dernière édition:

jmfmarques

XLDnaute Accro
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

XLDnaute Accro
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+
 

chaelie2015

XLDnaute Accro
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 modifo_O 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

XLDnaute Barbatruc
Supporter XLD
Re,
désolé je n'avais pas testé cette config.
C'est mieux ainsi :
VB:
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
 
Ce message a été identifié comme étant une solution!

Fichiers joints

jmfmarques

XLDnaute Accro
Déjà
VB:
if ActiveSheet.Unprotect then
n'a aucun sens. une méthode (ce qu'est la méthode unprotect) n'est pas une booléenne.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas