Un mot de pass pour ouvrir un Usf

vbacrumble

XLDnaute Accro

• 4 Mai 2009

• #2

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

 

Dernière édition: 4 Mai 2009

Vote positif 0 Vote négatif

J

J-c

XLDnaute Junior

• 4 Mai 2009

• #3

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

 

Dernière édition: 4 Mai 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 4 Mai 2009

• #4

Re : Un mot de pass pour ouvrir un Usf

Re



Tu mal fouillé alors

Code:

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

 

Vote positif 0 Vote négatif

J

J-c

XLDnaute Junior

• 4 Mai 2009

• #5

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 4 Mai 2009

• #6

Re : Un mot de pass pour ouvrir un Usf

Re

C'est normal .

Puisque le mot de passe est: 123

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Mai 2009

• #7

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 :

Code:

Select Case MDP
Case "toto"

bonne soirée
@+

 

Vote positif 0 Vote négatif

J

J-c

XLDnaute Junior

• 4 Mai 2009

• #8

Re : Un mot de pass pour ouvrir un Usf

Re

Parfait merci !!

Cdlt J-C

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 4 Mai 2009

• #9

Re : Un mot de pass pour ouvrir un Usf

Re

J'ai fouillé le forum de font en comble

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

JONEY76

XLDnaute Occasionnel

• 4 Mai 2009

• #10

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

 

Pièces jointes

• password.xls

  37.5 KB · Affichages: 120
• password.xls

  37.5 KB · Affichages: 120
• password.xls

  37.5 KB · Affichages: 120

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 4 Mai 2009

• #11

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

 

Vote positif 0 Vote négatif

JONEY76

XLDnaute Occasionnel

• 4 Mai 2009

• #12

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 4 Mai 2009

• #13

Re : Un mot de pass pour ouvrir un Usf

Re


Dans ce cas j'appelle cela de la triche

 

Vote positif 0 Vote négatif

JONEY76

XLDnaute Occasionnel

• 4 Mai 2009

• #14

Re : Un mot de pass pour ouvrir un Usf

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

 

Vote positif 0 Vote négatif