XL 2019 Résolu - Mot de passe exectuion macro

julien1982

XLDnaute Occasionnel
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

XLDnaute Accro
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

XLDnaute Occasionnel
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 !!
 

Discussions similaires

Réponses
5
Affichages
367
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 852
dernier inscrit
dthi16088