Code VBA pour autoriser insertion de ligne

Bonjour à tous...

J'ai un code me vérouillant tous les onglets dès le démarrage :

Ce code me permet d'autoriser les filtres, les plans...

Je souhaiterais également autoriser les insertions de ligne et la modification des formats de cellule, mais je n'y arrive pas.

Deuxieme requête, je souhaiterais qu'un onglet appeler "ESSAI" ne soit pas verrouiller. Je suis passé par le code "For each feuille3 car mon fichier possède 17 onglet !

Please Help!

Code initial inscrit dans thisworkbook :

Private Sub Workbook_Open()

Dim Feuille

For Each Feuille In ActiveWorkbook.Sheets

With Feuille

.EnableAutoFilter = True

.EnableOutlining = True

.Protect Contents:=True, Password:="CIFONS01", UserInterfaceOnly:=True

End With

Next Feuille

Merci d'avance

Bonsoir à tous,

Bonsoir Neodule,

Voici le code qui devrait répondre à ton besoin :

Private Sub Workbook_Open()
Dim Feuille
For Each Feuille In ActiveWorkbook.Sheets
  With Feuille
    If Feuille.Name <> "ESSAI" Then
      .EnableAutoFilter = True
      .EnableOutlining = True
      .Protect Contents:=True, Password:="CIFONS01", UserInterfaceOnly:=True, _
      AllowFormattingCells:=True, AllowInsertingRows:=True
    End If
  End With
Next Feuille
End Sub

Tu peux avoir davantage de précisions sur les paramètres de protection en sélectionnant le mot Protect dans ton code, en cliquant sur F1 puis sur Méthode Protect telle qu'elle s'applique à l'objet Worksheet.

Cordialement.

TOP!!!

Merci de la rapidité de réponse...

Connais tu églament le code pour autoriser la suppression de ligne?

Merci encore

RE :

Pour effacer des lignes :

AllowDeletingRows:=True

à ajouter à la suite.

Cordialement.

Bonsoir le fil

Neodule, tu seras bien aimable de changer le titre de ton premier post et de le mettre en miniscule si possible

Merci

Merci beaucoup!

Désole pour les majuscules