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
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