Protection feuille et Filtres automatiques

[Darnel]

Bonjour à vous

Je m'adresse à vous pour savoir si vous auriez un petit truc qui me permettrait d'avoir une feuille protégée au minimum au niveau du contenu et ou je puisse également utiliser des filtres automatiques tout en conservant cette protection

merci à vous

 

[Marc_du_78]

Bonjour Darnel,
Essaie ceci :

Dans Thisworkbook

Private Sub Workbook_Open()
With Worksheets('Feuil1')
.EnableAutoFilter = True
.Protect UserInterfaceOnly:=True
End With
End Sub

Filtres automatiques actifs feuille vérouillée

Private Sub Workbook_Open()
With Worksheets('Feuil1')
.EnableAutoFilter = True
.Protect UserInterfaceOnly:=True
End With
End Sub

reviens a mettre
With Worksheets('Feuil1')
.EnableAutoFilter = True
.Protect UserInterfaceOnly:=True
End With

dans ThisWorkbook
Dans la list '(general') tu choisi Workbook
Dans la list '(declaration') tu choisi Open

Pour utiliser le filtre sur une feuille protégée :
Dans le module ThisWorkbook :
Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True
End Sub

J'ignore l'auteur qui se reconnaîtra.
Bonne Pâques.

 

[Darnel]

Bonjour Marc

Merci mille fois, ça marche nickel, je l'ai mis à ma sauce, je suis en train de faire un truc qui sera manipulé par des ultras débutants pour certains donc j'ai mis un bouton pour lancer les filtres automatiques et j'ai incorporer un bout de ton code dans ma macro pour que me permette de faire ce que jeu veux.

Sub Ajout_filtres()

ActiveSheet.Select
ActiveSheet.Unprotect
Range('b2').Select
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect Contents:=True, UserInterfaceOnly:=True
Selection.AutoFilter

    
End Sub

le tout dans un module et ca marche d'enfer, donc merci