Protection feuille

Gérard DEZAMIS

XLDnaute Accro

• 14 Avril 2005

• #2

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

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 15 Avril 2005

• #3

Salut Gerard

merci je vais tester ça.


tcho

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 15 Avril 2005

• #4

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

 

Vote positif 0 Vote négatif

R

Riddick

XLDnaute Occasionnel

• 15 Avril 2005

• #5

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

 

Vote positif 0 Vote négatif

N

Nicko29

XLDnaute Nouveau

• 15 Avril 2005

• #6

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

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 15 Avril 2005

• #7

Salut

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

merci pour tout.

tcho

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 15 Avril 2005

• #8

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

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 15 Avril 2005

• #9

petit up

merci

 

Vote positif 0 Vote négatif

D

David

XLDnaute Occasionnel

• 15 Avril 2005

• #10

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

 

Vote positif 0 Vote négatif