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.
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