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 ?