Bonjour,
je voudrais affecter 1 macro a 2 images qui seraient une derrière l'autre
en cliquant sur la 1ere enlève la protection du classeur et se cache laissant la deuxième si on clique ça remet la protection avec mot de passe
je l ai fait avec 2 boutons mais je n arrive pas a l'adapter a 2 images
merci
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
Jacky
Bonsoir,
je l ai fait avec 2 boutons ....
Le classeur fermé.... Comment accèdes-tu au bouton pour Déprotéger le CLASSEUR, si celui-ci est protégé par un mot de passe ?
-- Salutations JJ
"surplus" a écrit dans le message de news:
Bonjour, je voudrais affecter 1 macro a 2 images qui seraient une derrière l'autre en cliquant sur la 1ere enlève la protection du classeur et se cache laissant la deuxième si on clique ça remet la protection avec mot de passe je l ai fait avec 2 boutons mais je n arrive pas a l'adapter a 2 images merci
Bonsoir,
je l ai fait avec 2 boutons ....
Le classeur fermé....
Comment accèdes-tu au bouton pour Déprotéger le CLASSEUR, si celui-ci est protégé par un mot de passe ?
--
Salutations
JJ
"surplus" <nospam_sanzeusebio@hotmail.com.invalid> a écrit dans le message de news:
LtadnfzP2f3AFFbSRVn_vwA@giganews.com...
Bonjour,
je voudrais affecter 1 macro a 2 images qui seraient une derrière l'autre
en cliquant sur la 1ere enlève la protection du classeur et se cache laissant la
deuxième si on clique ça remet la protection avec mot de passe
je l ai fait avec 2 boutons mais je n arrive pas a l'adapter a 2 images
merci
Le classeur fermé.... Comment accèdes-tu au bouton pour Déprotéger le CLASSEUR, si celui-ci est protégé par un mot de passe ?
-- Salutations JJ
"surplus" a écrit dans le message de news:
Bonjour, je voudrais affecter 1 macro a 2 images qui seraient une derrière l'autre en cliquant sur la 1ere enlève la protection du classeur et se cache laissant la deuxième si on clique ça remet la protection avec mot de passe je l ai fait avec 2 boutons mais je n arrive pas a l'adapter a 2 images merci
Tu sais bien que le demandeur fait référence à la protection de la feuille !
;-))
surplus
Le dimanche 03 Juin 2012 à 17:57 par surplus :
Bonjour, je voudrais affecter 1 macro a 2 images qui seraient une derrière l'autre en cliquant sur la 1ere enlève la protection du classeur et se cache laissant la deuxième si on clique ça remet la protection avec mot de passe je l ai fait avec 2 boutons mais je n arrive pas a l'adapter a 2 images merci
bonsoir effectivement tu as raison le bouton ne sert qu'a protéger et déprotéger toutes les feuilles en même temps l'ouverture se fait avec un autre mot de passe voici le code pour plus de comprehension la macro des 2 boutons Private Sub CommandButton1_Click() mdp = InputBox("Veuillez entrer le mot de passe, svp", "Déprotection") If mdp = "" Then Exit Sub If mdp <> "atelier" Then MsgBox "vous n'avez pas les droits" Else For Each Sh In Sheets Sh.Unprotect mdp Next Sh Me.CommandButton1.Visible = False Me.CommandButton2.Visible = True End If End Sub
Private Sub CommandButton2_Click() For Each Sh In Sheets Sh.Protect "atelier" Next Sh Me.CommandButton1.Visible = True Me.CommandButton2.Visible = False End Sub
le probleme c'est que ça coince au niveau de "Me" comme c'est pas un bouton mais une image je pense qu'il faudrait changer a ce niveau la merci
Le dimanche 03 Juin 2012 à 17:57 par surplus :
Bonjour,
je voudrais affecter 1 macro a 2 images qui seraient une derrière
l'autre
en cliquant sur la 1ere enlève la protection du classeur et se cache
laissant la deuxième si on clique ça remet la protection avec mot
de passe
je l ai fait avec 2 boutons mais je n arrive pas a l'adapter a 2 images
merci
bonsoir
effectivement tu as raison le bouton ne sert qu'a protéger et déprotéger toutes les feuilles en même temps
l'ouverture se fait avec un autre mot de passe
voici le code pour plus de comprehension
la macro des 2 boutons
Private Sub CommandButton1_Click()
mdp = InputBox("Veuillez entrer le mot de passe, svp", "Déprotection")
If mdp = "" Then Exit Sub
If mdp <> "atelier" Then
MsgBox "vous n'avez pas les droits"
Else
For Each Sh In Sheets
Sh.Unprotect mdp
Next Sh
Me.CommandButton1.Visible = False
Me.CommandButton2.Visible = True
End If
End Sub
Private Sub CommandButton2_Click()
For Each Sh In Sheets
Sh.Protect "atelier"
Next Sh
Me.CommandButton1.Visible = True
Me.CommandButton2.Visible = False
End Sub
le probleme c'est que ça coince au niveau de "Me" comme c'est pas un bouton mais une image je pense qu'il faudrait changer a ce niveau la
merci
Bonjour, je voudrais affecter 1 macro a 2 images qui seraient une derrière l'autre en cliquant sur la 1ere enlève la protection du classeur et se cache laissant la deuxième si on clique ça remet la protection avec mot de passe je l ai fait avec 2 boutons mais je n arrive pas a l'adapter a 2 images merci
bonsoir effectivement tu as raison le bouton ne sert qu'a protéger et déprotéger toutes les feuilles en même temps l'ouverture se fait avec un autre mot de passe voici le code pour plus de comprehension la macro des 2 boutons Private Sub CommandButton1_Click() mdp = InputBox("Veuillez entrer le mot de passe, svp", "Déprotection") If mdp = "" Then Exit Sub If mdp <> "atelier" Then MsgBox "vous n'avez pas les droits" Else For Each Sh In Sheets Sh.Unprotect mdp Next Sh Me.CommandButton1.Visible = False Me.CommandButton2.Visible = True End If End Sub
Private Sub CommandButton2_Click() For Each Sh In Sheets Sh.Protect "atelier" Next Sh Me.CommandButton1.Visible = True Me.CommandButton2.Visible = False End Sub
le probleme c'est que ça coince au niveau de "Me" comme c'est pas un bouton mais une image je pense qu'il faudrait changer a ce niveau la merci
Jacky
Bonsoir Denis
,o) Et en plus le demandeur est cachotier, il semblerait que le tout se trouve dans un userform. :-) -- Bonne nuit JJ
"MichD" a écrit dans le message de news: jqgbsn$f13$
Bonjour Jacky,
Tu sais bien que le demandeur fait référence à la protection de la feuille !
;-))
Bonsoir Denis
,o)
Et en plus le demandeur est cachotier, il semblerait que le tout se trouve dans un userform.
:-)
--
Bonne nuit
JJ
"MichD" <michdenis@hotmail.com> a écrit dans le message de news: jqgbsn$f13$1@speranza.aioe.org...
Bonjour Jacky,
Tu sais bien que le demandeur fait référence à la protection de la feuille !