Discussion :

[dariyoosh]

Bonjour à tous,


J'ai une question concernant la protection des lignes dans les feuilles Excel. J'ai un fichier Excel. Je veux ajouter une procédure qui est exécutée au moment de l'ouverture du classeur et qui empêche la suppression de la première ligne de chaque feuille. Pour les autres lignes il n'y a aucune contrainte.

Quelqu'un peut me donner une idée?

Rappel: J'utilise Microsoft Excel 2002




Merci d'avance,

Cordialement,
Dariyoosh

[zyhack]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Open()
Dim wsh As Worksheet
 
For Each wsh In Worksheets
  'il faut enlever la protection si elle est présente
  wsh.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
  'dévérouille toutes les cellules sauf la ligne 1
  wsh.Rows("2:" & Rows.Count).Cells.Locked = False
  'protège la feuille
  wsh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
 
End Sub

[mercatog]

Une variante qui permet d'éviter tout changement concernant la première ligne (copie, suppression, insertion de la ligne entière)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Columns.Count = Columns.Count And Target.Row = 1 Then
   Application.EnableEvents = False
   Application.Undo
   Application.EnableEvents = True
End If
End Sub

[dariyoosh]

Bonjour zyhack,


Merci beaucoup pour cette belle solution qui a résolu le problème.


Cordialement,
Dariyoosh:
ccool:


Bonjour mercatog,


Merci beaucoup pour l'aide.


Cordialement,
Dariyoosh