XL 2010 [RESOLU]Protéger un bouton

[Toubabou]

Bonjour à tous,
Dans mon fichier "ESSAI" , un bouton "SAUVEGARDE", que je voudrai protéger par un mot de passe.
Pourriez-vous m'aider?
Merci par avance,
Jean-Marie

 

[phlaurent55]

Bonjour toubabou,

avec ce code:

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

à+
Philippe

 

[Toubabou]

Bonjour Philippe,
Super un grand merci à toi, mais il n'est pas possible d'appeler un Userform (juste pour pouvoir le personnaliser).
@+
Jean-Marie

 

[phlaurent55]

Re-Bonjour,

Bonjour Philippe,
Super un grand merci à toi, mais il n'est pas possible d'appeler un Userform (juste pour pouvoir le personnaliser).
@+
Jean-Marie

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

 

[Toubabou]

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

Oups pardon je pensai créer un UserForm qui demande un MP lorsque l'on clique sur le bouton.
@+

 

[phlaurent55]

Re,

un essai en pièce jointe

à+
Philippe

 

[Toubabou]

Re,
Merci beaucoup Philippe, c'est ce que je cherchai
Un grand MERCI
Jean-Marie