Microsoft 365 Protéger les feuilles du classeur sauf une (VBA)

[luke3300]

Bonsoir le forum,

J'utilise ce code à l'ouverture de mon classeur.

Private Sub Workbook_Open()
For Each ws In Sheets
   With ws
       .Unprotect Password:="soleil"
       .Protect Password:="soleil", UserInterfaceOnly:=True
       .EnableOutlining = True
    End With
Next ws
Sheets("Feuil1").Activate
End Sub

J'aimerais cependant qu'une feuille nommée "Data" ne soit pas protégée par ce code et puisse rester accessible.
Pourriez-vous m'indiquer ce que je dois modifier pour obtenir le résultat recherché?

Merci d'avance et belle soirée.
Prenez soin de vous

 

[TooFatBoy]

Bonne soirée à toi également