Discussion :

[Vba14]

Bonjour à tous,

Dans ce code, le mot de passe est du texte se trouvant dans la cellule D58 de la feuille "Données", lorsque l'utilisateur le tape dans à l'ouverture du message, on voit clairement le mot frappé.
Est-il possible de le remplacer au moment de la frappe par des *
De plus, est-ce qu'il est possible également de remplacer le texte dans la cellule par des * tout en gardant sa valeur.
Par exemple, je tape "TOTO", ça devient "****" mais la valeur reste toujours "TOTO"
Merci par avance pour vos réponses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Cmb_Ecrit_Click()
Dim REP As String
REP = InputBox("MOT DE PASSE", "Accés au tableau")
If REP = Sheets("Données").Range("D58").Value Then
ActiveSheet.Unprotect
    Range("D58").Select
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
End If
End Sub

[anasecu]

Bonjour,

Par exemple, je tape "TOTO", ça devient "****" mais la valeur reste toujours "TOTO"

Au lieu d'utiliser InputBox tu te crées un formulaire (userform) avec une seule textbox et tu utilises le paramètre passwordchar prévu pour cela.
et ensuite ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 And TextBox1.Value = Sheets("Données").Range("D58").Value Then
    '....
End Sub

[Vba14]

Bonjour anasecu,

Oui c'est une idée. Je vais essayer ta méthode. Question : tu ne mets pas de bouton valider dans ton formulaire ?
Par contre ça ne résout pas mon soucis de la cellule D58

[unparia]

Bonjour
Quelle est la finalité/utilité d'afficher ce mot de passe dans une cellule ? Je n'en vois aucune.
Pourquoi ne pas tout simplement mettre ce mot de passe dans une variable ?

PS: et en y réfléchissant -->> pourquoi mémoriser ce mot de passe (y compris dans une variable) alors qu'il suffit d'une variable booléenne pour y mémoriser qu'il a été donné pour cette session ?

[patricktoulon]

Bonjour c'est dimanche on s'amuse un peu

voici un vrai FAUX!!! input password rien n'existe avant rien n'existe apres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub test()
    MsgBox InputPassword(titre:="Entrez votre mot de passe")
End Sub
'
'
Function InputPassword(titre As String) As Variant
    Dim inpt, Btok, Btcancel, USF
    Dim j As Integer
    Set USF = ThisWorkbook.VBProject.VBComponents.Add(3)
    With USF: .Properties("Caption") = titre: .Properties("Width") = 150: .Properties("Height") = 70: End With
    'textbox pour input
    Set inpt = USF.Designer.Controls.Add("forms.TextBox.1", "inpt")
    With inpt: .Name = "inpt": .Left = 0: .Top = 0: .Width = USF.Properties("Width"): .Height = USF.Properties("insideheight") - 20: .PasswordChar = "*": End With
    'bouton OK
    Set Btok = USF.Designer.Controls.Add("forms.CommandButton.1", "Btok"): With Btok: .Name = "Btok": .Left = 54: .Top = 30: .Width = 48: .Height = 18: .Caption = "Ok": End With
    'bouton Annuler
    Set Btcancel = USF.Designer.Controls.Add("forms.CommandButton.1", "Btcancel"): With Btcancel: .Name = "Btcancel": .Left = 102: .Top = 30: .Width = 48: .Height = 18: .Caption = "Cancel": End With
    With USF.CodeModule
        j = .CountOfLines: .insertlines j + 1, "public response As variant" & vbCrLf & "'"
        j = .CountOfLines: .insertlines j + 1, "Private Sub BtOk_Click():response = inpt.Value:Me.hide:End Sub" & vbCrLf & "'" & vbCrLf
        j = .CountOfLines: .insertlines j + 1, "Private Sub Btcancel_Click(): response = False:Me.Hide: End Sub" & vbCrLf & "'" & vbCrLf
        j = .CountOfLines: .insertlines j + 1, "Private Sub UserForm_Activate(): response = False: End Sub" & vbCrLf & "'" & vbCrLf
        j = .CountOfLines: .insertlines j + 1, "Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer):Cancel = True: Me.Hide:End Sub"
    End With
    VBA.UserForms.Add (USF.Name)
    With UserForms(UserForms.Count - 1): .Show: InputPassword = .response: End With
    ThisWorkbook.VBProject.VBComponents.Remove (USF)    'destruction du userform on ne garde rien
