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
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.
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.
Code:
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