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

USF ne se ferme pas !

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion claudio54
  • 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 !

S'inscrire
C

claudio54

XLDnaute Junior
Bonjour à tous
Je souhaite afficher un message par appui sur un bouton qui ouvre un usf et qui s'efface au bout de 2 secondes.
Le code vba du classeur est protégé par mot de passe ce qui fait qu'à la fermeture du classeur, excel me demande le mot de passe. Pour contourner ce problème j'ai trouvé un code pour déprotéger le vbaproject.
Et tout fonctionne à merveille, sauf la première fois que j'appuie sur le bouton : l'usf s'ouvre mais ne se ferme pas. Cela est certainement dû à la procédure de déverrouillage du vbaproject, mais je ne sais pas quoi du fait que je ne suis pas l'auteur du petit bout de code que j'ai trouvé sur le net.
Ci joint un tout petit fichier illustrant le problème.
Je remercie tous ceux qui se pencheront sur ce problème.
ps : j'utilise excel 2016
 

Pièces jointes

Trier par date Trier par votes
Bonjour le fil, le forum

@claudio54
Test OK chez moi (mais sur mon classeur de test - évidemment sans mot de passe*)
A mettre dans un module standard
On affiche l'userform en lançant la macro : USF_Show
VB: 
Sub USF_Show()
UserForm1.Show 0
Application.OnTime Now + TimeValue("00:00:02"), "Fermer_USF"
End Sub
Public Sub Fermer_USF()
Unload UserForm1
End Sub

NB: *parce que il existe moult moyens de le supprimer (sans même devoir connaitre le mot de passe du projet VBA)
 
Vote positif 0 Vote négatif
Bonjour Staple, le forum
Merci pour ta réponse, mais si tu protèges ton code, quand tu fermeras excel, il te demanderas le mot de passe
Donc si je veux que mon code soit protégé et éviter d'avoir cet inconvénient, je suis obligé de déprotéger avant de lancer le Usf et c'est la que l'usf ne se ferme pas.
 
Vote positif 0 Vote négatif
Re

Comme je le dis dans le NB de mon précédent message, le mot de passe est inutile!
(Les façons de le supprimer pullulent sur le net depuis au moins le 13 mai 2001 vers 17h27)

Testes mon code sur un classeur vierge avec un userform, tu verras que mon code fonctionne!
 
Vote positif 0 Vote négatif
Oui, y a pas de soucis, cela fonctionne super bien mais ce fonctionnement je l'avais déjà mais avec un code non protégé.
Je suis conscient que les mots de passe puissent se détourner de mille façons, mais c'est quand même réservé à un public spécialisé.
Mon fichier ne s'adressera qu'à une quinzaine d'utilisateurs pas très spécialistes d'Excel, mais dans le lot il y a toujours des curieux qui peuvent détériorer le code et détruire tout le travail de l'équipe. C'est pourquoi je veux protéger le code en sachant qu'ils seront incapables de le contourner.
Seul 2 utilisateurs (de confiance) et moi même auront accès à ce bouton.
De plus, j'aimerai bien connaître la raison du non fonctionnement en cas de déprotection du code par macro.
merci
 
Vote positif 0 Vote négatif
Re

C'est pourquoi je veux protéger le code en sachant qu'ils seront incapables de le contourner.
Cliquez pour agrandir...
La nature humaine étant ce qu'elle est, si le contournement est possible alors contournement il y aura
(Et G..gle amènera à cela en moins de 20 secondes)

Si ton fichier doit être utilisé par des utilisateurs non spécialistes pourquoi iraient-ils mettre le nez dans VBE ?
Et si ils doivent travailler avec pourquoi donc bousilleraient-ils le dit fichier?

Maintenant à quoi donc peut servir d'afficher un userform pendant 2 secondes ??

NB:
mais ce fonctionnement je l'avais déjà
Cliquez pour agrandir...
Tu es sur?
Parce que j'ai testé ton code sur un classeur non protégé, et il plantait

Alors que le mien ne plante pas, c'est d'ailleurs pour cela que je l'ai posté. 😉
 
Vote positif 0 Vote négatif
Merci pour ta réponse.
Sur mon pc ton code et le mien fonctionnent pareil. Sur classeur non protégé pas de problème.
Sur classeur protégé même problème sur les 2 --> quand on quitte excel demande le mot de passe.
L'affichage de l'usf sert juste de rappel à mes 2 collaborateurs pour leur rappeler que le fichier est déprotégé tant qu'ils ne ferment pas le classeur.
Le classeur contient des données dites sensibles et ne sont accessibles qu'a mes 2 collaborateurs et moi-même, d'où la protection pour éviter d'aller fouiller un peu partout.
Après tout, c'est vrai que je pousse peut-être le bouchon un peu trop loin.
Malgré tout j'aurais quand même bien voulu connaître comment résoudre ce problème.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Résolu(e)
Microsoft 365 Modifier un code copie donnée chaque feuil séparément
Réponses
11
Affichages
221
ExcelDow
  • Résolu(e)
XL 2019 Données ne se mettent pas à jour par Macro, mais Manuellement OUI.
Réponses
8
Affichages
181
sylvanu
M
  • Question Question
Microsoft 365 Mon TCD ne prend pas en compte le filtre de la table auquel il est lié.
Réponses
3
Affichages
113
chris
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
171
flc13090
  • Question Question
Autres Séquenceur (Timer) dans autre instance d'Excel
Réponses
5
Affichages
215
Dranreb
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
474
desto
D
P
  • Question Question
Microsoft 365 effacer commentaire
Réponses
7
Affichages
497
job75
D
  • Résolu(e)
XL 2019 Nouveau Numéro
2 3 4
Réponses
57
Affichages
2 K
patricktoulon
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
H
  • Résolu(e)
Microsoft 365 Tentative d'utilisation du contrôle RefEdit
2
Réponses
21
Affichages
558
Dranreb
N
  • Résolu(e)
Microsoft 365 Aide pour insertion nombre aléatoire
2
Réponses
22
Affichages
933
NONO14
N
D
  • Résolu(e)
Microsoft 365 Bouton supprimer ligne via mon Userfom ne fonctionne pas
Réponses
8
Affichages
625
vgendron
M
  • Question Question
XL 2013 Bouton commande ne fonctionne pas
Réponses
7
Affichages
487
midovic
M
A
  • Question Question
XL 2021 Module d’envoi à la Corbeille qui ne fonctionne pas en 64 Bits
2
Réponses
20
Affichages
659
patricktoulon
M
  • Question Question
XL 2021 Générateur Tournoi Ecole de Rugby
Réponses
5
Affichages
614
Magis
M
O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
1 K
olivier1984
O
M
  • Résolu(e)
Microsoft 365 Problème Excel Macros Liaison Ppt
Réponses
11
Affichages
499
D. HANIB
D
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
628
arnoldbrice19
A
M
  • Question Question
XL 2016 Excel UserForm VBA
Réponses
3
Affichages
566
patricktoulon
C
  • Question Question
XL 2021 Cellules qui ne s'effacent pas sur formulaire et renvoi de valeurs du formulaire
Réponses
1
Affichages
497
gbinforme
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…