XL 2010 Fermer un bouton lors de la fermeture du fichier

[PopyCorne]

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

 

[Phil69970]

Bonjour @PopyCorne

Mais je voudrais qu'à la fermeture du fichier, le bouton se ferme donc remasque les lignes et reprotège la feuille.
Est-ce possible??

Oui c’est possible mais avec si peu d'information il n'y a pas de solution proposée .....
Un fichier anonymisé avec les attendus pourrait faire toute la différence....

@Phil69970

 

[PopyCorne]

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

 

[Phil69970]

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

@Phil69970

 

[PopyCorne]

oui !
Cela reste un fichier Excel Médical....
Je souhaite savoir comment faire... Est-ce nécessaire d'aller dans le VBA?

Désolée......

 

[PopyCorne]

Tenez, c'est bon avec celui là !!

j'ai exclu les autres onglets !
non nécessaire pour ma question
Merci de votre aide

 

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

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

 

[PopyCorne]

le bon fichier avec les VBA cette fois....
Désolée je suis fatiguée...

 

[PopyCorne]

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

 

[Phil69970]

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

 

[PopyCorne]

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

 

[Phil69970]

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

 

[PopyCorne]

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

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

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

 

[Phil69970]

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

 

[PopyCorne]

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 !