Insertion/Suppression de ligne dans Feuille Protégée en macro

Question

Bonjour,

J'ai protégé plusieurs feuille d'un fichier Excel grâce au code ci dessous qui me permet également d'utiliser le filtre et de grouper et dissocier mes lignes. J'aimerais aussi autoriser la suppression et l'insertion de lignes dans ces feuilles bloquées. 

Le code est le suivant:
Private Sub Workbook_Open()
Dim Feuille
For Each Feuille In ActiveWorkbook.Sheets
With Feuille
.EnableOutlining = True
.EnableAutoFilter = True
.Protect Password:="stage40", userInterfaceOnly:=True
End With
Next Feuille
End Sub

J'ai aussi essayé: 
Private Sub Workbook_Open()
Dim Feuille
For Each Feuille In ActiveWorkbook.Sheets
With Feuille
.EnableOutlining = True
.EnableAutoFilter = True
DrawingObjects = True
Contents = True
Scenarios = True
AllowSorting = True
AllowDeletingRows = True
.Protect Password:="stage40", userInterfaceOnly:=True
End With
Next Feuille
End Sub

Ce que j'ai ajouté ne change rien lorsque je ferme et ré-ouvre le fichier, les feuilles sont toujours verrouillées de la même manière.

Merci d'avance pour votre aide

foo · Answer

Bonjour

Voila deux macro une qui protege et l'autre qui deprotege toutes les Feuilles

Sub Protect()
   For Each Feuil In Worksheets
         Feuil.Protect "stage40"
   Next
End Sub

Sub UnProtect()
   For Each Feuil In Worksheets
         Feuil.UnProtect "stage40"
   Next
End Sub

A+

Maurice

Le Pingou · Answer

Bonjour,
Au passage, dans vos 2 procédures remplacer le "Protect Password..... " par "UnProtect Password... " .

Insertion/Suppression de ligne dans Feuille Protégée en macro

2 réponses

Newsletters