caché le mot de passe **** VBA

[seigneurchris]

bonjour à toutes et tous

voici la macro qui est affecter à un bouton

Sub motdepasse()
Dim mDp As String
mDp = InputBox("Donne le mot de passe")
If mDp <> "Zizi" Then
MsgBox "Tu n'as pas saisi le bon mot de passe", _
vbOKOnly, "T'es trop nul cherche encore"
Exit Sub
Else
raz
End If
End Sub


Sub raz()
Range("C18:N20").ClearContents
Range("e28:e33").ClearContents

End Sub

l'ennui c'est qu'on voit le mot de passe sur l'écran...

j'aurai bien voulu avoir des **** à la place je sais qu'avec passwordchar c'est possible mais je ne sais pas trop comment l'utiliser avec inputbox
pourriez vous m'aider ?

d'avance merci

 

[phlaurent55]

Re : caché le mot de passe **** VBA

Bonjour seigneurchris

clique ci-dessous
https://www.excel-downloads.com/threads/saisir-un-mot-de-passe-en-cache.137888/

à+
Philippe

 

[seigneurchris]

eeeeeuh merci Phlaurent 55

Mais dans ma macro je dois mettre ou la ligne qui dit mettre *** au lieu du texte?

je suis pas le plus fort en VBA...

 

[phlaurent55]

Re : caché le mot de passe **** VBA

Re,

dans le lien que je t'ai proposé tu dois ouvrir le fichier envoyé par Dull le 08/03/2010 15h18

Mais dans ma macro je dois mettre ou la ligne qui dit mettre *** au lieu du texte?

il faut modifier la propriété PasswordChar du TextBox1
si tu ne sais pas adapter , reviens avec ton fichier

à+
Philippe

 

[Staple1600]

Re : caché le mot de passe **** VBA

Bonsoir

If mDp <> "Zizi" Then

En l'occurrence ton mot de passe n'est pas assez long (😉) pour une sécurité acceptable.

 

[seigneurchris]

voila j'ai donc changer ma macro du début mon bouton est fait ,
j'ai donc crée cette macro,


Sub Macro1()
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
TextBox1 = ""
UserForm1.hide
End Sub

Private Sub CommandButton2_Click()
If TextBox1.Text = "mot-de-passe" Then
'Zizi
Else MsgBox("Le mot de passe est invalide.")
End If
TextBox1 = ""
UserForm1.Hide
End Sub


mais mon problème un bouton qui sert à rien car je sais pas ou je dois intéger

Sub raz()
Range("C18:N20").ClearContents
Range("e28:e33").ClearContents

End Sub

donc en clair en cliquant sur le bouton ça ouvre une fenêtre ou je rentre mon mot de passe je "valide " et de la ça supprime les cellules C18:N20 et E28:E33

donc voila ou je coince

merci à vous.

 

[phlaurent55]

Re : caché le mot de passe **** VBA

Re,
essaie ceci:

Private Sub CommandButton2_Click()
If TextBox1.Text = "mot-de-passe" Then
Range("C18:N20").ClearContents
Range("e28:e33").ClearContents
Else MsgBox("Le mot de passe est invalide.")
End If
TextBox1 = ""
UserForm1.Hide
End Sub

à+
Philippe

 

[seigneurchris]

bonjour

merci phlaurent55 pour ton aide mais après plusieurs tentatives j'y arrive toujours pas...
je suis vraiment mauvais en VBA...

j'ai mis mon fichier ... pourrais tu m'aider?
j'arrive à faire le bouton et il va sauf qu'il n'efface pas mes cellules.... (B14:N16) et (D24😀29).

un grand merci d'avance

 

[Paritec]

Re : caché le mot de passe **** VBA

Bonjour Philippe🙂,seigneurchris,
bien ton fichier et il est ou l'userform???
a+
papou🙂

 

[phlaurent55]

Re : caché le mot de passe **** VBA

Re,

Bonjour Philippe🙂,seigneurchris,
bien ton fichier et il est ou l'userform???
a+
papou🙂

@papou, je pense qu'il a disparu lors de la sauvegarde du fichier en .xlsx 😕 ou qu'il n'a jamais été réalisé 😡
ayant compris que nous sommes face à un débutant (belge de surcroit) 🙂 , je viens de prendre le temps de tout reconstruire
le mot de passe -----> zizi

voir fichier joint

à+
Philippe

 

[seigneurchris]

Re : caché le mot de passe **** VBA

Re, @papou, je pense qu'il a disparu lors de la sauvegarde du fichier en .xlsx 😕 ou qu'il n'a jamais été réalisé 😡
ayant compris que nous sommes face à un débutant (belge de surcroit) 🙂 , je viens de prendre le temps de tout reconstruire
le mot de passe -----> zizi

voir fichier joint

à+
Philippe

Merci Philippe c'est bien ça que je cherchais....
pour la sauvegarde j'ai fais une compatibilité étant sous mac et au boulot windows...
mais si si j'avais fais un bouton pourquoi n'a t il ete sauvé j'en sais rien ...

merci pour le belge looooooooooooooooooooooool oui oui débutant un vrai de vrai

pour la macro du bouton c'est tout se qu'il fallait mettre?

Sub Bouton1_Cliquer()
UserForm1.TextBox1.SetFocus
UserForm1.Show
End Sub

je demande car c'est de mes erreurs que je m'enrichi donc si tu savais m'éclairé..

d'avance merci

et encore merci pour ton aide

 

[phlaurent55]

Re : caché le mot de passe **** VBA

Re-bonjour cher compatriote,

pour la macro du bouton c'est tout se qu'il fallait mettre?

Sub Bouton1_Cliquer()
UserForm1.TextBox1.SetFocus
UserForm1.Show
End Sub

ci dessus c'est le code d'appel de l'userform
lorsque l'userform apparait, c'est le textbox1 qui a le focus (c'est -à-dire qu'il est automatiquement sélectionné et modifiable sans devoir au préalable aller cliquer dessus avec la souris)

ne pas confondre le bouton1 de la feuille et le bouton1 de l'userform

ci-dessous les codes affectés aux boutons qui se trouvent sur l'userform

Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub

Private Sub CommandButton2_Click()

If TextBox1.Text = "zizi" Then
Range("B14:N16").ClearContents
Range("D24:D29").ClearContents
Else: MsgBox ("Le mot de passe est invalide.")
End If
TextBox1 = ""
UserForm1.Hide
End Sub

Pour le bouton1_clic on ferme l'usf

Pour le bouton2_clic on teste le contenu de TextBox1 :
on vide les cellules concernées si le mot de passe est valable
ou on affiche un message dans le cas contraire

à+
Philippe