Bonjour à tous,
j'ai un fichier protégé pour la sauvegarde par mot de passe. Mon problème est est que lors de la saisie du MDP celui-ci est visible.
est-il possible de le remplacer par des (*) lors de la frappe?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Utilisateur As String
Utilisateur = InputBox("Indiquez votre nom d'utilisateur !", "Authentification utilisateur")
Select Case Utilisateur
Case "Nom1", "Nom2", "Nom3", "Nom4" '<--- les noms pour lesquels l'enregistrement est autorisé
Case Else
MsgBox "Vous n'êtes pas autorisé à enregistrer les modifications que vous avez apporté ! " _
& vbNewLine & vbNewLine _
& "Ce fichier et EXCEL vont être fermer. ", vbOKOnly + vbCritical, "Fermeture du fichier"
Cancel = True
Windows.Application.Quit
End Select
End Sub
je tiens a remercier le forum pour toute l'aide déjà apporté.