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?..