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

 

[ChTi160]

Bonjour luke3300
peut être ainsi!
non testé

Private Sub Workbook_Open()
For Each ws In Sheets
   With ws
       If .Name <> "Data" then
       .Unprotect Password:="soleil"
       .Protect Password:="soleil", UserInterfaceOnly:=True
       .EnableOutlining = True
    End If
End with
Next ws
Sheets("Feuil1").Activate
End Sub

jean amrie

 

[luke3300]

Bonsoir ChTi160,

Ce n'est manifestement pas ça ... elle reste protégée.

Merci à toi

 

[TooFatBoy]

Bonjour,

Essaye en inversant les deux lignes "IF .Name ..." et ".Unprotect ...".

 

[luke3300]

Bonsoir Marcel32,

Voici ce que j'obtiens avec ta solution ...

 

[ChTi160]

Re
tu as inversé des lignes
et il manque le "End If"

Private Sub Workbook_Open()
For Each ws In Sheets
   With ws
       If .Name <> "Data" then 'Si nom de la feuille <> "Data"
       .Unprotect Password:="soleil"'On déprotège toutes les feuilles
       .Protect Password:="soleil", UserInterfaceOnly:=True 'On protège
       .EnableOutlining = True
    End If
End with
Next ws
Sheets("Feuil1").Activate
End Sub

ou

Private Sub Workbook_Open()
For Each ws In Sheets
   With ws    
       .Unprotect Password:="soleil" 'On déprotège toutes les feuilles
If .Name <> "Data" then  'Si nom de la feuille <> "Data"
       .Protect Password:="soleil", UserInterfaceOnly:=True  'On protège
       .EnableOutlining = True
    End If
End with
Next ws
Sheets("Feuil1").Activate
End Sub

Testé les deux fonctionnent !
Regarde bien erreur de recopie

Jean marie

 

[_Thierry]

Bonsoir

Je pense que comme ceci ce devrait passer

Option Explicit

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Sheets
    With ws
            .Unprotect Password:="soleil"
        
                If .Name <> "Data" Then
                    .Protect Password:="soleil", UserInterfaceOnly:=True
                    .EnableOutlining = True
                End If
    End With
Next ws
Sheets("Data").Activate
End Sub

Bonne soirée
@+Thierry

 

[luke3300]

En effet, j'avais oublié le "End If"
Ceci étant, j'ai dû inversé comme tu avais indiqué les 2 phrases ci plus haut.
Mais le résultat est là, merci à vous 2 et excellente soirée.

 

[luke3300]

Bonsoir Thierry, merci pour ta contribution

Une question, pourquoi "l'option explicit"? C'est la différence entre vos codes ...

 

[_Thierry]

Option Explicit c'est pour obliger à déclarer les variables (WS par exemple)
(ça peut éviter bien des surprises et des prises de tête)

Bonne soirée
@+Thierry

 

[luke3300]

Merci pour l'explication

 

[ChTi160]

Arff
le maître est là lol
t’inquiète @+thierry je n'ai rien oublié de tes leçons !
je n'ai fais que recopier le texte de la procédure
je ne manque jamais de le mettre ce "Option Explicit"
pourvu que le Confinement dur ! Lol
Jean marie

 

[luke3300]

Bonsoir

Je pense que comme ceci ce devrait passer

Option Explicit

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Sheets
    With ws
            .Unprotect Password:="soleil"
       
                If .Name <> "Data" Then
                    .Protect Password:="soleil", UserInterfaceOnly:=True
                    .EnableOutlining = True
                End If
    End With
Next ws
Sheets("Data").Activate
End Sub

Bonne soirée
@+Thierry

Bonjour le forum, _Thierry, ChTi160,

Et si je voulais qu'une 2ème feuille ne soit pas protégée non plus, que devrais-je modifier/ajouter dans ce code?

Merci.

Excellent dimanche

 

[TooFatBoy]

If .Name<>"Data" AND .Name<>"Zozo" Then

 

[luke3300]

Bonsoir Marcel32, le forum,

Merci beaucoup pour ton aide également et belle soirée