Méthode add de l'objet AllowEditRange fonctionne... maintenant

Version imprimable

26/09/2007, 11h27
ouskel'n'or

Méthode add de l'objet AllowEditRange fonctionne... maintenant

J'ai tenté d'utiliser la collection AllowEditRanges

Citation:

Envoyé par moi ! Pour l'objet AllowEditRange l'aide dit

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.
26/09/2007, 12h29
Pierre Fauconnier

Salut...

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

Hello,

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

essaie un truc dans le genre :

Code:

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

26/09/2007, 12h58
ouskel'n'or

Citation:

Envoyé par Pierre Fauconnier

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.