Contraintes de la protection du fichier

Bonjour à tous et toutes!

Malgré tous mes efforts et la recherche sur ce forum, impossible de trouver la solution aux problèmes que posent la protection d'une feuille.

Voir le fichier joint qui doit être utilisé par un collègue (verrouillage sans mot de passe).

La colonne ID est protégée et s'incrémente de 1 automatiquement en ajoutant une ligne avec le bouton.

Les 2 colonnes de calcul sont également protégées.

Le TCD se met aussi à jour sur une feuille protégée.

Problème à résoudre:

1) Bien que j'ai coché les cases "filtre" et "tri" en protégeant la feuille "BdD", les filtres fonctionnent mais pas les tris.

2) Le plan de groupage des colonnes ne fonctionne pas non plus.

3) Le TCD se met à jour sur la feuille protégée mais le segment ne fonctionne plus ...

Je souhaiterais conserver le verrouillage des cellules de calcul et la protection de la feuille qui va avec.

Bref, j'imagine que tout ça devrait trouver sa solution avec le VBA ...

N'étant pas un expert en VBA, merci mille fois d'avance de vos commentaires détaillés sur le code à employer.

Bonjour,

Tu as raison ... pour protéger ... a priori pas besoin de macro ...

Il faut par contre bien cocher ses choix ...

http://www.votreassistante.net/comment-proteger-fichier-excel/

Merci James mais il semble qu'il y ait un malentendu.

J'ai vérouillé les cellules de calcul.

J'ai ensuite protégé la feuille en prenant bien soin comme tu le suggères de cocher les cases ;

• sélectionner les cellules verrouillées
• selectionner les cellules déverrouillées
• tri
• Utiliser le filtre automatique

Résultat: seul le filtre par les en-têtes de colonne fonctionne

Le tri et le groupage/dégroupage ne sont plus possible !

Ou est ce que je me trompe ??

Re,

Ci-joint ton fichier ... pour faire des tests ...

Merci mille fois James. Ça fonctionne parfaitement juste à l'exception du tri.

J'ai juste rajouter Me.EnableAutoFilter = True et Me.EnablePivotTable = True

On peut filtrer les colonnes, grouper et dégrouper les colonnes mais pas les trier.

Si tu avais la ligne de code qui manque pour le tri ce serait génial.

Merci encore.

Je poste le code ici pour d,autres qui auraient le même souhait :

Private Sub Worksheet_Activate()
Me.Unprotect
Me.EnableOutlining = True
Me.EnableAutoFilter = True
Me.EnablePivotTable = True
Me.Protect Contents:=True, userInterfaceOnly:=True
End Sub

Bonjour Christian,

Content que cela fonctionne...

Merci pour tes remerciements

Pour le tri, tu peux tester : Me.AllowSorting = True

Merci James mais si j ajoute cette ligne de code, plus rien de marche (tri, filtre et groupage) ... aussi incroyable que ça puisse paraitre ...

mais le tri n était pas la chose la plus importante des 3.

C est juste que je voudrais bien comprendre pourquoi ça bloque quand j insére cette ligne et ça débloque quand je l enlève ...

Si tu trouves quelque chose, merci de m envoyer un mot mais ne perd pas de temps la dessus j ai déjà ce qu il m faut pour ce fichier.

Christian

Re,

Quand j'ai un moment ...je ferai des tests avec ton fichier ...

Bonjour,

Vraiment désolé pour l'oubli ...

Je te tiens au courant le plus vite possible ...