Protection feuille

[David]

Bonjour à tous

Comment faire pour que les filtres automatiques restent actifs lorsque la feuille est vérouillé ?

Les cellules sont dévérouillées et c'est sous excel 97.

merci

 

[Gérard DEZAMIS]

Bonsoir David

Mettre ce code qui sera fonctionnel à l'ouverture du Classeur

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

C'est du sûr ! Cela vient du Chef !

Tu sais celui avec la crête orange
qui s'agite avec sa 'gratte'
:whistle: Le Monegasque !

@+ GD

 

[David]

Salut Gerard

merci je vais tester ça.


tcho

 

[David]

Ha juste un truc

Je le met ou ce code pour que ce soit fonctionnel à l'ouverture du classeur ?

dans un module ? ou dans une microsoft excel objets feuil1 ?


merci

 

[Riddick]

Bonjour le fil

en fait

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

 

[Nicko29]

salut le forum !!

Voilà, je continue un peu ce fil

si l'on veut que certaines colonnes d'un tableau soit protéger et d'autres non, tout en pouvant utiliser le filtrage et le tri sur celles portéger en écriture, il faut rajouter une focntion de tri à la macro ?

concrétement si je veux filtré les lignes ou les triées par ordre croissant appartenant à un tableau avec deux colonnes non verrouiller et deux autres verrouillé, cela doit être possible non ?.



ciao

 

[David]

Salut

Merci Riddick pour ces précisions, je ne saurais pas avnt lundi si ça fonctionne.

merci pour tout.

tcho

 

[David]

désolé :unsure:

ça ne marche pas, a l'ouverture ça me met 'l'indice n'appartient pas à la selection'

ça plante la : With Worksheets('Feuil1')


merci pour votre aide.

Message édité par: david, à: 15/04/2005 16:35

 

[David]

petit up

merci

 

[David]

ok j'ai mis ça en cherchant un peu sur ce forum et pour le moment le message d'erreur à disparu.


With Sheets(' données en cours')
.EnableAutoFilter = True
.Protect 'motdepasse', UserInterfaceOnly:=True

mais je saurais seulement lundi si ça marche sous excel97.
En tout cas sous excel 2003 ça marche sans avoir cocher laisser filtre dans la protection, j'ai donc bon espoir.

merci à tous