D
dje8269
Guest
bonjour a tous
voila mon petit probleme
cette macro me demande un mdp dans un box pour ouvrir un classeur protegé.
mais quand je tape mon mdp dans la box tout le monde peut le lire .je voudrai qu'il soit cache par des "*" .je pense que le fonction passwpordchar est la plus approprié mais je n'y arrive pas
Sub ouvre()
Dim mdp As Variant
debut:
mdp = Application.InputBox("Saisissez votre mot de passe", _
"Protection fichier", "", , , , , 1 + 2)
If mdp = False Then Exit Sub
If mdp <> "toto" Then
GoTo debut
End If
Workbooks.Open "D:\programmes\1.xls", , , , mdp, mdp
End Sub
merci de votre aide
voila mon petit probleme
cette macro me demande un mdp dans un box pour ouvrir un classeur protegé.
mais quand je tape mon mdp dans la box tout le monde peut le lire .je voudrai qu'il soit cache par des "*" .je pense que le fonction passwpordchar est la plus approprié mais je n'y arrive pas
Sub ouvre()
Dim mdp As Variant
debut:
mdp = Application.InputBox("Saisissez votre mot de passe", _
"Protection fichier", "", , , , , 1 + 2)
If mdp = False Then Exit Sub
If mdp <> "toto" Then
GoTo debut
End If
Workbooks.Open "D:\programmes\1.xls", , , , mdp, mdp
End Sub
merci de votre aide