Protégéger les feuilles tout en autorisant le tri et les filtre

[saverloo]

bonjour

ci dessous ma macro. celle ci est dans Workbook et elle me permet de pouvoir protéger toutes mes feuilles automatiquement en laissant actif les macros ainsi que toutes les filtres et fonction tris sur toutes les feuilles.

je voudrai en faite maintenant que seule la feuille X et la feuille Y autorise les tri et filtre et pas les autres pouvez vous m'aider svp je vous remercie et je profite aussi pour remercier HASCO pour sont aide précédante.

Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In Sheets
'Si la feuille est en mode filtre automatique
'autoriser le filtrage et le tri
If Feuille.AutoFilterMode Then
Feuille.Protect Password:="1969", _
AllowSorting:=True, AllowFiltering:=True, _
UserInterfaceOnly:=True
Else
'si non tout protéger
Feuille.Protect Password:="1969", UserInterfaceOnly:=True
End If
Next Feuille
End Sub

 

[Pierrot93]

Re : Protégéger les feuilles tout en autorisant le tri et les filtre

Bonjour Saverloo

essaye peut être ainsi :

Option Explicit
Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In Sheets
    If Feuille.Name = "X" Or Feuille.Name = "Y" Then
        Feuille.Protect Password:="1969", _
        AllowSorting:=True, AllowFiltering:=True, _
        UserInterfaceOnly:=True
    Else
        'si non tout protéger
        Feuille.Protect Password:="1969", UserInterfaceOnly:=True
    End If
Next Feuille
End Sub

bonne journée
@+