XL 2016 Problème à cause de protection de feuille

scoubidou35 · 5 Juillet 2021

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 · 5 Juillet 2021

Autre solution avec UserInterfaceOnly :

VB:

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.

job75 · 5 Juillet 2021

Bonjour,

Elémentaire :

VB:

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 · 5 Juillet 2021

job75 à dit:

Bonjour,

Elémentaire :

VB:

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 · 5 Juillet 2021

scoubidou35 à dit:
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 · 5 Juillet 2021

Autre solution avec UserInterfaceOnly :

VB:

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 · 5 Juillet 2021

Mer

job75 à dit:

Autre solution avec UserInterfaceOnly :

VB:

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 · 5 Juillet 2021

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 · 5 Juillet 2021

Yeahou à dit:
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.

XL 2016 Problème à cause de protection de feuille

scoubidou35

XLDnaute Occasionnel

Pièces jointes

job75

job75

XLDnaute Barbatruc

Pièces jointes

scoubidou35

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

scoubidou35

XLDnaute Occasionnel

Bernard_XLD

XLDnaute Barbatruc

scoubidou35

XLDnaute Occasionnel

Discussions similaires