Discussion :

[jamital]

bonjour,
Voila mon probleme ; j'ai mis un mot de passe sur une feuille excel d'un classeur, pour eviter les modifications .
Dans mon formulaire chaque fois que je veux executer une commande par un bouton ,il me demande le mot de passe .
Je cherche le code vba pour ouvrir et fermer la feuille excel du classeur en yinserant le mot de passe .
Merci et bonne journée.

[Jean-Philippe André]

Bonjour,

la version Windows pour la protection est donnée ici :

https://silkyroad.developpez.com/VBA...lcul/#LII-A-21

dis nous si son application pour Mac est opérationnelle

[Transitoire]

Bonjour, je confirme le fonctionnement sur Mac, je viens de le tester version 2011.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
Worksheets("Feuil1").Protect Password:="Passe" 'Passe est le mot de passe choisi par moi et que vous pourrez remplacer par le votre.
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test1()
Worksheets("Feuil1").Unprotect
End Sub

Cordialement

[jamital]

Merci pour les réponses.
Résumé:
J'ai met un mot de passe pour une feuil excel : "toto"
il faut mettre au début d'une sub le code: Worksheets("Feuil1").Protect Password:="toto" et je serais pas obligé à écrire le mdp chaque fois que je clique sur un bouton.
c'est çà ? Merci.

[Transitoire]

Bonjour, avec les deux codes ci-dessus (Post#3): le premier protège la feuille, et le deuxième code fait apparaitre une zone dans laquelle vous pouvez entrer le mot de passe pour déprotéger la feuille. C'est le système généralement proposé pour toute protection.
Il me semble que ce n'est pas votre désir en fait.
Maintenant ci dessous un code qui vous permet d'ôter la protection de la feuille par un bouton ou autre système.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
Worksheets("Feuil1").Protect Password:="Passe" 'Passe est le mot de passe choisi par moi et que vous pourrez remplacer par le votre.
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test2()
Worksheets("Feuil1").Unprotect Password:="Passe" ' si le mot de passe est Passe ou Toto dans votre cas.
End Sub

Cordialement

[jamital]

Merci ,C'est exactement ce que je recherche .