XL 2019 Résolu - Mot de passe exectuion macro

[julien1982]

Bonjour a tous,

je cherche a mettre un mot de passe lors de l’exécution d'une macro permettant de déverrouiller tous les onglets d'un classeur, mais je ne sais pas comment faire.
Voici le code de ma macro.

'Macro permettant de protéger toutes les feuilles sauf "Base" et "Recap"
Sub ProtegeFeuilles()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RECAP" Then MaFeuille.Protect Password:="1234" 'tu peux changer le mot de passe à ta convenance ici.
Next
End Sub

''Macro permettant de déprotéger toutes les feuilles sauf "Base" et "Recap"
Sub DeProtegeFeuilles()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RECAP" Then MaFeuille.Unprotect Password:="1234"
Next
End Sub

C'est sur la macro DeProtegeFeuilles, que je souhaiterai avoir un mot de passe lorsque je clique dessus pour etre sur que seul moi puisse deverouiller les onglets.

Merci bcp par avance.
Julien.

 

[Nairolf]

Salut Julien,

Peut-être que cette modification conviendra :

''Macro permettant de déprotéger toutes les feuilles sauf "Base" et "Recap"
Sub DeProtegeFeuilles()
Dim MaFeuille As Worksheet
Dim pswrd
pswrd = InputBox("Saisir le mot de passe !")

If pswrd = "1234" Then
    For Each MaFeuille In Worksheets
        If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RECAP" Then MaFeuille.Unprotect Password:=pswrd
    Next
End If
End Sub

 

[julien1982]

Salut Julien,

Peut-être que cette modification conviendra :

''Macro permettant de déprotéger toutes les feuilles sauf "Base" et "Recap"
Sub DeProtegeFeuilles()
Dim MaFeuille As Worksheet
Dim pswrd
pswrd = InputBox("Saisir le mot de passe !")

If pswrd = "1234" Then
    For Each MaFeuille In Worksheets
        If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RECAP" Then MaFeuille.Unprotect Password:=pswrd
    Next
End If
End Sub

Simplement parfait!! MERCI !!

 

[JM27]

Bonsoir

 

[julien1982]

Bonsoir

Cool comme ca aussi, j'aime bien c'est meme mieux car mdp caché merci!!!