XL 2010 Fermer un bouton lors de la fermeture du fichier

  • Initiateur de la discussion Initiateur de la discussion PopyCorne
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

PopyCorne

XLDnaute Nouveau
Bonjour à tous.

Dans un fichier Excel contenant 4 onglets (gestion de 4 contrôles qualités différents au laboratoire), j'ai 1 onglet qui contient 2 "togglebutton".
Un pour ajouter un 2ème tableau et l'autre pour ajouter un 3ème tableau dans le cas de 3 analyses.
Le fichier est protégé par un mot de passe. J'ai créé une macro qui dit que lorsqu'on clic sur le togglebutton1 ca demande le mdp pour débloquer le tableau (lignes masquées).
Mais je voudrais qu'à la fermeture du fichier, le bouton se ferme donc remasque les lignes et reprotège la feuille.
Est-ce possible??

Merci beaucoup !!!!!!!!

PopyCorne 😉 🦄
 
Solution
Re

Oulaaaa beaucoup de questions... et reproches? 😳
Non pas des reproches juste des interrogations.

Par contre pourquoi continuer avec ton ancien code remplit de select

Rows("21:31").Select
Selection.EntireRow.Hidden = True

*Pense à revoir ton code les "select" sont d'une manière générale à proscrire que cela soit dans tes "sub" ou dans ton "module1"
Et surtout que je les ai enlevé dans le fichier que j'ai mis au post #10...

Voici le fichier modifié par rapport à ta demande concernant le message lors de la fermeture.

@Phil69970
voici le fichier en question
quand on clic sur le bouton "analyse 2" il demande un mot de passe car les lignes masquées contiennent des cellules protégées. donc on met le mdp ("essai") puis les lignes s'ouvrent.
Dans l'idéal je voudrais surtout que les lignes apparaissent sans demander de mot de passe pour garder mes cellules contenant des formules restent protégées.... sinon je voudrais qu'à la fermeture le bouton se referme et que la protection se remette en place.
J'espère être clair... c'est compliqué dans ma tête 😅😅😅
 

Pièces jointes

Re
Il y a un MdP sur le code ....

1616165089839.png


@Phil69970
 
Re
Ton fichier est rempli de MDP un peu de partout....

Cela reste un fichier Excel Médical....
Je souhaite savoir comment faire... Est-ce nécessaire d'aller dans le VBA?
Je ne pense pas que le code soit un secret médical

Ton fichier est rempli de MDP un peu de partout....
1616165436530.png

Par principe je ne veux pas les contourner si tu ne veux pas les donner
Désolé mais Je pense que je vais en rester là ...

@Phil69970
 
Dernière édition:
Re
Ton fichier est rempli de MDP un peu de partout....


Je ne pense pas que le code soit un secret médical

Ton fichier est rempli de MDP un peu de partout....
Regarde la pièce jointe 1099271
Par principe je ne veux pas les contourner si tu ne veux pas les donnés
Désolé mais Je pense que je vais en rester là ...

@Phil69970
il n'est pas nécessaire d'aller dans les autres onglets ! 😉
Ma question concerne le bouton bleu clair. Feuille "reciblage PTA"
Merci
 
Re

Voici ton fichier modifié....
Merci de ton retour

*Pense à revoir ton code les "select" sont d'une manière générale à proscrire que cela soit dans tes "sub" ou dans ton "module1"
*Garde aussi à l'esprit que les MDP divers et variés sous excel ne valent souvent que le temps de les écrire ...

@Phil69970
 

Pièces jointes

Dernière édition:
Re

Voici ton fichier modifié....
Merci de ton retour

*Pense à revoir ton code les "select" sont d'une manière générale à proscrire que cela soit dans tes "sub" ou dans ton "module1"
*Garde aussi à l'esprit que les MDP divers et variés sous excel ne valent souvent que le temps de les écrire ...

@Phil69970
Merci Phil69970,

Cela fonctionne !!!!!!

Pour les mots de passe, pas de souci car je n'en mets pas dans mon fichier de base! 😉 😉

Dernière question pour être parfait....
-> Quand le fichier se ferme, cela déclenche la fermeture du bouton, du coup le "MsgBox" que j'ai associé au bouton se redéclenche. Peut on faire 1 VBA pour que le message ne s'affiche pas à la fermeture?

Merci d'avance....
 
