Protection d'une partie de Pivot Table

Bonjour,

Je cree ce sujet aujourd'hui car apres de longues heures de recherche je ne trouve toujours rien ...

Je boss sur un excel et mon probleme est que je n'arrive pas a bloquer que ceraines case du Pivot table ou inversement bloquer que une seul case. Une erreur est ecrite ("Cannot edit Pivot table on protected sheet")

J'ai pourtant trouve des video qui le fait mais pas sur excel 2016. ( https://www.youtube.com/watch?v=q96lCJkOVbA )

Merci d'avance si vous trouvez la solution !!

ps: j'ai pas d'accent sur mes mots car j'ai un clavier anglais desole ...

Une photo en exemple

Je voudrais bloquer que RAC ou alors tout sauf IQP et Periode.

Bonjour,

Sans fichier joint, essaie ces 2 procédures VBA :

Option Explicit

'Tous les champs de lignes
Public Sub Restrictions()
Dim pt As PivotTable, pf As PivotField
    Set pt = ActiveSheet.PivotTables(1)
    pt.PivotCache.Refresh
    pt.ClearAllFilters
    For Each pf In pt.RowFields
        pf.EnableItemSelection = False
    Next pf
End Sub

'Le champ RAC uniquement
Public Sub Restrictions2()
Dim pt As PivotTable, pf As PivotField
    Set pt = ActiveSheet.PivotTables(1)
    Set pf = pt.PivotFields("RAC")
    pt.PivotCache.Refresh
    pf.ClearAllFilters
    pf.EnableItemSelection = False
End Sub

Pour commencer merci pour ta reponse, Malheureusement cela marche pas, voici un exemple joint pour voir si tu y arrive.

Je voudrais pouvoir tout bloquer sauf marge du Pivot Table, tu penses que cela est possible ?

Merci en avance !

Re,

Quel est le rapport entre la question posée (les images) et le fichier que tu as joint ?

Il faut être sérieux !...

Cdlt.

Re,

J'ai pas envoye le bon excel car il est confidentiel c'est pour cela que j'ai donne un autre plus simple mais qui correspond au meme probleme.

Bon j'ai reussis a trouver un solution alternative a mon probleme merci quand meme de ton aide !

Cordialement.

Bonjour,

Quelle est l'alternative ?

Merci par avance.

Cdlt.

Bonjour,

L'alternative est de faire un module VBA (Macro):

Option Explicit

Public Sub EnableSelection()

Dim pt As PivotTable, pf As PivotField

Set pt = ActiveSheet.PivotTables(1)

Set pf = pt.PageFields("RAC")

pf.ClearAllFilters

pf.EnableItemSelection = True

Set pf = Nothing: Set pt = Nothing

End Sub

Public Sub DisableSelection()

Dim pt As PivotTable, pf As PivotField, sPI As String

sPI = "CPASCAL2"

Set pt = ActiveSheet.PivotTables(1)

Set pf = pt.PageFields("RAC")

On Error GoTo err_Handler

pf.CurrentPage = sPI

pf.EnableItemSelection = False

exit_Handler:

Set pf = Nothing: Set pt = Nothing

Exit Sub

err_Handler:

MsgBox "Le champ " & sPI & " est inconnu.", vbInformation

Resume exit_Handler

End Sub

Cela permet de bloquer le bouton pour changer de nom dans mon cas, comme cela il ne peut pas acceder aux donnees des autre utilisateurs.

Cordialement.