XL 2019 Soucis utilisation segment sur feuille protégée

[Kaizers]

Hello la team

J'ai bouclé une macro, qui génère un PDF de mon onglet de présentation final, puis l'envoi par mail, tout fonctionne parfaitement.

En revanche c'est un fichier créer pour des utilisateurs opérationnels, verrouiller dans tous les sens.
Les macros qui agissent unprotect et protect les feuilles pour chaque application.

Toute fois, j'ai de la résistance sur les segments de TCD
Si je mets des protections sur les segments, on ne peut plus les déplacer mais on ne peut plus NON plus les utiliser
Et si je retire les protections on peut utiliser le segment, mais aussi le déplacer...

je veux utiliser les segments, mais pas autoriser à les bouger

vous savez ?

 

[sylvanu]

Bonjour Kaizers,
J'ai l'impression que votre souci n'inspire pas beaucoup de solution.
Alors peut être une idée si tous vos TCD sont sur la même feuille.
C'est d'interdire toute sélection sur cette feuille, on ne peut donc ni sélectionner des cellules, ni déplacer les TCD .
Dès qu'on touche à une cellule on va en A1. Mais la feuille n'est pas protégée.
Cependant il faut pouvoir actualiser les TCD, on peut le faire sur sélections de la feuille, ce sera automatique.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Interdit toute selection de cellules
    [A1].Select
End Sub
Sub Worksheet_Activate()
' Raffraichit les TCD à la selection de la feuille.
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
End Sub

 

[sylvanu]

Re,
Ou peut être plus simplement avec :

Sub Worksheet_Activate()
' Raffraichit les TCD à la selection de la feuille.
    ActiveSheet.Unprotect
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
    ActiveSheet.Protect
End Sub

La feuille est déprotégée, puis rafraichit les TCD et la reprotège.
Reste à savoir si vous voulez aussi modifier la structure du TCD, dans ce cas il faut déprotéger à la main.