Discussion :

[rossemma]

Bonjour,
Je voudrais imposer un zoom à l'ouverture du dossier pour certains onglets.
En fait j'avais en tête de créer une sub dans un module avec une sorte de Array pour définir les codes.name des onglets concernés.
et bloquer le zoom pour ceux-ci.

mais je me pose une question, si le classeur est protégé et les onglets également, est ce que cela fonctionnera?

merci pour votre aide

[unparia]

Bonjour Rosemma

mais je me pose une question, si le classeur est protégé et les onglets également, est ce que cela fonctionnera?

Tu ne crois pas qu'essayer cette démarche te permettrait de connaître la réponse à cette question ?

[rossemma]

Je suis d'accord avec toi
Mais je me pose cette question pour ne pas faire perdre du temps aux personnes du forum et pour ne pas inutilement me creuser la tête

[rossemma]

g un peu bidouillé ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Sub zoom()
 
'Dim Ws As Worksheet
 
'For Each Ws In ThisWorkbook.Worksheets(Array("Feuil1", "Feuil2", "Feuil3"))
 
'    Ws.Activate
'    ActiveWindow.zoom = 80
 
'Next Ws
 
'End Sub

mais je souhaite remplacer Feuil1,... par les code.name car les personnes ont la possibilité de modifier les noms des onglets (plus besoin de protection de classeur comme demandé précédemment).

[patricktoulon]

bonjour

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
' a appeler dans le workbook_open
Sub test()
'*****************FACULTATIF**************************
    Application.ScreenUpdating = False
    Set Sh = ActiveSheet
    '*************************************************
    With Sheets(Array("toto", "titi"))
        .Select
        ActiveWindow.Zoom = 120
    End With
    '*****************FACULTATIF**********************
    Sh.Activate
    Application.ScreenUpdating = True
    '*************************************************
End Sub

[unparia]

Rappel (pour mémoire) :

et bloquer le zoom pour ceux-ci.

A part de le "remettre" systématiquement, soit de manière répétitive (avec OnTime) soit lors d'un évènement (selection_change, par exemple), je ne vois personnellement pas de solution; l'évènement Zoom_change n'existe pas et aucune protection (que ce soit du classeur ou d'une feuille ou les deux) n'empêcherait l'utilisateur de choisir et appliquer le zoom qu'il souhaite.