XL 2016 protéger feuille en autorisant Tri et Filtre

[KTM]

Bonsoir chers tous
Je voudrais protéger ma base de données mais en autorisant le filtre et le tri.
Manuellement cela est possible pour moi mais je voudrais savoir comment le faire à l'aide d'une macro.
j'ai concocté un code à l'aide de l'éditeur de macro mais le coté filtre et tri ne marche pas.
Veuillez me donner un coup de pouce. Merci..

Sub Protect()
Application.ScreenUpdating = False
With Sheets("BASE")
.Unprotect (1234)
.EnableSelection = xlNoRestrictions
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
.Protect (1234)
End With
End Sub

 

[job75]

Bonsoir KTM,

Il faut utiliser uniquement .Protect avec le mot de passe et ses arguments mais en ajoutant UserInterfaceOnly:=True

Bonne nuit.

 

[TooFatBoy]

Bonjour,

Une proposition :

Sub Protect()
'
    Application.ScreenUpdating = False

    With Sheets("BASE")
        .Unprotect (1234)
        .EnableSelection = xlNoRestrictions
        .Protect Password:="1234", _
                DrawingObjects:=True, _
                Contents:=True, _
                Scenarios:=True, _
                AllowFormattingCells:=True, _
                AllowFormattingColumns:=True, _
                AllowFormattingRows:=True, _
                AllowSorting:=True, _
                AllowFiltering:=True, _
                AllowUsingPivotTables:=True
    End With

End Sub

 

[KTM]

Bonjour,

Une proposition :

Sub Protect()
'
    Application.ScreenUpdating = False

    With Sheets("BASE")
        .Unprotect (1234)
        .EnableSelection = xlNoRestrictions
        .Protect Password:="1234", _
                DrawingObjects:=True, _
                Contents:=True, _
                Scenarios:=True, _
                AllowFormattingCells:=True, _
                AllowFormattingColumns:=True, _
                AllowFormattingRows:=True, _
                AllowSorting:=True, _
                AllowFiltering:=True, _
                AllowUsingPivotTables:=True
    End With

End Sub

Merci pour tout!!

 

[KTM]

Bonsoir KTM,

Il faut utiliser uniquement .Protect avec le mot de passe et ses arguments mais en ajoutant UserInterfaceOnly:=True

Bonne nuit.

Merci pour tout!!