XL 2019 Cacher un mot de passe

Toubabou

XLDnaute Impliqué
Bonsoir à tous,
Je voudrai que mon mot de passe soit remplacé par des ***** et je ne sais plus comment faire. Pourriez vous m'aider?
Merci par avance.

VB:
Sub Enregistrer_double()

Mdp = "3654"
    If InputBox("Veuillez saisir le mot de passe pour valider l'enregistrement.", "Mot de passe") <> Mdp Then
        MsgBox ("Le mot de passe renseigné n'est pas le bon, vous n'êtes pas autorisé à enregistrer.")
        
    Else

 
 
  ThisWorkbook.SaveCopyAs "C:\Users\Utilisateur\Documents\SAUVEGARDES DE SECOURS\Compte de gestion tutelle du 1 janvier 2022 au 31 décembre 2022 SECOURS 02.xlsm" 'indique le chemin de sauvegarde 1 du fichier"
   'indique le chemin de sauvegarde 2 du fichier recopier la ligne de dessus en indiquant le nouveau chemin
  ' ThisWorkbook.SaveCopyAs "C:\Users\djodj\Dropbox\Recettes\Sauvegarde de secours RECETTES.xlms"
   ThisWorkbook.SaveCopyAs "D:\SAUVEGARDE DE SECOURS\Compte de gestion tutelle du 1 janvier 2022 au 31 décembre 2022 SECOURS 01.xlsm"
  ThisWorkbook.Save
  Application.Quit
     MsgBox "Compte de gestion tutelle a bien été enregistré. A bientôt"
    End If
End Sub
 

Discussions similaires

Réponses
2
Affichages
114

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024