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
 

Pièces jointes

  • CHARLIE Bouton Verrouiller déverrouiller.xlsx
    64.9 KB · Affichages: 11
Dernière édition:
Solution
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

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

Pièces jointes

  • CHARLIE Bouton Verrouiller déverrouiller(V3).xlsm
    73.2 KB · Affichages: 11

Discussions similaires

Réponses
2
Affichages
110
  • Question
Microsoft 365 Boutons
Réponses
28
Affichages
435

Statistiques des forums

Discussions
311 711
Messages
2 081 792
Membres
101 817
dernier inscrit
carvajal