T
Tinzattack
Guest
Salut,
j'ai un problème avec ma inputbox!
L'utilisateur de mon programme peut acceder à une certaine page si il a le mot de passe!
Est ce que s'est possible que les chiffres qu'il rentre apparaissent sous forme de *************
Voila mon code
Merci d'avance pour l'aide
Private Sub CommandButton1_Click()
Dim Password As String
'strPassword = InputBox("Enter new password:")
Password = Application.InputBox(prompt:="Entrez le mot de passe", Title:="Verrouillage", Default:="", Type:=2)
If (Password = "calculrapide") Then Sheets("Calculation2").Select
If (Password = "calculrapide") Then Worksheets("Calculation2").Range("A1").Select
If (Password = "calculrapide") Then ActiveWindow.DisplayHorizontalScrollBar = True
If Not (Password = "calculrapide") Then MsgBox ("Le mot de passe entré est érroné !"), 16
End Sub
j'ai un problème avec ma inputbox!
L'utilisateur de mon programme peut acceder à une certaine page si il a le mot de passe!
Est ce que s'est possible que les chiffres qu'il rentre apparaissent sous forme de *************
Voila mon code
Merci d'avance pour l'aide
Private Sub CommandButton1_Click()
Dim Password As String
'strPassword = InputBox("Enter new password:")
Password = Application.InputBox(prompt:="Entrez le mot de passe", Title:="Verrouillage", Default:="", Type:=2)
If (Password = "calculrapide") Then Sheets("Calculation2").Select
If (Password = "calculrapide") Then Worksheets("Calculation2").Range("A1").Select
If (Password = "calculrapide") Then ActiveWindow.DisplayHorizontalScrollBar = True
If Not (Password = "calculrapide") Then MsgBox ("Le mot de passe entré est érroné !"), 16
End Sub