Discussion :

[Monkey_D.Luffy]

Bonjour,

J'ai une macro qui créé un classeur (via Workbooks.add) et protège ses feuilles.
Or lorsque les feuilles sont protégées, on ne peut pas grouper/dégrouper les lignes. J'ai corrigé cela en utilisant le code suivant

Code :

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

1
2
3
 
ws.EnableOutlining = True
ws.Protect Contents:=True, UserInterfaceOnly:=True

Ce code permet d'avoir une feuille protégée, tout en laissant à l'utilisateur la possibilité de cacher/décacher les lignes.
Mais quand on ferme et ré-ouvre le fichier, ces propriétés passent à False (car Excel fonctionne ainsi d'après ce que j'ai compris) et l'utilisateur ne peut plus cacher/décacher les lignes.

Comment faire passer cette propriété à True par défaut ? Ou sinon est-il possible en VBA d'ajouter du code dans un fichier créé ?

Merci pour votre aide.

[mercatog]

mets là dans l'évènement du classeur Workbook_Open()

[Jean-Philippe André]

salut,
pour acceder au code VBA d'un fichier, tu peux utiliser un code VBA du style

Code :

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

1
2
3
4
5
6
7
Dim oExcel as Excel.Application
'parcourir le contenu VBA de chaque module VBA
For i = 1 To oExcel.VBE.VBProjects(1).VBComponents.Count
        With oExcel.VBE.VBProjects(1).VBComponents.item(i).CodeModule
        ' pour le remplacement d'une ligne entière
            For k = 1 To .CountOfLines
                Cible = .Lines(k, 1)

avec Cible qui contient ici le contenu du code VBA

En utilisant la fonction appropriee, tu peux ecrire dans le module en VBA via VBA

[Monkey_D.Luffy]

Ah c'est exactement ce que je cherchais. Il ne reste plus qu'à adapter ce code à ma macro.

Merci beaucoup.

[neupont]

Sinon une autre possibilité, peut-être plus simple mais qui ne fonctionne (je pense) qu'avec le code attaché à une feuille (et donc pas au classeur ni à un module), serait d'avoir dans le fichier contenant la macro une feuille identique à celle qu'on veut dans la cible, et de l'y faire copier par VBA. Dans ce cas le code attaché à la feuille (worksheet) suit.

[Monkey_D.Luffy]

Merci pour ta réponse.
J'avais pensé à quelque chose de similaire : au lieu de faire un workbooks.add, j'ouvre un fichier vide contenant l'event que je veux, comme ça les fichiers créés auraient toujours ce code. Mais pour l'utilisateur ça fait un fichier source en + et on m'a dit que ce n'est pas pratique.

Je rencontre un problème sinon avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub test()
 
    Dim i As Long, k As Long
 
    'parcourir le contenu VBA de chaque module VBA
    For i = 1 To Application.VBE.VBProjects(1).VBComponents.Count
        With Application.VBE.VBProjects(1).VBComponents.Item(i)
            Debug.Print .CodeModule.CountOfLines & " lignes dans le module " & .Name
        End With
    Next i
 
End Sub

Un message d'erreur me dit "Can't perform operation since the project is protected."
Pourtant dans VBAProject Properties, j'ai le Lock qui est décoché.

D'où vient le problème selon vous ?