VBA pour Actualisation de TCD et Segment dans fichier protégé

Accueil – Le CFO masqué Forums VBA VBA pour Actualisation de TCD et Segment dans fichier protégé

  • Ce sujet contient 2 réponses, 2 participants et a été mis à jour pour la dernière fois par Evelise Schiavon Mazon, le il y a 2 années.
3 sujets de 1 à 3 (sur un total de 3)
  • Auteur
    Articles
  • #102475
    Evelise Schiavon Mazon
    Participant

    Bonjour,

    J’ai protégé un fichier avec mot de passe. Dans “Protéger la feuille”, j’ai coché “Sélectionner les cellules déverrouillées” et “Utiliser des TCD..”

    Ensuite j’ai créé une macro pour faire l’actualisation de la source des données et du TCD.

    Après l’exécution de la macro on voit bien que la nouvelle période s’est rajouté dans le Segment, toutefois lorsque j’essaie de cliquer sur cette nouvelle période, j’ai le message suivant : “TCD impossible à modifier dans une feuille protégée”.

    Dans les propriétés du Segment, j’ai décoché la case “Verrouillé”.

    La macro que j’utilise est ci-dessous. Je suis nulle dans les macros, est-ce qu’il y a une solution pour ce que je cherche?

    Merci beaucoup,
    Evelise

    Sub Actualisation_totale()

    ‘ Actualisation_totale Macro


    ActiveSheet.Unprotect Password:=”mdp”
    ActiveWorkbook.Unprotect Password:=”mdp”
    ActiveWorkbook.RefreshAll
    ActiveSheet.Protect Password:=”mdp”
    ActiveWorkbook.Protect Password:=”mdp”

    End Sub

    #102644
    Éric Ste-Croix
    Participant

    Bonjour,

    Dans la ligne du code VBA qui protege l’onglet, vous pourriez ajouter une mention permettant d’utiliser les tableaux croises dynamiques.

    Voici ci bas le code VBA que je propose

    Cordialement

    Eric Ste-Croix

    Sub Actualisation_totale()

    ‘ Actualisation_totale Macro

    ActiveSheet.Unprotect Password:=”mdp”
    ActiveWorkbook.Unprotect Password:=”mdp”
    ActiveWorkbook.RefreshAll
    ActiveSheet.Protect AllowUsingPivotTables:=True, Password:=”mdp”
    ActiveWorkbook.Protect Password:=”mdp”

    End Sub

    #102844

    Bonjour Éric!

    WOW! Cela fonctionne à merveille!!!!!!
    Un très, très gros merci 🙂

    Evelise

3 sujets de 1 à 3 (sur un total de 3)
  • Vous devez être connecté pour répondre à ce sujet.