XL 2013 Insertion de lignes dans des feuilles protégées

[BrunoXLD44]

Bonsoir le Forum,

La semaine dernière, j'avais ouvert une discussion concernant l'ajout de lignes à l'aide d'une macro sur deux feuilles protégées. Papou-net m'a écrit en me donnant une solution :

Const MDP = "y3wDx:6%5L"

Private Sub Workbook_Open()
Feuil("ACHAT EURO").Protect MDP, userinterfaceonly = True
Feuil("IMPORTATION").Protect MDP, userinterfaceonly = True
End Sub

Je vous avoue que je n'ai pas tout compris sur la procédure à suivre et c'est pour cela que je met en pièce jointe ce que j'ai fait, mais cela ne fonctionne pas, j'ai un message d'erreur.

Merci à tous ceux qui veulent bien m'aider

Bonne soirée

Bruno

 

[Papou-net]

Re : Insertion de lignes dans des feuilles protégées

Bonsoir Bruno,

Peux-tu joindre une copie de ton fichier au lieu d'images peu exploitables?

A +

Cordialement.

 

[Victor21]

Re : Insertion de lignes dans des feuilles protégées

Bonjour.

Jolies les images, mais ni très lisibles, ni aussi utiles qu'un fichier Excel (et ça prend plus de temps pour les joindre).
Dans quel module avez-vous écrit ce code ? ThisWorkbook ?

 

[BrunoXLD44]

Re : Insertion de lignes dans des feuilles protégées

Bonsoir Bruno,

Peux-tu joindre une copie de ton fichier au lieu d'images peu exploitables?

A +

Cordialement.

Pas de soucis je te joint mon fichier en pièce jointe

A très bientôt

Bruno

 

[Papou-net]

Re : Insertion de lignes dans des feuilles protégées

RE:

Je relève une erreur de syntaxe dans la dénomination des feuilles.

Voici la correction:

Const MDP = "y3wDx:6%5L"

Private Sub Workbook_Open()
Sheets("ACHAT EURO").Protect MDP, userinterfaceonly = True
Sheets("IMPORTATION").Protect MDP, userinterfaceonly = True
End Sub

Cordialement.

 

[BrunoXLD44]

Re : Insertion de lignes dans des feuilles protégées

Je ne comprend, j'ai amené la modification que tu m'a donné, je l'ai enregistré et tout fermé. Lorsque j'ouvre mon fichier, j'ai la fenêtre "Microsoft Visual Basic pour Applic..." qui s'ouvre avec le message suivant "Erreur de compilation : Sub ou Function non définie" et si fait Ok la ligne "Private Sub Worbook_open ()" se trouve en jaune. Je ne vois pas de quoi çà vient ?

A très bientôt

Bruno

 

[BrunoXLD44]

Re : Insertion de lignes dans des feuilles protégées

Bonsoir,

Si tu le souhaite, je te fais parvenir mon fichier, comme cela tu pourra voir ce qui cloche dans ce que j'ai fait

Cordialement

Bruno

 

[Papou-net]

Re : Insertion de lignes dans des feuilles protégées

RE:

Teste le fichier en PJ. Chez moi, il fonctionne.

Cordialement.

 

[Papou-net]

Re : Insertion de lignes dans des feuilles protégées

Je ne comprend, j'ai amené la modification que tu m'a donné, je l'ai enregistré et tout fermé. Lorsque j'ouvre mon fichier, j'ai la fenêtre "Microsoft Visual Basic pour Applic..." qui s'ouvre avec le message suivant "Erreur de compilation : Sub ou Function non définie" et si fait Ok la ligne "Private Sub Worbook_open ()" se trouve en jaune. Je ne vois pas de quoi çà vient ?

A très bientôt

Bruno

Je constate que la syntaxe des feuilles n'a pas été corrigée.

Cordialement.

 

[BrunoXLD44]

Re : Insertion de lignes dans des feuilles protégées

ttention aux fichiers provenant d'un emplacement Internet, car ils peuvent contenir des virus........ "Activer la modification"

Si je vais dans les cellules tout est verrouillé, je ne peux rien écrire dans les cellules qui ne sont pas verrouillées.

Si j'appuis sur "Activer la modification" toutes mes cellules sont déverrouillées
Deuxième message d'avertissement de sécurité concernant "du contenu actif a été désactivé.......) "Activer le contenu" toutes mes cellules restent déverrouillées.

Si j'ajoute des lignes cela fonctionne bien, mais mes feuilles ne se verrouillent pas ensuite

A très bientôt

Bruno

 

[Papou-net]

Re : Insertion de lignes dans des feuilles protégées

RE:

Au temps pour moi, dans un précédent message j'ai fait moi-même une erreur de syntaxe dans ThisWorkbook_Open:

Il faut écrire: userinterfaceonly:=True

au lieu de: userinterfaceonly = True

Essaie donc la copie corrigée en PJ.

Cordialement.

 

[BrunoXLD44]

Re : Insertion de lignes dans des feuilles protégées

Bonjour,

J'ai ouvert la copie que tu m'a envoyé, les cellules sont bien verrouillées sur les deux feuilles "ACHAT EURO" et "IMPORTATION" par-contre lorsque je lance la Macro insertion lignes sur la feuille "ACHAT EURO" j'ai bien mes cinq lignes qui s'ajoute sur le feuille "IMPORTATION" mais aucune sur la feuille "ACHAT EURO" alors que je devrais en avoir cinq aussi d'ajouter. En fait je dois toujours avoir le même nombre de lignes entre ces deux feuilles.

Merci pour ta collaboration

A très bientôt

Bruno

 

[Papou-net]

Re : Insertion de lignes dans des feuilles protégées

Bonjour Bruno,

Sub InsertionLignesImportation()

' InsertionLignesImportation Macro
    
With Sheets("IMPORTATION")
    .Activate
    .Rows("40:44").Copy
    .Rows("45").Insert Shift:=xlDown
    Application.CutCopyMode = False
End With
With Sheets("ACHAT EURO")
    .Activate
    .Rows("40:44").Copy
    .Rows("45").Insert Shift:=xlDown
    Application.CutCopyMode = False
End With

End Sub

Celà répond-il à ta question?

A +

Cordialement.

PS: les deux lignes .Activate ne sont pas nécessaires.

 

[BrunoXLD44]

Re : (RESOLU) Insertion de lignes dans des feuilles protégées

Super!!! tout fonctionne

Merci beaucoup pour ton aide

A très bientôt

Bruno