Microsoft 365 Remettre les filtres à zéro sur feuille protégée

Gen Rose · 14 Octobre 2022

Voici un petit projet que je tente.

Nous avons un classeur partagé au travail sur le Share. La feuille d'intérêt (C_BASE_2022) est protégée par un mdp (abc).

Tout le monde utilise les filtres dans cette feuille et c'est correct sauf qu'il y a toujours des gens qui ne choisissent pas "Afficher uniquement mes éléments"... donc c'est l'enfer car vous risquez d'ouvrir ce classeur avec une foule de filtres activés! Et on oublie l'idée de tous les retrouver

En effet, mon exemple ici a quelques colonnes mais le vrai classeur se rends à la colonne EK Je suis certaine qu'elles ne sont pas toutes nécessaire mais bon, autant nager à contre-courant haha!

Je veux inclure un bouton qui "efface tous les filtres actifs" et remet la protection de la feuille après.

J'ai tenté l'enregistreur de macro, ça fonctionnais mais une fois le classeur fermé et ouvert de nouveau, le bouton me fait une erreur.

J'ai cherché partout, je n'ai visiblement pas encore toutes les compétences pour régler un problème aussi simple

Je suis prête à travailler mais il faut me guider
Merci pour votre temps groupe

Phil69970 · 14 Octobre 2022

Bonjour @MiniGen

C'est presque ça
Il te manque cette ligne

ActiveSheet.Unprotect

VB:

Sub test3()

ActiveSheet.Unprotect  '<== à rajouter

Rows("2:2").Select
ActiveSheet.ShowAllData
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
    , AllowSorting:=True, AllowFiltering:=True
End Sub

Merci de ton retour

@Phil69970

Phil69970 · 14 Octobre 2022

Bonjour @MiniGen

C'est presque ça
Il te manque cette ligne

ActiveSheet.Unprotect

VB:

Sub test3()

ActiveSheet.Unprotect  '<== à rajouter

Rows("2:2").Select
ActiveSheet.ShowAllData
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
    , AllowSorting:=True, AllowFiltering:=True
End Sub

Merci de ton retour

@Phil69970

Gen Rose · 15 Octobre 2022

Phil69970 à dit:
Bonjour @MiniGen

C'est presque ça
Il te manque cette ligne

VB:

Sub test3() ActiveSheet.Unprotect '<== à rajouter Rows("2:2").Select ActiveSheet.ShowAllData ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowSorting:=True, AllowFiltering:=True End Sub

Merci de ton retour

@Phil69970

J'ai très hâte d'essayer ça!! Lundi à la première heure et je te reviens aussitôt

Phil69970 · 15 Octobre 2022

@MiniGen

Le principe en général du code sur une feuille protégée est :

1) Je déprotège la feuille (avec ou sans mot de passe)
2) Mon action
3) Je reprotège la feuille (avec ou sans mot de passe)

@Phil69970

Gen Rose · 15 Octobre 2022

Phil69970 à dit:
@MiniGen

Le principe en général du code sur une feuille protégée est :

1) Je déprotège la feuille (avec ou sans mot de passe)
2) Mon action
3) Je reprotège la feuille (avec ou sans mot de passe)

@Phil69970

Donc techniquement, il manque à mon petit bout de code la dernière partie, qui est de protéger la feuille de nouveau?

**Edit: ah non, je viens de le voir là, camouflé haha!

TooFatBoy · 15 Octobre 2022

Bonjour,

L'idéal, à mon avis, reste de protéger la feuille uniquement pour pour l'interface utilisateur. Ça évite de jongler avec les Unprotect et Protect.

Gen Rose · 15 Octobre 2022

TooFatBoy à dit:
Bonjour,

L'idéal, à mon avis, reste de protéger la feuille uniquement pour pour l'interface utilisateur. Ça évite de jongler avec les Unprotect et Protect.

Peux-tu m'en dire davantage? Ça m'intéresse mais je ne suis pas certaine de saisir!

TooFatBoy · 15 Octobre 2022

Je parle de protéger la feuille en utilisant UserInterfaceOnly:=True.
La feuille sera protégée pour l'utilisateur, mais pas pour VBA, donc pas besoin de déprotéger la feuille pour travailler dedans depuis une macro.

Phil69970 · 15 Octobre 2022

Re

Tu as raison Marcel mais je suis pas sur que cela fonctionne à 100 % sur des tableaux structurés

==> https://forum.excel-pratique.com/ex...e-malgre-userinterfaceonly-true-73034#p418171

Et pour un utilisateur pas trop à l'aise avec le VBA je pense qu'il est préférable de contrôler le code avec unprotect et protect
Certes c'est plus long ......

@Phil69970

TooFatBoy · 15 Octobre 2022

Comme il était question de fichier "partagé", je ne pensais pas qu'il comportait des tableaux structurés.

Et j'avoue que je ne connaissais pas cette limitation.

Gen Rose · 17 Octobre 2022

Phil69970 à dit:
@Phil69970

Cette solution est parfaite! Les premiers test sont concluants mais je vais revenir plus tard pour confirmer que son intégration dans le document original fonctionne bien et ce, sur le Share
Un GROS merci Phil

Gen Rose · 17 Octobre 2022

En conclusion, tout fonctionne parfaitement; il faut juste pas oublier d'ajouter son mdp dans le code et pour les novices comme moi qui ne savent pas ou le mettre, j'ai remis le code avec son emplacement ci-dessous **Edit, j'ai retiré le code car finalement, il ne fonctionnait pas

Finalement, si le document est consulté à partir du Share dans un naviguateur, les macros ne fonctionnent pas. Il faut toujours ouvrir dans l'application Excel pour en profiter. C'est un détail hyper important!!

Merci à @Phil69970 et @TooFatBoy pour votre temps xx

Phil69970 · 18 Octobre 2022

Bonjour à tous

@MiniGen

Tu es sur que ton code fonctionne

Perso je ferais comme ceci j'ai commenté le code.

@Phil69970

Gen Rose · 18 Octobre 2022

Phil69970 à dit:
Bonjour à tous

@MiniGen

Tu es sur que ton code fonctionne

Perso je ferais comme ceci j'ai commenté le code.

@Phil69970

**Edit: Non, le code ne fonctionnait pas finalement!

Je suis en train de regarder tes notes et je suis tellement reconnaissante que tu aies pris le temps d'y mettre des solutions avec en plus des explications

Je vais jouer avec ce bout de code aujourd'hui et tenter de bien tout comprendre.

Merci pour ton temps @Phil69970

Microsoft 365 Remettre les filtres à zéro sur feuille protégée

Gen Rose

XLDnaute Impliqué

Pièces jointes

Phil69970

Phil69970

XLDnaute Barbatruc

Gen Rose

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Gen Rose

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Gen Rose

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Gen Rose

XLDnaute Impliqué

Gen Rose

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Pièces jointes

Gen Rose

XLDnaute Impliqué

Discussions similaires