Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Fermer un bouton lors de la fermeture du fichier

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

PopyCorne à dit:
Oulaaaa beaucoup de questions... et reproches?
Cliquez pour agrandir...
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

Phil69970 à dit:
*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"
Cliquez pour agrandir...
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
Trier par date Trier par votes

PopyCorne

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

  • modification_des_seuils_ciq - V5 - (COPIE)..xls
    290 KB · Affichages: 11
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Re
Ton fichier est rempli de MDP un peu de partout....

PopyCorne à dit:
Cela reste un fichier Excel Médical....
Je souhaite savoir comment faire... Est-ce nécessaire d'aller dans le VBA?
Cliquez pour agrandir...
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
 
Dernière édition:
Vote positif 0 Vote négatif

PopyCorne

XLDnaute Nouveau
il n'est pas nécessaire d'aller dans les autres onglets !
Ma question concerne le bouton bleu clair. Feuille "reciblage PTA"
Merci
 
Vote positif 0 Vote négatif

Phil69970

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

  • Modif seuil en test V2.xlsm
    44.7 KB · Affichages: 6
Dernière édition:
Vote positif 0 Vote négatif

PopyCorne

XLDnaute Nouveau
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....
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour @PopyCorne

PopyCorne à dit:
Pour les mots de passe, pas de souci car je n'en mets pas dans mon fichier de base!
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif

PopyCorne

XLDnaute Nouveau
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
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Re

PopyCorne à dit:
Oulaaaa beaucoup de questions... et reproches?
Cliquez pour agrandir...
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

Phil69970 à dit:
*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"
Cliquez pour agrandir...
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

  • Modif seuil en test V3.xlsm
    43.5 KB · Affichages: 4
Vote positif 0 Vote négatif
Solution

PopyCorne

XLDnaute Nouveau
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 !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

V
  • Question
Microsoft 365 Créer un fichier élève avec présences, groupes et fiche personnelle de commentaire par élève....
Réponses
3
Affichages
340
Phil69970
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
466
arnoldbrice19
A
L
  • Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
338
AtTheOne
  • Question
Microsoft 365 Exporter en PDF avec une mise en page automatique via un bouton
Réponses
8
Affichages
612
patricktoulon
  • Résolu(e)
XL 2013 Masquer/Afficher une ligne de tableau Word en fonction de la valeur du contrôleur de contenu
2
Réponses
20
Affichages
1 K
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la Saisie de Données Excel vers un Document Word Modèle
2 3
Réponses
31
Affichages
2 K
job75
S
  • Question
Microsoft 365 Afficher dans un tableau les noms des feuilles d'un fichier excel ainsi que le nombre de lignes renseignées pour chacune d'elle.
Réponses
2
Affichages
559
chris
H
  • Résolu(e)
XL 2019 Récupération de résultats depuis un CSV vers un fichier Excel
Réponses
9
Affichages
855
Hutchy33
H
L
  • Résolu(e)
XL 2016 Problème liaison USF vers tableau et inversément
Réponses
1
Affichages
464
Ludo G
L
  • Résolu(e)
XL 2013 un dossier qui ne veut pas etre supprimer avant la fermeture du fichier
2
Réponses
18
Affichages
1 K
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…