Un code pour faciliter "actualiser"

Bonjour,

Dans le cadre d'une association, j'ai créé des TCD (à parfaire) qu'il faut verrouiller par sécurité

Mais cela empêche l'accès à actualiser !

La solution serait si cela est possible d'avoir un code permettant à l'ouverture d'une feuille

1. ôter la protection
2. faire "actualiser"
3. remettre la protection

Je mets le tableur pour expliciter et merci d'avance pour votre aide

Cordialement

bonjour Tonthon,

j'éspère que c'est la même chose qu'avec excel ... (et je ne savais pas la bonne extension)

Private Sub Worksheet_Activate()
     For i = 1 To 2
          On Error Resume Next               'continuer en cas d'erreur + Reset Err.number
          Me.PivotTables(1).RefreshTable     'renouveller TCD
          If Err.Number > 0 Then             'Y-a-t-il une erreur ?
               Me.Unprotect
               Me.Protect userinterfaceonly:=True     ', AllowUsingPivotTables:=true
          Else
               Exit For
          End If
     Next
     On Error GoTo 0
End Sub

Bonsoir Bart

Je viens d'essayer vite fait, cela a l'air de bien fonctionner

Mille mercis car cela va me permettre de tout sécurisé.

Excellente soirée

Tonthon