password

[gilles]

Bonjour,
Je suis débutant et je cherche comment mettre dans userform une demande de password quand on appui sur une touche "valider" afin qu'il y est que moi qui puisse valider les modifications. (le tout rempli une feuille excel).

 

[Creepy]

Salut,

J'ai fait une macro qui arrive à peux près au même résultat à la difference que je verouille les feuilles en ecriture au départ et que je déverouille ou non les feuilles en fonction du password.

Si tes feuilles sont protégées c'est bon personne ne peux ecrire dessus !

voila le code adaptes le selon tes besoins, je protege 4 feuilles :

++

Creepy

--------------Initialisation de la feuille avec les protections------------------
Private Sub Workbook_Open()
Feuil1.Protect PassWord:="Dede", DrawingObjects:=True, Contents:=True, Scenarios:=True
Feuil2.Protect PassWord:="Dde", DrawingObjects:=True, Contents:=True, Scenarios:=True
Feuil3.Protect PassWord:="Dede", DrawingObjects:=True, Contents:=True, Scenarios:=True
Feuil4.Protect PassWord:="Dede", DrawingObjects:=True, Contents:=True, Scenarios:=True

-------------- A mettre dans ton bouton "validez" -----------------
Dim Ki as variant
PassWord.Show
Ki = PassWord.TxtPsw.Value <- J'ai fait une userform pour avoir accès au * à la place des caractères mais tu peux faire une Inputbox.

Select Case Ki
Case "adminastrateur"
Feuil1.Unprotect PassWord:="Creepy"
Feuil2.Unprotect PassWord:="Creepy"
Feuil3.Unprotect PassWord:="Creepy"
Feuil4.Unprotect PassWord:="Creepy"
Case else
Case Else
MsgBox "Mauvvais mot de passe"
end select
end sub

Voila je pense que cela t'aidera

 

[@+Thierry]

Bonjour Gilles, le Forum

Je te conseille de regarder cette démo :

Fichier Téléchargeable => Lien supprimé (24k)

Fil de Discussion => Lien supprimé

Cette une démo pour faire un control d'accès à une page spécifique du classeur...

Sinon en cherchant avec mon Nick UserForm et Password, tu devrais trouver d'autres exemples, dont : Lien supprimé où tu triuveras quelques explication aussi...

Bon Appétit
url=http://www.excel-downloads.com/html/French/phpwiki/index.php?pagename=ThierryXld]@+Thierry[/url]

 

[@Christophe@]

Bonjour,

Tous simple, voila le code à mettre dans ton bouton Valider de ton Usf
Le password reste visible dans le code VBA!!!

Option Explicit
Dim psw As String

Private Sub CommandButton1_Click()
psw = InputBox("Enter your password:", "Password")
If Not psw = "Secret" Then Exit Sub


''' Ta macro
Range("A1").Value = TextBox1.Value
'''
End Sub


Bonne chance

@Christophe@

 

[gilles]

ça fonctionne. Merci à tous.