Besoin d'aide utilisation USERFORM

[vsan]

Bonjour à tous,

J'ai besoin d'aide en VBA pour Excel..
Je souhaiterai bloquer l'utilisation de la petite croix en haut d'une userform, ou alors si on clique dessus, pouvoir choisir l'action à faire... Genre lancer une application voir fermer le fichier... Est-ce possible?

Je souhaiterai aussi, masquer un mot de passe lorsqu'on le tape, faire apparaître des petites * !
Pour la boite mot de passe, j'ai simplement utiliser une userform avec 2 champs de texte (login et pass) et 2 boutons (Ok et annuler), et le code suivant :

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
' Affecte la valeur False à la variable globale
' pour indiquer l'échec de la connexion.
LoginSucceeded = False
Me.Hide
Démarrage.Show
End Sub

Private Sub cmdOK_Click()
' Vérifie si le mot de passe est correct.
If TxtPassword = 'password' Then
' Placer le code ici pour signaler
' à la procédure appelante la réussite de la fonction.

' Définir une variable globale est plus facile.
LoginSucceeded = True
Me.Hide
Else
MsgBox 'Mot de passe non valide, réessayez !', , 'Connexion'
TxtPassword.SetFocus
SendKeys '{Home}+{End}'
End If
End Sub

Que dois-je modifier pour pouvoir avoir un mot de passe qui n'apparait pas, et une petite croix qui ne fonctionne plus (parce que si on clique dessus, on n'a pas besoin de rentrer de mot de passe pour accéder aux données, alors qu'elles sont sensées être protégées...)

Merci d'avance
Vinc'

 

[Hady]

Dans les propriétés de ta TextBox, tu mets PasswordChar à * pour masquer le mot de passe.

 

[Hady]

Dans le module vba de ton userform tu mets :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Les instructions concernant les différents choix
Cancel = true 'empêche la fermeture
End Sub

Cette macro est exécuté dès que tu cliques sur la croix du userform.

 

[_Thierry]

Bonjour Hady, Vinc, le Forum

En complément, une démo assez complète la dessus :

=> Fichier Téléchargeable Lien supprimé


=> Fil de Discussion Lien supprimé


Bonne Soirée
@+Thierry