Classeur protégè à l'ouverture avec VBA et insertion ligne

  • Initiateur de la discussion Initiateur de la discussion bast76
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bast76

XLDnaute Nouveau
Bonjour à tous,
Petit souci excel pour les connaisseurs !!
je protège les feuilles de mon classeur via l'événement :"Workbook_Open()" dans VBA --> Thisworkbook afin d'avoir accès au plan et filtre de chaque feuilles et afin que le classeur se protège dés l'ouverture: (de cette façon (bench sur le net))

Private Sub Workbook_Open()
With Worksheets("2")

.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="bastien", UserInterfaceOnly:=True

End With etc .... End Sub

Le problème c'est que je souhaite qu'un utilisateur langda puisse insérer des lignes dans mes tableaux, au niveau des lignes non protéger .
Je sais le faire via l'outil protection etc... mais celui-ci ne me laisse pas accéder au plan (Associer/dissocier).
Ainsi j'aimerais intégrer aux formules présentes dans VBA --> Thisworkbook, une instruction laissant la possibilités d'insertion de ligne pour chaqu'unes des feuilles ( aux endroits (lignes)non protégés des tableaux ).

Merci d'avance. (Mot de passe classeur : "bastien")

Cordialement
 
Re : Classeur protégè à l'ouverture avec VBA et insertion ligne

bonjour Bastien,

pour pouvoir insérer des lignes, modifies ton code comme suit :

Code:
Private Sub Workbook_Open()
With Worksheets("2")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="bastien", UserInterfaceOnly:=True, _
    AllowInsertingRows:=True
End With
End Sub

bon après midi
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour