Discussion :

[ouskel'n'or]

J'ai tenté d'utiliser la collection AllowEditRanges

Cet objet représente les cellules qui peuvent être modifiées dans une feuille de calcul protégée.

mais, même en reprenant le code de l'exemple fourni par l'aide, la méthode Add ne fonctionne pas.
Sans doute manque-t-il une ligne nécessaire à la création de l'objet collection...
Si quelqu'un connaît la solution, par avance, merci.

[Pierre Fauconnier]

Salut...

Ta feuille est bien déprotégée lorsque tu lances le code?

[cafeine]

Hello,

à mon avis c'est que ta zone d'édition autorisée est déjà créée ...

essaie un truc dans le genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Protege()
 
Dim sh As Worksheet
Dim eRange As AllowEditRange
Const rEdition As String = "Zone Autorisee"
 
Set sh = ActiveSheet
sh.Unprotect
 
If sh.Protection.AllowEditRanges.Count > 0 Then
    For Each eRange In sh.Protection.AllowEditRanges
        If eRange.Title = rEdition Then
            eRange.Delete
            Exit For
        End If
    Next eRange
End If
sh.Protection.AllowEditRanges.Add rEdition, Range("A10:C15")
 
sh.Protect
 
Set eRange = Nothing
Set sh = Nothing
 
End Sub

[ouskel'n'or]

Ta feuille est bien déprotégée lorsque tu lances le code?

Oui. Merci.
Merci Cafeine, super !
Il me reste à comprendre pourquoi ton code fonctionne au premier quart de tour alors que celui de l'aide me met un message d'erreur que j'ai trouvé très agressif

Edit
Ok pour ta supposition, Cafeine, sur une feuille toute neuve le code de l'aide fonctionne. Il suffit de jouer avec les protect/unprotect pour que ce ne soit plus le cas. Ton test élimine effectivement le problème.