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

[Gen Rose]

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]

Bonjour @MiniGen

C'est presque ça
Il te manque cette ligne

ActiveSheet.Unprotect

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]

Bonjour @MiniGen

C'est presque ça
Il te manque cette ligne

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]

@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]

@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]

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]

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]

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]

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]

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]

@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]

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]

Bonjour à tous

@MiniGen

Tu es sur que ton code fonctionne

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

@Phil69970

 

[Gen Rose]

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