Discussion :

[rossemma]

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

[anasecu]

Bonjour,

Cela bloque parce que tu veux modifier le classeur qui est protégé.

Si tu veux tout de même le faire, il faut déprotéger en début et re-protéger en fin

Si ton souci était sur les feuilles tu aurais pu mettre ta protection en vba avec Protect UserInterFaceOnly:=True
mais cela ne fonctionne pas pour la protection du classeur.