Insertion/Suppression de ligne dans Feuille Protégée en macro
stage40
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12713 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12713 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Insertion/Suppression de ligne dans Feuille Protégée en macro
- Partage de photos en ligne - Guide
- Forcer suppression fichier - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formulaire en ligne de meta - Guide
- Mètre en ligne - Guide
2 réponses
Bonjour,
Au passage, dans vos 2 procédures remplacer le "Protect Password..... " par "UnProtect Password... " .
Au passage, dans vos 2 procédures remplacer le "Protect Password..... " par "UnProtect Password... " .
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
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
Merci pour votre réponse.
Je ne comprend pas, dois-je écrire ces deux codes et supprimer celui que j'ai indiqué?
Quel code dois-je écrire exactement pour avoir les fonctions suivantes:
- Toutes les feuilles protégées
- Possibilité de grouper et dissocier les lignes
- Possibilité de supprimer et insérer des lignes
- Possibilité d'utiliser le filtre
- Pouvoir sélectionner les cellules modifiables et verrouillées
Merci
Je ne comprend pas, dois-je écrire ces deux codes et supprimer celui que j'ai indiqué?
Quel code dois-je écrire exactement pour avoir les fonctions suivantes:
- Toutes les feuilles protégées
- Possibilité de grouper et dissocier les lignes
- Possibilité de supprimer et insérer des lignes
- Possibilité d'utiliser le filtre
- Pouvoir sélectionner les cellules modifiables et verrouillées
Merci
