Actualiser un TCD protégé avec VBA

mcstayhi99 -

Bonjour,

Voici le problème qu je rencontre :

J'ai un Tcd protégé que je veux actualiser sur excel 2010, voici le code que j'ai mis et que j'ai lié a un bouton:

Sub Actualiser()
'
' Actualiser Macro
'

'
ActiveSheet.Unprotect

ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowUsingPivotTables:=True

ActiveWorkbook.Protect Structure:=True, Windows:=False

End Sub

Qd j'appuie sur le bouton il me sort un message comme quoi je peux pas actualiser un tcd protégé ,qd j'enlève la partie "AllowUsingPivotTables:=True" sa fonctionne mais sa me donne une autre erreur " tableau croisé dynamique impossible a modifier dans une feuille protégé".

voici le fichier : https://www.cjoint.com/?DBvszAQhBFo

Merci pour votre aide.

Afficher la suite

1 réponse

Réponse 1 / 1
Vaucluse Contributeur
Re pour aujourd'hui
Ça ne va toujours pas?
Pour info,la macro n'est pas dans le fichier.
crdlmnt
0
1. mcstayhi99 Auteur
  
  Oui Ça ne va toujours pas malheureusement.
  
  voici la macro :
  
  Sub Actualiser()
  '
  ' Actualiser Macro
  '
  
  '
  ActiveSheet.Unprotect
  
  ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
  
  ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
  True, AllowUsingPivotTables:=True
  
  ActiveWorkbook.Protect Structure:=True, Windows:=False
  
  End Sub
  
  Merci.
  
  0
2. Vaucluse Contributeur
  
  La macro on connait, ce que je voulais dire, c'est qu'elle n'est pas dans le fichier que vous avez mis à disposition et que dans tous les cas, on ne peut pas la valider vu que le TCD fait référence à un autre classeur!
  
  0
3. mcstayhi99 Auteur
  
  Regardez juste si je px ajouter quelque chose sur cette macro pour qu'elle puisse fonctionner.
  je travaille depuis hier sur sa et je n'arrive tjrs pas a réglé ce problème.
  
  Merci
  
  0
4. Vaucluse Contributeur
  
  Désolé, mais pour ce qui me concerne, elle devrait fonctionner, mais comment voulez vous qu'on valide avec un fichier qui ne contient ni la macro, ni la source de données du TCD?
  Au hasard essayez en laissant seulement dans la ligne de protection la partie en gras ci dessous et supprimer le reste
  ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
  True, AllowUsingPivotTables:=True
  Jusqu'à:
  ActiveWorkbook.Protect Structure:=True, Windows:=False qui est à conserver
  
  0
5. mcstayhi99 Auteur
  
  j'ai déjà essayé ça, le segment ne fonctionne plus et les données ne s'actualisent pas.
  
  0

Actualiser un TCD protégé avec VBA

1 réponse

Discussions similaires

Newsletters