Protection formules dans un classeur

Salut chers tous

Je suis en train d'apprendre à protéger les formules dans un classeur avec VBA

Dans le fichier test que je joint le code de protection marche bien mais mon soucis c'est que on n'arrive pas à operer des filtres.

Je cherche mais je vois pas. Merci de me donner un coup de main.

Bonjour,

voici une exemple,

Sub Protege()
'protection de la feuille active
With ActiveSheet
'permet filtre et grouper lignes et colonnes
    .EnableAutoFilter = True
    .EnableOutlining = True

    'pour les options de protection que vous ne désirer pas autoriser: changer True pour False
    .Protect Password:="", _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        AllowFormattingCells:=True, _
        AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, _
        AllowInsertingRows:=True, _
        AllowInsertingHyperlinks:=True, _
        AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, _
        AllowSorting:=True, _
        AllowFiltering:=True, _
        AllowUsingPivotTables:=True, _
        UserInterfaceOnly:=True
 End With
End Sub

Bonjour,

Bonjour sabV,

On se croise...,

Un début de réponse à adapter !...

Cdlt.

super Merci