XL 2016 Problème à cause de protection de feuille

[scoubidou35]

Bonjour à tous,
J'ai un problème avec mon fichier si je protège une feuille ou plus je ne peux plus utiliser le filtre que j'ai sur la feuille 'sommaire'. J'ai tenté avec des unprotect et protect dans le code de la page sommaire et dans la page protégé mais rien ne change...j'obtiens toujours un message de debogage pour la page sommaire
Merci d'avance.

 

[job75]

Bonjour,

Elémentaire :

Private Sub FiltreTableau(Feuille As String, Tableau As String, Année As String)
    Sheets(Feuille).Unprotect "toto" 'mot de passe à adapter
    If Len(Année) > 0 Then
        Sheets(Feuille).ListObjects(Tableau).Range.AutoFilter Field:=1, Criteria1:=Année
    Else
        Sheets(Feuille).ListObjects(Tableau).Range.AutoFilter Field:=1
    End If
    Sheets(Feuille).Protect "toto" 'mot de passe à adapter
End Sub

A+

 

[scoubidou35]

Bonjour,

Elémentaire :

Private Sub FiltreTableau(Feuille As String, Tableau As String, Année As String)
    Sheets(Feuille).Unprotect "toto" 'mot de passe à adapter
    If Len(Année) > 0 Then
        Sheets(Feuille).ListObjects(Tableau).Range.AutoFilter Field:=1, Criteria1:=Année
    Else
        Sheets(Feuille).ListObjects(Tableau).Range.AutoFilter Field:=1
    End If
    Sheets(Feuille).Protect "toto" 'mot de passe à adapter
End Sub

A+

Merci beaucoup job75,
Ca fonctionne en fait j'utilisais pas la bonne commande car vous utilisez Sheets(Feuille) alors que moi j'utilisai ThisWorkbook.Worksheets (Feuille) mais a priori je n'ai toujours pas compris la différence entre ces deux commandes.
Merci et bonne journée

 

[job75]

en fait j'utilisais pas la bonne commande car vous utilisez Sheets(Feuille) alors que moi j'utilisai ThisWorkbook.Worksheets (Feuille) mais a priori je n'ai toujours pas compris la différence entre ces deux commandes.

Préciser le fichier avec ThisWorkbook est inutile si un seul fichier est ouvert.

 

[job75]

Autre solution avec UserInterfaceOnly :

Private Sub FiltreTableau(Feuille As String, Tableau As String, Année As String)
    With Sheets(Feuille)
        .Protect "toto", UserInterfaceOnly:=True 'mot de passe à adapter
        If Len(Année) Then
            .ListObjects(Tableau).Range.AutoFilter Field:=1, Criteria1:=Année
        Else
            .ListObjects(Tableau).Range.AutoFilter Field:=1
        End If
    End With
End Sub

On évite ainsi un saut d'écran.

 

[scoubidou35]

Mer

Autre solution avec UserInterfaceOnly :

Private Sub FiltreTableau(Feuille As String, Tableau As String, Année As String)
    With Sheets(Feuille)
        .Protect "toto", UserInterfaceOnly:=True 'mot de passe à adapter
        If Len(Année) Then
            .ListObjects(Tableau).Range.AutoFilter Field:=1, Criteria1:=Année
        Else
            .ListObjects(Tableau).Range.AutoFilter Field:=1
        End If
    End With
End Sub

On évite ainsi un saut d'écran.

Merci job75
En effet j'avais un saut d'écran j'ai essayé avec Application.ScreenUpdating = False c'était un peu mieux mais on voyait quand même un saut d'écran et la avec le nouveau code plus rien...super!!!!
Merci encore.

 

[Bernard_XLD]

Bonjour scoubidou35, job75, le forum

@scoubidou35 , vous avez essayé de protéger vos feuilles en autorisant le filtre automatique dans chaque feuille ?

Bien cordialement, @+

 

[scoubidou35]

Bonjour scoubidou35, job75, le forum

@scoubidou35 , vous avez essayé de protéger vos feuilles en autorisant le filtre automatique dans chaque feuille ?

Bien cordialement, @+
Regarde la pièce jointe 1110309

Bonjour,
en fait le problème venait du code mais Job75 m'a déjà trouvé la solution. Merci quand même.