mdp avec étoiles

Ben si, tu peux mettre des étoiles si tu veux en remplaçant la frappe, mais
pas après chaque caractère saisi, et le problème, c'est que le mot de passe
sera transformé en autant d'étoiles que de caractères saisis, ce qui n'est
pas pratique...
Si tu veux protéger ton classeur ou tes feuilles, passe par
outils/Protection...

Sinon, c'est forcément via VBA...

Ok?


--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci



"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
4E3FA89D-8F77-463E-905F-CA9DB5AA5556@microsoft.com...

Ouais, je comprend.
Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles,
c'est
ça?

En fait il faut que je cré un second userform du style :
--------------------------------
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub CommandButton22_Click()
'si l'utilisateur clique sur Annuler, on quitte.
Unload Me
ThisWorkbook.Close
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Initialize()
'empêche l'affichage de la croix de fermeture en utilisant les API
'déclarées en début de module
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X",
"D")
& "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF

Me.TextBox1.Visible = True
Me.Label1.Visible = True
End Sub

Private Sub combobox2_Click()
End Sub
Private Sub commandbutton21_Click()

If Me.ComboBox2.Value = "" Then
MsgBox "vous n'avez rien saisi"
Me.ComboBox2.SetFocus
Else
If TextBox1.Value = "" Then
Else
If controlmdp(TextBox2.Value) = True Then
ThisWorkbook.IsAddin = False
ActiveWorkbook.Unprotect
For I = 1 To ThisWorkbook.Sheets.Count
Sheets(I).Visible = True
Next
ActiveWorkbook.Protect
Unload Me
End If
End If
End If

End Sub
Function controlmdp(nommdp)
On Error Resume Next
tabmdp = Array("code")
trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé"
Else
MsgBox "Autorisation acceptée"
controlmdp = True
End If
End Function

Salut AV,

Une dialXL5, c'est un peu comme un userform, où je me trompe... ???


--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
e9QCvBfYFHA.712@TK2MSFTNGP14.phx.gbl...

Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles,
c'est
ça?

Si avec une boite de dial XL5 (et une zone d'édition)

AV

Re,
d'accord, je veux bien, mais je suis vraiment désolé, je ne comprend pas.
Comment faire?
Merci. YANN

Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles, c'est
ça?

Si avec une boite de dial XL5 (et une zone d'édition)

AV

Une dialXL5, c'est un peu comme un userform, où je me trompe... ???

Ben oui même que c'est l'ancêtre
C'était un clin d'oeil, mais à part ça, la boite de dialXL5, c'est facile et
rapide (mise en oeuvre et exécution)

AV

Oui, font rien qu'à compliquer les choses chez Microsoft... ;-)))

Bon après-midi

Pierre


"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23bW2lLfYFHA.3584@TK2MSFTNGP12.phx.gbl...

Une dialXL5, c'est un peu comme un userform, où je me trompe... ???

Ben oui même que c'est l'ancêtre
C'était un clin d'oeil, mais à part ça, la boite de dialXL5, c'est facile
et
rapide (mise en oeuvre et exécution)

AV

OK. mais je suis désolé, je ne connais pas le dial XL5.
Comment dois-je faire pour mettre des * à mon mdp Excel?
merci AV.
Yann

Une dialXL5, c'est un peu comme un userform, où je me trompe... ???

Ben oui même que c'est l'ancêtre
C'était un clin d'oeil, mais à part ça, la boite de dialXL5, c'est facile et
rapide (mise en oeuvre et exécution)

AV