Protection de feuille

[cora]

Bonjour à tous,

Voici mon problème.
Je ne maîtrise pas VBA, j'ai ce code qui me permet de protéger toutes les feuilles de mon classeur, mais serait-il possible dans épargner une ex la feuil6 qui ne doit pas être protégée ?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect "mot de passe", userinterfaceonly:=True

End Sub

Merci pour votre aide..

 

[DoubleZero]

Re : Protection de feuille

Bonjour, cora, le Forum,

Peut-être ainsi :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim o As Worksheet
For Each o In Worksheets
    If o.Name <> "Feuil6" Then
        o.EnableAutoFilter = True
        o.Protect "mot de passe", userinterfaceonly:=True
    End If
Next
End Sub

A bientôt 🙂

 

[cora]

Re : Protection de feuille

Non ça ne fonctionne pas, lorsque je me rend sur une autre feuille la feuille 6 se protège à nouveau..

 

[cora]

Re : Protection de feuille

Je n'ai pas précisé que ce code était saisi sur thisworkbook

 

[DoubleZero]

Re : Protection de feuille

Re-bonjour,

😕

Non ça ne fonctionne pas, lorsque je me rend sur une autre feuille la feuille 6 se protège à nouveau..

😕

Voir le fichier joint...

A bientôt 🙂

P. S. : Bonjour, papou 😀😀

 

[cora]

Re : Protection de feuille

Je vois bien dans ton exemple ça fonctionne mais dans mon fichier non. La feuille 6 fait référence à un tableau croisé dynamique est-ce la raison ?

 

[Paritec]

Re : Protection de feuille

Bonjour 00😱 cora le forum
tu es sur que tu n'as pas un espace dans le nom de ta "feuil6 " ?? ou avant???
car dans ce cas l'exclusion faite par 00😱 ne serait pas reconnue!!!
a+
papou😱

 

[cora]

Re : Protection de feuille

je vais vérifier

 

[cora]

Re : Protection de feuille

J'ai du supprimer des feuilles car j'ai feuille 1,13,2,3,5,6

 

[cora]

Re : Protection de feuille

c'est ok, je suis bête, la feuille 6 été renommée donc ça fonctionne

Merci beaucoup