Protéger l'onglet avec mot de passe

Bonjour voici mon code pour protéger l'onglet avec un mot de passe
Cependant, j'aimerais que lors de la macro il m'affiche une fenêtre pour que je puisse mentionner le mot de passe....

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Afficher() ActiveSheet.Unprotect ("toto") Columns("A:D").Select Selection.EntireColumn.Hidden = False End Sub Sub Masquer() Columns("A:C").Select Selection.EntireColumn.Hidden = True ActiveSheet.Protect ("toto") End Sub

---

Salut, pour info, c'est à dire que ce genre de protection ne sert à rien, hormis d'éviter par exemple que l'utilisateur n'efface des formules.

Si tu y tiens toujours voir ici

Bonjour,

il y a plusieurs méthodes, ça dépend du contexte d'utilisation de ton fichier

celle-ci nécessite, en l'état, de déverrouiller la feuille avant fermeture du fichier (sinon il faut stocker le mdp "quelque part" pour le réutiliser à l'ouverture)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim Mdp As String   Sub Afficher() Dim Verif As String   Verif = InputBox("Quel mot de passe?") If Verif <> Mdp Then MsgBox ("Mot de passe erronée"): Exit Sub   ActiveSheet.Unprotect Mdp Columns("A:D").Select Selection.EntireColumn.Hidden = False End Sub Sub Masquer() Mdp = InputBox("Quel mot de passe?") Columns("A:C").Select Selection.EntireColumn.Hidden = True ActiveSheet.Protect Mdp End Sub

---