Ouverture d'un userform auto

  • Initiateur de la discussion Initiateur de la discussion Dennnisss
  • 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 !

Dennnisss

XLDnaute Occasionnel
Bonjour a tous

J'ai prit sur votre site un exemple d'ouverture automatique d'un user et qui demande un mot de passe , bien sur il va tres bien , moi j'ai essayer d'incorporer un test de trois essaie , si apres trois essaie il doit fermer le dossier ou excel , aussi dans mon user je creer un label qui affiche le nombre de fois qui ont ete manquer
Je me suis permis d'envoyer seulement le code si besoin d'un user je vous l'envoie sur demande

alors merci de votre aide et attend vos suggestion

salut dennnisss 😉😉


Private Sub CommandButton1_Click()
Dim x As Integer
Dim mot_de_passe As String
mot_de_passe = "patou"
If TextBox1.Text <> mot_de_passe Then
x = x + 1
MsgBox "Mauvais mot de passe"
If x = 3 Then
ActiveWorkbook.Close
Else
End If
Else
MsgBox "Mot de passe est bien écrit"
Me.Hide
End If
End Sub
 
Re : Ouverture d'un userform auto

Private Sub CommandButton1_Click()
Dim x As Integer
Dim mot_de_passe As String
mot_de_passe = "patou"
If TextBox1.value <> mot_de_passe Then
range("iv65536").value = cint(range("iv65536").value) + 1
MsgBox "Mauvais mot de passe"
If cint(range("iv65536").value) = 3 Then
range("iv65536").clear
ActiveWorkbook.Close
End If
Else
MsgBox "Mot de passe est bien écrit"
range("iv65536").clear
Me.Hide
End If
End Sub

Quelques modifs
A+ François
 
Re : Ouverture d'un userform auto

Salut Fanfan

J,ai copier ton code dans mon user , une autre question
dans mon code de fermeture du fichier

ActiveWorkbook.Close peut-on changer cette ligne pour qu'il ferme excel au lieu de juste la feuille de travail ouverte

merci a toi attend ta reponse a+

dennnisss
 
Re : Ouverture d'un userform auto

Salut Staple et Fanfan38


Avec ce que fanfan ma suggerer dans le forum je suis aller sur son lien et voila il avait ce que je cherchais a faire

en plein dans le mille alors merci a vous deux et bien sur je revient cherche vos conseil
a la prochaine et merci encore de votre aide

bye bye dennnisss 😉😉
 
Re : Ouverture d'un userform auto

Non, là c'est lors de la fermeture du fichier la commande ne sert que à fermer les autres fichiers avant de fermer ou de quitter le fichier en cours...
Pour quitter le fichier en cours il faut mettre dans une macro
application.quit
Dans ce cas ça ferme le fichier + excel...

A+ François
 
- 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

  • Question Question
Réponses
10
Affichages
844
Réponses
5
Affichages
1 K
Réponses
3
Affichages
889
Retour