XL 2016 Impossible de protéger cellules Verrouillées

[KTM]

Bonjour chers tous

Je voudrais protéger les feuilles de mon classeur.

Pour chaque feuille toutes les cellules sont verrouillées sauf les zones en jaune .

La protection autorise uniquement la sélection des cellules.

Après avoir protéger mes feuilles il se trouve que certaines cellules verrouillées ne sont pas touchées par la protection. Surtout des cellules du deuxième tableau.

Mot de passe =0000
Je l'ai fais manuellement comme par macro mais le résultat est identique
Voici la macro utilisée:

Sub protectPlage()
Dim sh As Worksheet
Dim i As Long
Application.ScreenUpdating = False

    For Each sh In ThisWorkbook.Worksheets
        With sh
            .Activate
            .Unprotect "0000"
            .Cells.Locked = True
        End With
    Next sh
For i = 1 To 4
       With Worksheets(i)
            .Activate
            .Range("D3:D45,F3:H45,J3:J45").Locked = False
            .Range("D28:D39,F28:H39,J28:J39").Locked = False
            .Range("R7:AK23,R30:AK30,R36:AK40").Locked = False
            .EnableSelection = xlNoRestrictions
            .Protect "0000"
        End With
Next i
End Sub

J'ai besoin vraiment d'aide.

Merci!!!!!

 

[TooFatBoy]

Bonjour,

Après avoir protégé mes feuilles, il se trouve que certaines cellules verrouillées ne sont pas touchées par la protection. Surtout des cellules du deuxième tableau.

Tu peux donner un exemple de cellule qui est verrouillée mais modifiable ?


[edit]
Ah oui, tu parles des cellules de totaux qui sont sur la même ligne que les cellules fusionnées, je suppose ?
[/edit]

 

[KTM]

Bonjour,


Tu peux donner un exemple de cellule qui est verrouillée mais modifiable ?


[edit]
Ah oui, tu parles des cellules de totaux qui sont sur la même ligne que les cellules fusionnées, je suppose ?
[/edit]

exactement ainsi que les lignes avec M,F

 

[sylvanu]

Bonjour KTM, TooFatBoy,
C'est pour le moins original car ces cellules sont bien verrouillées mais reste accessible quand la feuille est protégée.
Mais quand cette macro est exécutée sur un fichier vierge, ça marche correctement. ( testé sur R6:AK6)
Strange ...

 

[sylvanu]

Il est des jours où il ne faut pas essayer de comprendre.
Si on détruit ces cellules, et qu'on les reconstruit .... alors ça marche.

Non, non, ne cherchez pas à comprendre ! Surement des cellules vérolées, va savoir.

 

[TooFatBoy]

Je crois que j'ai trouvé un truc...

 

[sylvanu]

Chouette, éclairez nous dans notre sombre brouillard !

 

[TooFatBoy]

Il est des jours où il ne faut pas essayer de comprendre.
Si on détruit ces cellules, et qu'on les reconstruit .... alors ça marche.

Non, non, ne cherchez pas à comprendre ! Surement des cellules vérolées, va savoir.

Ca, ça me rappelle quelqu'un d'autre qui, lui, accepte même si c'est absurde.
Non non, il faut chercher !

 

[TooFatBoy]

Chouette, éclairez nous dans notre sombre brouillard !

C'est un truc que je ne connais pas. Je n'avais jamais cherché de ce côté, et je ne sais même pas comment ça s'active...

Bouge pas, je fais une capture d'écran. Tu vas peut-être pouvoir m'expliquer ce que c'est, et si ça a ou non un rapport.

 

[TooFatBoy]

J'ai donc trouvé ça :

On peut lire : Plages déverrouillées ... lorsque la feuille est protégée.
Et dans les plages, on voit R6:AK26

 

[sylvanu]

Et en même temps :

 

[TooFatBoy]

Et en même temps :

OK, donc en fait ça n'a aucun rapport. Dommage.

[edit]
Ah ben si, je viens d'essayer, c'était bien ça : si on corrige la plage, les cellules sont bien protégées.
La bonne plage est : =$R$7:$AK$23;$R$30:$AK$30;$R$36:$AK$40
ou tout simplement supprimer cette plage.
[/edit]

 

[TooFatBoy]

Il faut cliquer dans le ruban sur "Permettre la modification des plages" :

Puis supprimer :

Et les cellules sont bien protégées.

 

[KTM]

Il faut cliquer dans le ruban sur "Permettre la modification des plages" :
Regarde la pièce jointe 1155701

Puis supprimer :
Regarde la pièce jointe 1155702

Et les cellules sont bien protégées.

GRAND MERCI!!!!!!!!!!! FIN DU CALVAIRE!

 

[sylvanu]

Oui, mais comment en arrive ton là ?
Comme je suppose que KTM ( ni moi d'ailleurs ) ne connaissions ça, il n'y a pas toucher.
Peux t-on jouer sur ce paramètres autrement que par cette commande ? Par VBA par ex.