Dans mon ThisWorkbook j'ai appliqué la phrase suivant (gracieuseté de
MichDenis) tout fontionne à merveille....
________________________________
Private Sub Workbook_Open()
Dim Arr, Elt As Variant
Arr = Array("Coûts", "Rapports", "Dt Arg", "Dt Hre-H")
For Each Elt In Arr
With Worksheets(Elt)
.EnableOutlining = True
.Protect Contents:=True, userInterfaceOnly:=True
End With
_____________________________________________
Cependant j'ai essayé d'ajouter des feuille avec la même syntaxe soit :
Dim Arr, Elt As Variant
Arr = Array("Coûts", "Rapports", "Dt Arg", "Dt Hre-H", "Dt Mat", "Dt Équip")
Ouffff. Que de message d'erreure VB à l'enregistrement et à l'ouverture...
Je n'arrive pas trouver
Quelqu'un à une idée de ce que ca pourrait être???
Merci beaucoup,
Vous êtes tous très gentils de bien vouloior m'aider
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
bonjour,
es-tu sure que l'orthographe des élements du Array est exactement celle des noms des feuilles en question?. Perso, j'ai du mal à écrire un nom de feuille avec un é en majuscule.
A+
Bonjour,
Dans mon ThisWorkbook j'ai appliqué la phrase suivant (gracieuseté de MichDenis) tout fontionne à merveille.... ________________________________
Private Sub Workbook_Open()
Dim Arr, Elt As Variant Arr = Array("Coûts", "Rapports", "Dt Arg", "Dt Hre-H")
For Each Elt In Arr With Worksheets(Elt) .EnableOutlining = True .Protect Contents:=True, userInterfaceOnly:=True End With _____________________________________________
Cependant j'ai essayé d'ajouter des feuille avec la même syntaxe soit :
Dim Arr, Elt As Variant Arr = Array("Coûts", "Rapports", "Dt Arg", "Dt Hre-H", "Dt Mat", "Dt Équip")
Ouffff. Que de message d'erreure VB à l'enregistrement et à l'ouverture... Je n'arrive pas trouver
Quelqu'un à une idée de ce que ca pourrait être???
Merci beaucoup, Vous êtes tous très gentils de bien vouloior m'aider
Julie
bonjour,
es-tu sure que l'orthographe des élements du Array est exactement celle des
noms des feuilles en question?. Perso, j'ai du mal à écrire un nom de feuille
avec un é en majuscule.
A+
Bonjour,
Dans mon ThisWorkbook j'ai appliqué la phrase suivant (gracieuseté de
MichDenis) tout fontionne à merveille....
________________________________
Private Sub Workbook_Open()
Dim Arr, Elt As Variant
Arr = Array("Coûts", "Rapports", "Dt Arg", "Dt Hre-H")
For Each Elt In Arr
With Worksheets(Elt)
.EnableOutlining = True
.Protect Contents:=True, userInterfaceOnly:=True
End With
_____________________________________________
Cependant j'ai essayé d'ajouter des feuille avec la même syntaxe soit :
Dim Arr, Elt As Variant
Arr = Array("Coûts", "Rapports", "Dt Arg", "Dt Hre-H", "Dt Mat", "Dt Équip")
Ouffff. Que de message d'erreure VB à l'enregistrement et à l'ouverture...
Je n'arrive pas trouver
Quelqu'un à une idée de ce que ca pourrait être???
Merci beaucoup,
Vous êtes tous très gentils de bien vouloior m'aider
es-tu sure que l'orthographe des élements du Array est exactement celle des noms des feuilles en question?. Perso, j'ai du mal à écrire un nom de feuille avec un é en majuscule.
A+
Bonjour,
Dans mon ThisWorkbook j'ai appliqué la phrase suivant (gracieuseté de MichDenis) tout fontionne à merveille.... ________________________________
Private Sub Workbook_Open()
Dim Arr, Elt As Variant Arr = Array("Coûts", "Rapports", "Dt Arg", "Dt Hre-H")
For Each Elt In Arr With Worksheets(Elt) .EnableOutlining = True .Protect Contents:=True, userInterfaceOnly:=True End With _____________________________________________
Cependant j'ai essayé d'ajouter des feuille avec la même syntaxe soit :
Dim Arr, Elt As Variant Arr = Array("Coûts", "Rapports", "Dt Arg", "Dt Hre-H", "Dt Mat", "Dt Équip")
Ouffff. Que de message d'erreure VB à l'enregistrement et à l'ouverture... Je n'arrive pas trouver
Quelqu'un à une idée de ce que ca pourrait être???
Merci beaucoup, Vous êtes tous très gentils de bien vouloior m'aider
