Bonjour,
Je sais ça fait bizarre, je pense que cela vient de ce que je fais.
Bon mon besoin est simple, protéger une partie d'une feuille et autoriser la saisie de données sans changement de format et en autorisant l'insertion de lignes et pas de colonne.
Jusque là rien de plus simple, mais en faisant comme cela, ça ne marche pas, je ne peux pas insérer de ligne.
Je précise que j'ai des lignes protégées et d'autres non (les titres le sont pas le reste) et jusqu'à la ligne 80, après c'est protégé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub Protège() For Each Sht In Worksheets Sht.Select If Sht.Name <> "Listes" Then ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingRows:=True, AllowInsertingRows:=True, UserInterfaceOnly:=True, _ AllowInsertingHyperlinks:=True, AllowDeletingRows:=True, AllowSorting:= _ True, AllowFiltering:=True ActiveSheet.EnableSelection = xlUnlockedCells End If Next End Sub
Merci de votre aide
Ajout:
Je viens de tester en mettanten commentaire. Là je peux insérer une ligne sauf que je peux aussi sélectionner les titres, ce que j'aurais voulu éviter
Code : Sélectionner tout - Visualiser dans une fenêtre à part ActiveSheet.EnableSelection = xlUnlockedCells
Partager