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

ChTi160

XLDnaute Barbatruc

• 14 Avril 2020

• #2

Bonjour luke3300
peut être ainsi!
non testé

VB:

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 14 Avril 2020

• #3

Bonsoir ChTi160,

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

Merci à toi

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 14 Avril 2020

• #4

Bonjour,

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 14 Avril 2020

• #5

Bonsoir Marcel32,

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 14 Avril 2020

• #6

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

VB:

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

Code:

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

 

Dernière édition: 14 Avril 2020

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 14 Avril 2020

• #7

Bonsoir

Je pense que comme ceci ce devrait passer

VB:

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 14 Avril 2020

• #8

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.

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 14 Avril 2020

• #9

Bonsoir Thierry, merci pour ta contribution

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

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 14 Avril 2020

• #10

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 14 Avril 2020

• #11

Merci pour l'explication

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 14 Avril 2020

• #12

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 19 Avril 2020

• #13

_Thierry à dit:

Bonsoir

Je pense que comme ceci ce devrait passer

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Avril 2020

• #14

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 20 Avril 2020

• #15

Bonsoir Marcel32, le forum,

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

 

Vote positif 0 Vote négatif