Protéger onglets sans sélectionner les cellules verrouillées/déverrouillées

Bonjour à tous,

Je sais que le sujet de comment protéger plusieurs feuilles en même temps a déjà été évoqué plusieurs fois, mais je n'ai rien trouvé par rapport à mon cas.

En effet, je souhaiterais protéger toutes les feuilles d'un classeur en décochant les champs "Séléctionner les cellules verrouillées" et "Séléctionner les cellules déverrouillées" pour chacune d'elle et en y rajoutant un mot de passe aussi.

J'ai essayé de bidouiller en prenant des macros à gauche et à droite mais je n'arrive pas à obtenir le résultat souhaité.

Pouvez-vous m'aider svp ?

Merci d'avance,

Cordialement,

Andrea

Bonjour et bienvenue,
Une proposition à adapter.
Cdlt.

Note : Peux-tu indiquer la version Excel utilisée dans ton profil ?

Option Explicit

Sub ProtectWorksheets()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Protect Password:=PWD, userinterfaceonly:=True
        ws.EnableSelection = xlUnlockedCells
    Next ws
End Sub

Sub UnProtectWorksheets()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Unprotect Password:=PWD
    Next ws
End Sub

Super ! Merci beaucoup pour ton aide !