TCD protégé = comment contourner le blocage ?

Bonjour,

Dans un tableur j'ai une feuille "Maître" et une autre "TCD" qui s'actualise automatiquement grâce à un code trouvé ici.

Lorsqu'on "protège" la feuille "TCD", il y a un message info = actualisation impossible du fait de la protection.

Comment contourner cela ? J'ai une petite idée mais il y a peut-être mille fois plus simple !

Je joins un tableur explicitant le tout

Excellente journée

Bonjour,

Code à adapter :

Private Sub Worksheet_Activate()
    With ActiveSheet
        .Unprotect
        .PivotTables(1).PivotCache.Refresh
        .Protect
    End With
End Sub

Jean-Eric a écrit :

Bonjour,

Code à adapter :

Private Sub Worksheet_Activate()
    With ActiveSheet
        .Unprotect
        .PivotTables(1).PivotCache.Refresh
        .Protect
    End With
End Sub

Bonjour Jean-Eric,

C'est certainement le bon code mais ..... si je pars avec le TCD protégé ..."cela ne le fait pas"

si je pars avec le TCD non protégé....l'actualisation se fait mais le TCD reste non protégé !

Je pense que je n'ai pas bien mis le code, pourrais-tu jeter un coup d'oeil et me le mettre au bon endroit ?

J'ai fait plusieurs essais mais il semble qu'il y ait un conflit ...

Merci d'avance

Re,

Je ne comprends pas tout.

J'ai cependant déclaré tes données en tableau (dynamique) pour la prise en compte des ajouts ou suppression de lignes.

Cdlt.

RE,

Je constate que le tableur que tu as joint correspond très exactement à ce que je souhaitais

Maintenant, il ne me reste qu'à "reproduire" le code dans mon tableur, ce que j'ai fait avec succès.

En pratique, il n'y a plus que ton code

et j'en conclus que c'est le code existant -qui automatisait l'actualisation en allant sur l'onglet TCD - qui créait l'affichage d'un conflit.

In fine, et c'est bien l'essentiel.

Merci et bonne continuation

RE,

J'ai un souci inattendu.

Mon véritable tableur présente

1er onglet = tableur maître

2ème onglet = TCD qui fonctionne nickel-chrome avec ce code

puis un 3ème, 4ème et enfin un 5ème onglet TCD qui affichent "erreur exécution 1004"

Avant d'envoyer ce post, j'ai bien vérifié à chaque feuille TCD, il y a le code.

Je ne peux malheureusement pas le mettre ici car il est trop lourd et contient des renseignements personnels.

Est-ce que "tout simplement" le code est valable pour le 1er onglet TCD et pas pour les suivants ?

Cordialement

PS : je vais mettre demain un tableur "identique" à mon tableur réel... à priori, le fait de protéger des TCD ayant la même origine lui-même protégé partiellement "complique" la solution.

Bonjour,

Je ne comprends pas tout, mais copie ce code dans chaque module de feuille qui comprend un TCD (ou des TCDs).

Cdlt.

Private Sub Worksheet_Activate()
Dim pt As PivotTable
    Application.ScreenUpdating = False
    With ActiveSheet
        .Unprotect
        For Each pt In .PivotTables
            pt.PivotCache.Refresh
        Next pt
        .Protect
    End With
End Sub

Bonjour Jean-Eric

Merci de t'accrocher.

J'ai refait un tableur ultra simplifié correspondant à mon tableur réel avec moins de TCD.

Sauf erreur de ma part, -je deviens prudent- j'ai mis dans chaque TCD ton code

cela fonctionne pour le premier TCD mais pour les suivants ...message !

Pourrais-tu voir si l'emplacement du code est bon.....

L'objectif final est de pouvoir protéger la feuille maître.....et qu'en allant sur un des TCD la protection saute, s'actualise puis se protège comme l'indique ton code... mais pourquoi ces messages ?

Je suis curieux de savoir si c'est réalisable.

Bon courage !

Re,

Voir fichier modifié.

Tout se déroule dans le module 'ThisWorkbook'.

Cdlt.

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.ScreenUpdating = False
    For Each Sh In ActiveWorkbook.Worksheets
        Sh.Unprotect
    Next Sh
    ActiveWorkbook.RefreshAll
    For Each Sh In ActiveWorkbook.Worksheets
        Sh.Protect
    Next Sh
End Sub

RE,

J'ai téléchargé le dernier classeur..... et

Tu as trouvé la solution en modifiant le code ?

Peu importe, c'est ok

Excellent WE

Tonthon