Message privé, protection des feuilles

stefan373

XLDnaute Occasionnel
Bonsoir le forum,

Ayant reçu en message privé ce petit mail, :)


Stéfan, bonjour,

Je lisais (pour l'appliquer) ton post de début 2012 concernant ce sujet (l'objectif est de pouvoir activer les tirettes de grouper/dissocier quand la feuille est protégée afin d'en faciliter la lecture. Je suis vraiment débutant en VBA et j'ai donc essayé de suivre tes instructions à la lettre. J'ai un fichier avec trois feuilles (ou onglets) rebaptisés. Les trois feuilles ont des formules de renvoi (je suppose que c'est comme cela qu'on les nomme). J'ai mis un texte dans le code du ThisWorkbook comme suit :

Code:
Private Sub Workbook_Open()
   'With Worksheets("Feuil3(Prestations)")     'ERREUR
   With Sheets("Prestations")                      'CORRECTE
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
   End With
   'With Worksheets("Feuil2(Offre-facturation)")
   With Sheets("Offre-facturation")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
   End With
   'With Worksheets("Feuil1(Doss_liste)")
   With sheets("Doss_liste")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
   End With
End Sub

il me met une erreur code 9 et ne semble pas reconnaitre le nom de la feuille. J'ai essayé avec Feuil2 ... puis Feuil2(non).
Peux tu me dire ce qui cloche.
En te remerciant par avance ... je suis vraiment amateur en VBA ...
Bien amicalement.
Et sa signature évidement. :)


ne sachant pas précisément comment procéder pour traiter cette demande par mail, je me permet de la joindre dans un nouveau fil et ainsi en faire bénéficier le forum. ( Sans prétention de ma part :eek:, vu mes connaissances en VBA)
J'estime que les messages privés dans cette circonstance ne servent pas la communauté. :)

A + Stéfan
 

Discussions similaires

Réponses
2
Affichages
856

Statistiques des forums

Discussions
312 963
Messages
2 093 997
Membres
105 907
dernier inscrit
Evolugame