Actualiser un TCD protégé avec VBA
mcstayhi99
Messages postés
34
Statut
Membre
-
mcstayhi99 Messages postés 34 Statut Membre -
mcstayhi99 Messages postés 34 Statut Membre -
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.
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.
A voir également:
- Actualiser un TCD protégé avec VBA
- Tcd excel - Guide
- Proteger un dossier avec mot de passe - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
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.
je travaille depuis hier sur sa et je n'arrive tjrs pas a réglé ce problème.
Merci
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