End Function

c'est rigolo non ?

[Vba14]

Bonjour
Quelle est la finalité/utilité d'afficher ce mot de passe dans une cellule ? Je n'en vois aucune.
Pourquoi ne pas tout simplement mettre ce mot de passe dans une variable ?

PS: et en y réfléchissant -->> pourquoi mémoriser ce mot de passe (y compris dans une variable) alors qu'il suffit d'une variable booléenne pour y mémoriser qu'il a été donné pour cette session ?

Bonjour unparia,

Le mot de passe est dans une cellule pour que l'administrateur puisse le changer quand bon lui semble.

[Vba14]

Bonjour Patrick,

Dans ton code, aucun mot de passe n'est tapé ???
Je dois t'avouer que je n'y ait pas tout compris, je vois le principe.
On créer un formulaire fantôme qui disparaît à la fin de chaque cession, il est de nouveau créé à une nouvelle ouverture, mais à quel moment préserve t-on le mot de passe ?

[unparia]

mais à quel moment préserve t-on le mot de passe

On ne mémorise jamais le mot de passe lui-même. On mémorise ce que retourne une fonction de chiffrement "irréversible" à laquelle ce mot de passe est passé en paramètre.
Soit M, le mot de passe et F la fonction de chiffrement.
On mémorise le résultat R = F(M)
Et lorsque l'utilisateur saisit un mot de passe M1, on en vérifie la validité V ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If F(M1) = R Then V = true

[patricktoulon]

re

[Vba14]

Si je comprends bien, le mot de passe est celui que tu frappes à l'instant "T"

[Vba14]

unparia,

Ce que je souhaite, c'est que l'administrateur puisse changer de mot de passe, c'est pour cette raison que je le mets dans une cellule, de cette façon il peut y intervenir à tout moment.

[unparia]

Ce que tu dis là (et que nous avions bien compris) ne change absolument rien à ce que je t'ai exposé. Et ce : que le résultat R soit mémorisé dans une cellule, ou dans un fichier texte, ou dans la base de registre, etc ...

[Vba14]

Je te prie de m'excuser mais je ne comprends pas ce que tu veux dire. Comment le mémoriser si il n'est pas noté quelque part ???

[unparia]

Comment le mémoriser si il n'est pas noté quelque part ???

Ben ... En le "notant quelque part". Où et quand t'ai-je dit qu'il ne fallait pas le mémoriser. Je t'ai dit qu'il fallait mémoriser R (résultat d'une fonction de chiffrement F appelée en lui passant le paramètre M) et non M (relis-moi).
Je te laisse maintenant là.

[patricktoulon]

Si je comprends bien, le mot de passe est celui que tu frappes à l'instant "T"

ben c'est le but d'un inputbox non?
si ca n'est pas ce que tu veux un inputbox ne t'est pas necessaire

[eriiic]

Bonjour,

ce que unparia veut te dire c'est qu'au lieu de stocker "toto", il faudrait stocker une valeur qui lui est liée par un calcul.
Tu ne stockes plus "toto" mais "C5wmJdwh7wX2rU3fR8XyA4N6oyw="par exemple.

A chaque saisie du pw tu appliques la même fonction et tu retrouves le même hachage s'il est ok.
L'utilisateur met à jour son pw lui-même, il est le seul à le connaitre. Toi-même tu n'as que le hashcode et tu ne peux pas faire l'opération inverse.
Si c'est une appli sensible, il ne pourra pas dire que tout le monde peut retrouver son mot de passe dans le fichier et que ce n'est pas lui qui a fait la bourde.
Tout dépend du niveau de sécurité que tu veux.

Plusieurs phrases peuvent avoir le même hashcode mais ce n'est pas un problème. Aucune chance d'en trouver une par hasard.
Des fonctions de hachage en vba : https://en.wikibooks.org/wiki/Visual...Hashing_in_VBA
eric

[Vba14]

Merci pour toutes ces réponses, je fais au mieux et je reviens vers vous.