Un mot de pass pour ouvrir un Usf

[J-c]

Bonjour à tous

Pourriez vous me dire quel serait le code à utiliser pour demander un mot de pass avant l'ouverture d'un UserForm

Cdlt J-C

 

[vbacrumble]

Re : Un mot de pass pour ouvrir un Usf

Bonjour


1) Lire la charte , svp (surtout le paragraphe 2) d. )

2) Vite, courir ici
Excel Downloads Forums - Recherche dans les forums

PS: tu trouveras de nombreux exemples de cette question traitée jusqu'à plus soif ...

 

[J-c]

Re : Un mot de pass pour ouvrir un Usf

Re Bonjour

J'ai fouillé le forum de font en comble j'ai trouvé de quoi protèger (des pages, des cellules, des classeurs....) 🙁
Mais rien qui me permette de demander un mot de pass à l'ouverture d'un Usf qui donne la possibilité de suprimer des donnés.

J'y retourne.
Cdlt J-C

 

[vbacrumble]

Re : Un mot de pass pour ouvrir un Usf

Re



Tu mal fouillé alors 😉

Sub macroJC()
Dim MDP$
MDP = InputBox("Saisir le mot de passe, svp.", "Identification", "ICI METTRE LE MOT DE PASSE")
Select Case MDP
Case 123
UserForm1.Show
Case Else
MsgBox "Mot de passe invalide": Exit Sub
End Select
End Sub

 

[J-c]

Re : Un mot de pass pour ouvrir un Usf

Re bonjour à tous

Merci Vbacrumble !!

Juste une petite remarque, tout fonctionne temps que je met un chiffre,
Si j'utilise un mot (lettres) ça ne marche plus. 🙁
Mais bon rien de grave🙂
Cdlt J-C
Encore merci

 

[vbacrumble]

Re : Un mot de pass pour ouvrir un Usf

Re

C'est normal .

Puisque le mot de passe est: 123

 

[Pierrot93]

Re : Un mot de pass pour ouvrir un Usf

Bonsoir,

pour un mot de passe en lettres, encadré le mot de guillemets, enfin si j'ai bien compris le problème :

Select Case MDP
Case "toto"

bonne soirée
@+

 

[J-c]

Re : Un mot de pass pour ouvrir un Usf

Re

Parfait merci !! 🙂

Cdlt J-C

 

[vbacrumble]

Re : Un mot de pass pour ouvrir un Usf

Re

J'ai fouillé le forum de font en comble

Tss c'est humainement impossible 🙄

(Il te faudrait plus d'une vie ...)

Le code que je t'ai fourni est l'adaptation de différents codes
trouvé grâce au moteur de recherche du forum

 

[JONEY76]

Re : Un mot de pass pour ouvrir un Usf

Il est possible de creer un mot de passe grace à une textbox et aussi d'avoir les caracteres ***** lors de l'écriture

Je fais comme ça pour protéger, et je verrouille aussi le projet VBA


1)créer un userform avec une textbox et un bouton ok

If textbox1="blabla" then
'remise à zéro textbox1
textbox1=""
userform2.show

dans les propriétés de la textbox aller dans passwordchar et écrivez ***

end if

je vous donne mon exemple

 

[vbacrumble]

Re : Un mot de pass pour ouvrir un Usf

Re


JONEY76
La question était:

Avoir un mot de passe avant que l'userform s'affiche 😀

 

[JONEY76]

Re : Un mot de pass pour ouvrir un Usf

Il y a un mot de passe avant l'userform2 qui est cencé etre l'userform premier tout comme une input box

 

[vbacrumble]

Re : Un mot de pass pour ouvrir un Usf

Re


Dans ce cas j'appelle cela de la triche 😉

 

[JONEY76]

Re : Un mot de pass pour ouvrir un Usf

J'appelle ça du génie...non?😛..