Effecer tous les filtres feuille protégée et classeur partagé
Hello les copains fous du clavier
J’ai épuisé tous les sujets, sans trouver une vrai réponse.
Situation :
Au travail j’ai créé un fichier de plus de 10k lignes et qui doit absolument être partagé.
Ce fichier contient plusieurs dizaines de colonnes également.
J’ai bloqué la feuille pour que les néophytes ne me plante pas les formules.
Du coup à chaque fois que quelqu’un utilise un filtre et enregistre, le suivant qui ouvre le fichier se retrouve avec des filtres et cela est une source d’erreurs De travail car ils oublient souvent de remettre le tableau à zéro.
Précision si ça joue quelque chose, je n’utilise pas le format tableau sur ce fichier mais bien une plage excel normale.
Problème :
1) Pas possible d’utiliser la fonction native d’excel pour enlever en un coup tous les filtres :
Trier et filtrer -> Effacer
2) Pas de macro possible car fichier partagé.
Si tu as une solution je prends.
Au pire si un as de la cellule peut me dire pourquoi cette fonction disparaît lorsqu’on protège la feuille, ça me consolera de comprendre la mécanique.
Merci d’avance pour avoir pris le temps de me lire .
Bonjour,
Le fait que ton fichier soit partagé ne t'interdit pas d'avoir tes macros dans le module ThisWorkbook pour nettoyer tes filtres ...
En espèrant que cela t'aide
Merci
Oui tu m’aide beaucoup.
T’aura Une ligne de code à me filer
j’avoue Que je ne suis pas fort en création de macro. Mais je comprends bien quand j’en vois une pour l’adapter s’il faut.
Re,
Je ne connais pas la structure de ton fichier ... et si tu as besoin d'une boucle ou pas ...
L'instruction suivante :
ActiveSheet.ShowAllpermet de remettre le Filtre à zéro ...
Tu peux la placer dans le module ThisWorkBook
Private Sub Workbook_Open()
End SubEn espèrant que cela t'aide
Bonjour,
Ne serait ce pas mieux ainsi ?
ActiveSheet.ShowAllDataCdlt.
La macro fonctionne très bien
Enfin ...... tant que je ne mets pas la protection de la feuille
Voici l’alerte :
Microsoft visual basic
Erreur d’exécution ´1004’ :
La méthode ShowAllData de la classe Worksheet a échoué
J’ai essayé en enlevant les verrouillages des cellules qui sont mes entêtes de colonne mais ça ne change rien au problème.
Je suis sur Excel 2016.
Re,
Joins ton fichier anonymisé si nécessaire.
Sinon essaie ceci :
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End IfLa version avec "If then" ne change rien.
Enfait, le verrouillage de la feuille empêche tout simplement la macro de s'exécuter je pense.
Désolé nous travaillons sur un réseau fermé et très restrictif.
Je ne pouvais pas vous mettre le fichier plus tôt.
Ici vous avez le fichier vierge (sans aucune macro).
Lorsque je protège la feuille de calcul je ne mets pas de mot de passe. Car c'est juste un garde-fous pour mes collègues.
Une fois le fichier verrouillé je le partage pour qu'il soit en multi-utilisateurs.
Cela enlève aussi la possibilité du script suivant dans une macro :
- enlever le fichier du partage
- enlever la protection
- enlever les filtres
- remettre la protection
- remettre le partage