XL 2016 Problème après avoir protéger une feuille

[loreak]

Bonjour,

Ce message d'erreur s'affiche lorsque j'ouvre mon fichier Excel :

Je voudrais supprimer ce message lors de l'ouverture
Le problème vient d'une feuille ou il y a plusieurs TCD, lorsque que je verrouille la feuille je coche bien "Utiliser des tableaux croisés dynamiques et Pivochart" (Voir ci dessous)

Même les macros qui permet de verrouillé la feuille avec un Bouton utilise ce code " ActiveSheet.Protect Password:="****", Contents:=True, AllowUsingPivotTables:=True"
Mais le pb persiste.
Si quelqu'un à une idée je suis preneur

Merci d'avance

 

[Phil69970]

@loreak

Le principe général :

'1er cas on gère toutes les feuilles en même temps
Sub Blocage() 'Protege toutes les feuilles en même temps
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect "toto"   '(MdP à adapter)
Next ws
End Sub

Sub Deblocage() 'Déprotege toutes les feuilles en même temps
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Unprotect "toto"   '(MdP à adapter)
Next ws
End Sub


'************
'2eme cas on gère feuille par feuille
Sub blabla()
'On déprotège LA feuille et seulement celle que l'on souhaite (nom de la feuille à adapter)
Worksheets("Feuil1").Unprotect Password:="toto"   '(MdP à adapter)

'On exécute le code....
'blablabla

'On reprotège LA feuille (nom de la feuille à adapter)

Worksheets("Feuil1").Protect Password:="toto", DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFiltering:=True '(MdP à adapter)
End Sub

Le plus fréquent est de faire avec la solution 2 car si tu as 20 feuilles il est inutile de traiter les 20 feuilles si tu dois intervenir que sur une feuille....

Pour info :
1)Avant de te lancer dans la protection/déprotection assure toi que ton code fonctionne correctement
2)Pense bien qu'excel offre une protection illusoire.

Merci de ton retour

 

[eriiic]

Bonjour,

tu as essayé en protégeant tes feuilles avec le paramètre

, UserInterfaceOnly:=True

?
eric

 

[Phil69970]

Bonjour @eriiic

A condition de ne pas avoir de TS sinon problème lors de l'ajout de ligne

 

[TooFatBoy]

Bonjour,

A condition de ne pas avoir de TS sinon problème lors de l'ajout de ligne

Ou à condition de ne pas faire partager le classeur par Excel, si je ne me trompe.

 

[loreak]

Bonjour à tous,

@Phil69970
le problème n'est pas le code, il fonctionne bien (code-ci dessous)
Code permettant de déprotéger la feuille, trier les données de TCD et de reprotéger la feuille.

Sub TriTotalGénéral5()
    Dim PvT As PivotTable
    Dim c As Range
    Dim idx As Variant
        Dim PvT1 As PivotTable
    Dim c1 As Range
    Dim idx1 As Variant
    With ThisWorkbook.Sheets("Bilan Mois")
    
ActiveSheet.Unprotect "1234"
        Set PvT = .PivotTables("Tableau croisé dynamique4")
        
        ' Trouver l'index de colonne de Total général
        idx = Application.Match("Total général", PvT.ColumnRange.Rows(2), 0)
        
        ' Si trouvé
        If Not IsError(idx) Then
        
        ' Récupérer la cellule correspondante
        Set c = PvT.ColumnRange.Cells(idx)
        
        ' Puis trier avec comme clef la première cellule de valeur
        PvT.DataBodyRange.Sort Key1:=c.Offset(2), Order1:=xlDescending, Type:=xlSortValues
        
        End If
    End With

    
    With ThisWorkbook.Sheets("Bilan Mois")
    

        Set PvT1 = .PivotTables("Tableau croisé dynamique11")
        
        ' Trouver l'index de colonne de Total général
        idx1 = Application.Match("Total général", PvT1.ColumnRange.Rows(2), 0)
        
        ' Si trouvé
        If Not IsError(idx1) Then
        
        ' Récupérer la cellule correspondante
        Set c1 = PvT1.ColumnRange.Cells(idx1)
        
        ' Puis trier avec comme clef la première cellule de valeur
        PvT1.DataBodyRange.Sort Key1:=c1.Offset(2), Order1:=xlDescending, Type:=xlSortValues
        
        End If
    End With
    
ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowUsingPivotTables:=True

End Sub

@eriiic
j'ai essayé ta proposition mais ca ne fonctionne pas

 

[loreak]

Bonjour,


Ou à condition de ne pas faire partager le classeur par Excel, si je ne me trompe.

Après mon fichier partage des données avec d'autre classeur, ça peut être du à ça ?

 

[Phil69970]

@loreak


Perso, ==> Pas de fichier pour faire des tests pas de chocolat

 

[loreak]

@Phil69970
Bon, le fichier est trop volumineux même en supprimant les parties non essentielles.

 

[TooFatBoy]

Après mon fichier partage des données avec d'autre classeur, ça peut être du à ça ?

Non. Je parlais du partage du classeur par Excel, permettant à plusieurs personnes de travailler simultanément sur ledit classeur.

 

[Phil69970]

Re

==> Donc pas de chocolat

 

[loreak]

Non. Je parlais du partage du classeur par Excel, permettant à plusieurs personnes de travailler simultanément sur ledit classeur.

Ok, du coup nan mon classeur n'est pas en mode partager.

@Phil69970 ==> dommage

Merci quand même je vais chercher de mon coté