XL 2019 Résolu - Mot de passe exectuion macro

julien1982 · 28 Avril 2021

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 · 28 Avril 2021

Salut Julien,

Peut-être que cette modification conviendra :

VB:

''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 · 28 Avril 2021

Nairolf à dit:

Salut Julien,

Peut-être que cette modification conviendra :

VB:

''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 · 28 Avril 2021

Bonsoir

julien1982 · 30 Avril 2021

JM27 à dit:
Bonsoir

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

XL 2019 Résolu - Mot de passe exectuion macro

julien1982

XLDnaute Occasionnel

Nairolf

XLDnaute Accro

julien1982

XLDnaute Occasionnel

JM27

XLDnaute Barbatruc

Pièces jointes

julien1982

XLDnaute Occasionnel

Discussions similaires