Discussion :

[retraite83]

Bonjour,

j'ai une feuille protégée pour éviter les mauvaises manipulations, cependant je voudrai que l'utilisateur puisse insérer des lignes par "accueil / insérer / Insérer des lignes dans la feuille" sans avoir à déclencher une macro VBA

La protection souhaitée est pour protéger des lignes entières en début de la feuille, ensuite les lignes ne contiennent plus aucune cellule verrouillée, ce qui n'empêche qu'on ne peut pas insérer une ligne si la feuille est protégée entièrement.

Je crains qu'en Excel pur on ne puisse pas..

A moins qu'on puisse avec une macro évènementielle en déprotégeant et reprotégeant la feuille, mais je ne vois pas du tout comment la déclencher sur une demande d'insertion

[Menhir]

Ruban Révision > Icone Protéger la feuille > Cocher "Insérer des lignes" > Ok

[retraite83]

Merci je ne connaissais pas ces possibilités,

cela marche bien sur le classeur, par contre j'enregistre, je ferme mais quand je l'ouvre à nouveau, les cases cochées ont disparues

[retraite83]

Bonjour,

j'ai recréé à partir de zéro mon classeur, je confirme qu'avec un code spécifique à la feuille, les paramètres autorisant "insérer" et "supprimer" les lignes au moment de la protection disparaissent lors de la prochaine ouverture du classeur.

Peut être n'y a-t-il aucun lien, mais en tout cas le problème existe, et je suis obligé de ne pas protéger la feuille contre les mauvaises manipulations

[Phil333250]

Bonjour,

Si tu veux insérer des lignes par "accueil / insérer / Insérer des lignes dans la feuille", après avoir protégé ta feuille avec un mot de passe ou non, il te faut sélectionner la ligne en dessous de laquelle tu veux insérer la nouvelle ligne.

Si tu ne sélectionnes pas de ligne mais juste une cellule, la fonction "accueil / insérer" est effectivement grisée et donc non opérationnelle.

Cordialement

Philippe

[retraite83]

Cela ne change rien,

le pb vient du fait que la case "insérer des lignes" que j'ai cochée dans la protection de la feuille se trouve décochée quand j'ouvre à nouveau le classeur

[Menhir]

le pb vient du fait que la case "insérer des lignes" que j'ai cochée dans la protection de la feuille se trouve décochée quand j'ouvre à nouveau le classeur

Deux questions :
1 - Comment sais-tu qu'elle est décochée ? A ma connaissance, il n'est pas possible d'accéder à ces options sans ôter la protection.
2 - Sous quel format enregistres-tu ton fichier ?

[retraite83]

BONJOUR

1)effectivement je vois que la case est décochée quand je retire la protection de la feuille, cependant les autres classeurs protégés de la même façon ont toujours cette case cochée quand je déprotège aussi la feuille correspondante, j'en conclu que la case a bien été décochée d'une manière ou d'une autre

2) mon classeur est un classeur xlsm

[retraite83]

Bonjour,

en fouillant un peu partout, je crois avoir une explication sans certitude mais plausible

Il se trouve qu'à l'Open de ce classeur dans ThisWorkbook, je déprotège et reprotège le classeur pour un besoin particulier, il est donc probable qu'à la reprotection l'attribut "insérer les lignes" et "supprimer les lignes" ne soient pas reconduit

Il doit bien y avoir un paramètre pour les reconduire lors de la reprotection en VBA, je cherche mais pour l'instant je ne trouve pas...

[retraite83]

Bonjour,

En retirant le code de mon ThisWorkbook, le problème disparaît, donc c'est bien la déprotection et reprotection par VBA qui fait que les paramètres sont perdus.

J'ai cherché un peu partout et j'ai trouvé peut-être une façon de faire

Voilà le bout de code que j'essaye de faire marcher :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim PWD As String
Dim ReProtect
 
 PWD = "mot de passe"
 
    ActiveSheet.Unprotect PWD
    ReProtect = True
 
    With ActiveSheet
        .ListRows.Add AlwaysInsert:=True
        .Protect PWD
    End With

Je n'arrive pas à aller plus loin (erreur 438 sur la ligne .ListRows)

Est-ce une bonne piste ?

merci

[78chris]

Bonjour

Regarde l'aide en ligne sur Protect : tu y retrouves tous les paramètres de la protection. A à toi de préciser les paramètres qui te conviennent car pas défaut la protection est totale.

[retraite83]

Yes ! Thank you

encore un pan de VBA que je découvre, merci, c'est parfait

Code :

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

1
2
3
4
 
Dim AllowInsertingRows As Variant
Dim AllowDeletingRows As Variant
ActiveSheet.Protect Password:="mot de passe", AllowInsertingRows:=True, AllowDeletingRows:=True