XL 2019 Protection feuilles multiples excel

Roblochon à dit:

Re,

Aide microsoft sur getOpenFileName

Cordialement

Cliquez pour agrandir...

Roblochon à dit:

Re,

Veuillez m'excuser, je pensais répondre à un autre fil.

Mais si vous voulez avoir une réponse, alors joignez votre fichier avec une macro.

Une piste pour me faire pardonner :
If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RÉCAP" then .....

bonne soirée

Cliquez pour agrandir...

Roblochon à dit:

Re,

Même pas tenté quelque chose, pourtant la piste donnée plus haut était la bonne !

VB:

Sub ProtegeFeuilles()
    Dim MaFeuille As Worksheet
    For Each MaFeuille In Worksheets
        If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RECAP" Then MaFeuille.Protect Password:="1234"
    Next
End Sub


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

Cliquez pour agrandir...