Bonjour,
j'ai ce genre de code dans chaque feuille.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub worksheet_activate()
 
Application.Goto reference:=Range("L2"), scroll:=True 'ouverture sur cellule
 
Application.ScreenUpdating = False
 
With Me
'    .Name = "DEPENSES-KOSTEN_121199-122148"
'    .Tab.Color = RGB(245, 196, 126)
    .Columns("a:xfd").Hidden = False
    .Columns("b:f").Hidden = True
    .Columns("g").ColumnWidth = 5.15
    .Columns("h:y").ColumnWidth = 13.15
    .Columns("z").ColumnWidth = 12
End With
 
Application.ScreenUpdating = True
 
End S
La ligne 9 bloque à l'ouverture du classeur excel et/ou à l'activation de la feuille lorsque je protège le classeur par le menu révision / protection du classeur.

Comment faire ?

Merci