Sub Enregistrer_double()
If InputBox("Entrez le mot de passe pour sauvegarder") = "toto" Then
ThisWorkbook.SaveCopyAs "C:\Users\djodj\Desktop\Essais\TEST 3.1\Classeur11.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\Desktop\Essais\TEST 3.0\Classeur1.xlsm"
ThisWorkbook.Save
Else
MsgBox ("MOT DE PASSE REFUSE")
End If
End Sub
Bonjour Philippe,
Super un grand merci à toi, mais il n'est pas possible d'appeler un Userform (juste pour pouvoir le personnaliser).
@+
Jean-Marie
Oups pardon je pensai créer un UserForm qui demande un MP lorsque l'on clique sur le bouton.Beaucoup de choses sont possibles avec Excel mais dans le fichier donné en exemple je ne vois pas un seul UserForm
Sans explications plus précises ce sera difficile de répondre exactement à la demande
à+
Philippe