XL 2010 [RESOLU]Protéger un bouton

phlaurent55

Nous a quittés en 2020

Repose en paix

• 17 Octobre 2018

• #2

Bonjour toubabou,

avec ce code:

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

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 17 Octobre 2018

• #3

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 18 Octobre 2018

• #4

Re-Bonjour,

Toubabou à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 18 Octobre 2018

• #5

phlaurent55 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 18 Octobre 2018

• #6

Re,

un essai en pièce jointe

à+
Philippe

 

Pièces jointes

• 111.xlsm

  21.5 KB · Affichages: 23

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 18 Octobre 2018

• #7

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

 

Vote positif 0 Vote négatif