Bonjour @PopyCorne

Pour les mots de passe, pas de souci car je n'en mets pas dans mon fichier de base! 😉
Alors tu as mis des MDP juste pour nous alors que tu nous demandes de t'aider !!🤔 😵

Le fichier est protégé par un mot de passe. J'ai créé une macro qui dit que lorsqu'on clic sur le togglebutton1 ca demande le mdp pour débloquer le tableau (lignes masquées).
Mais je voudrais qu'à la fermeture du fichier, le bouton se ferme donc remasque les lignes et reprotège la feuille.
Alors je comprends pas ta demande initial car tu dis exactement le contraire.

-------------------------------------------------------------------------------------------------------------------

Dernière question pour être parfait....
-> Quand le fichier se ferme, cela déclenche la fermeture du bouton, du coup le "MsgBox" que j'ai associé au bouton se redéclenche. Peut on faire 1 VBA pour que le message ne s'affiche pas à la fermeture?
Sans voir le code pour savoir ou tu as mis le msgbox et comprendre comment il se déclenche c'est pas trop évident...

@Phil69970
 
Bonjour @PopyCorne


Alors tu as mis des MDP juste pour nous alors que tu nous demandes de t'aider !!🤔 😵


Alors je comprends pas ta demande initial car tu dis exactement le contraire.

-------------------------------------------------------------------------------------------------------------------


Sans voir le code pour savoir ou tu as mis le msgbox et comprendre comment il se déclenche c'est pas trop évident...

@Phil69970
Oulaaaa beaucoup de questions... et reproches? 😳🤔
C'est la 1ère fois que je fais une demande donc il y a surement des choses à savoir et à améliorer (sur moi même 😉😉 également). Je suis pleine de bonnes intentions !
J'ai mis des mdp sur les autres onglets car ce n,'était pas le sujet de la discussion donc je ne voulais pas qu'on aille voir les fichiers.
En ce qui concerne mon "togglebutton1 et 2" sur mon onglet "Reciblage PTA" : OUI IL Y A UN MDP, obligatoire par le COFRAC (norme ISO17149) médical... tous les documents excel diffusé via le logiciel de gestion qualité doit être protégé par un MDP.

Code sur l'onglet "Reciblage PTA":

VB:
Private Sub ToggleButton1_Click()
    Application.ScreenUpdating = True
    MsgBox ("mot de passe = UF 2 fois")
    ActiveSheet.Unprotect
    'Reciblage PTA
    '61346134
    ActiveSheet.Rows("21:31").Locked = True
         If ToggleButton1.Value = True Then
    Rows("21:31").Select
   Selection.EntireRow.Hidden = True
       Else
   Rows("21:31").Select
   Selection.EntireRow.Hidden = False
   Range("b7").Select

End If

Application.ScreenUpdating = True
End Sub

Code sur "ThisWorkBook" :

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False


With Worksheets("Reciblage PTA")
    .ToggleButton1.Value = True
    .ToggleButton2.Value = True
    .Protect ("61346134")
End With

ActiveWorkbook.Save
    
End Sub

Merci 🙂🙂🙂🙂🙂🙂
 
Re

Oulaaaa beaucoup de questions... et reproches? 😳
Non pas des reproches juste des interrogations.

Par contre pourquoi continuer avec ton ancien code remplit de select

Rows("21:31").Select
Selection.EntireRow.Hidden = True

*Pense à revoir ton code les "select" sont d'une manière générale à proscrire que cela soit dans tes "sub" ou dans ton "module1"
Et surtout que je les ai enlevé dans le fichier que j'ai mis au post #10...

Voici le fichier modifié par rapport à ta demande concernant le message lors de la fermeture.

@Phil69970
 

Pièces jointes

Re


Non pas des reproches juste des interrogations.

Par contre pourquoi continuer avec ton ancien code remplit de select

Rows("21:31").Select
Selection.EntireRow.Hidden = True


Et surtout que je les ai enlevé dans le fichier que j'ai mis au post #10...

Voici le fichier modifié par rapport à ta demande concernant le message lors de la fermeture.

@Phil69970
Merci beaucoup de votre aide !!!

Ça faisait un moment que je cherchais 🙂 😉 !!!
Et désolée pour le "select"...pourtant j'avais recopié la proposition ! 🤔

C'est très gentil en tout cas!

Ça marche nikel !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour