feuille protegee et filtre

[dalo02]

bonsoir a tous
J'ai 1 feuille dont 4 colonnes sont protegees
afin d'ecrire les donnees dans ces colonnes avec 1 userform je dois deproteger et de nouveau proteger la feuille mais je ne peux plus filtrer ou ranger la feuillepar la suite.
j'ai coche bien entendu le filtre et sorting ect dans le masque protection de la feuille
Voila une partire de mon code
la ligne 14 me pose probleme
merci pour votre aide

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
ActiveSheet.Unprotect ("pwd")
.....
If ActiveSheet.AutoFilterMode Then
Else
Rows("5:5").AutoFilter
End If
ActiveSheet.protect UserInterfaceOnly:=True, AllowSorting:=True, AllowFiltering:=True, Scenarios:=True
ActiveSheet.protect ("pwd")
Sheets("T2").cells.Delete
Call PP
Application.ScreenUpdating = True
End Sub

[Daniel.C]

Bonjour,

Quelle est ta version d'Excel ? Je n'ai pas de problème avec Excel 2010. Tu n'as posté que 13 lignes de code; quelle est cette ligne 14 qui te pose problème ?

[dalo02]

Bonjour a tous
j'ai resolu 1 partie du pb (voir ligne 8) mais il me reste la possibilite du tri qui ne fonctionne pas.
je pourrai temporairement deprotege et reprotege la feuille mais j e veux eviter
personne ne doit pouvoir changer les valeurs en colonne A,C et E.
la ligne 9 me pose pb maintenant
le tri ne fonctionne pas
comment remedier a ce pb
merci de votre aide

Code :

1
2
3
4
5
6
7
8
9
10
lastlig = cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.Unprotect ("pwd") 'deproteger la feuille
'-------------------------------------------------
With activesheets
Range("a6:a10000,c6:c10000,e6:e10000").Select
Selection.Locked = True
End With
Sheets("liste").EnableAutoFilter = True
Sheets("liste").protect contents:=True, AllowSorting:=True, userInterfaceOnly:=True
Sheets("liste").protect ("pwd") 'proteger la feuille

[Daniel.C]

Est-ce que les cellules triées sont bien déverrouillées ?

[asphp]

Dans une feuille protégée, les cellules censées être accessibles doivent être déverrouillées.

En effet, par défaut, toute cellule d'une feuille Excel est verrouillée. Il faut donc déverrouiller les cellules souhaitées (clic droit, format de cellule, Protection, décocher "Verrouillée").

[dalo02]

re a tous
non j'ai protege les cellules en colonne A,C et D
"je pourrai temporairement deprotege et reprotege la feuille mais j e veux eviter
personne ne doit pouvoir changer les valeurs en colonne A,C et E."
je ne sais pas si cela est possible!
le but est
je force l'utilisateur,par un userform, a ecrire en col C et D en col A le numero identification augmente +1 apres il ne peut plus rien change les autres col sont libres d'ecriture
merci encore

[Daniel.C]

Avec une feuille protégée, tu ne peux trier que des feuilles déverrouillées. Maintenant, tu peux le faire par macro puisque tu as indiqué "userInterfaceOnly:=True"