bloquer zoom onglet

Version imprimable

29/04/2019, 10h27
rossemma

bloquer zoom onglet

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
29/04/2019, 10h56
unparia

Bonjour Rosemma

Citation:

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 ?;)
29/04/2019, 10h58
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

g un peu bidouillé ce code
Code:

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).

bonjour

Code:

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

29/04/2019, 13h08
unparia

Rappel (pour mémoire) :

Citation:

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.

re
OK on revois la copie
quand on est dans un sheets concerné je masque la statusbar ;)pour masquer la commande de zoom
a moins que l'on puisque masquer ou griser que celle ci

' dans le Workbook_SheetActivate(module thisworkbook)
Code:

1 2 3 Private Sub Workbook_SheetActivate(ByVal Sh As Object) zooming End Sub
'dans module standard
Code:

1 2 3 4 5 6 7 8 9 10 Sub zooming() ' les nom des sheets : IMPORTANT!!TOUJOURS COMMENCER ET TERMINER PAR UNE VIRGULE !!!!!!! t = ",toto,titi,riri,fifi,truc,bidule," If t Like "*," & ActiveSheet.Name & ",*" Then ActiveWindow.Zoom = 80 Application.DisplayStatusBar = False Else Application.DisplayStatusBar = True End If End Sub
reste a empêcher la modif par vba bien sur !!!!
mais de toute facon on pourra jamais empêcher complètement les petits malins a défaire cela

29/04/2019, 14h22
rossemma

super
merci pour ton aide patrick

tu utilises les noms présents sur les onglets mais je voudrais les noms repris dans le code vba
le nom présent dans le champ (name) des propriétés
29/04/2019, 14h24
patricktoulon

re

re

Code:

If t Like "*," & ActiveSheet.CodeName & ",*" Then
29/04/2019, 14h26
rossemma

sorry patrick j'avais pris ton premier exemple de 12h45

grand merci
29/04/2019, 14h31
patricktoulon

re

rectification
c'est bien ".name" pour ce qui est entre les parenthèses et non ".codename"
bref tu ce qu'il te faut ;)
29/04/2019, 15h51
unparia

A patricktoulon

Et le ruban, par ailleurs (encore un autre aspect) ?

Mais même sans cet aspect :
Je te laisse réfléchir et exposer toi-même à rossemma les raisons majeures de ne surtout pas mettre en oeuvre une telle méthode
29/04/2019, 16h20
patricktoulon

re

re
oui tout a fait unparia le ruban onglet "affichage" des controls a inhiber et plein d'autre chose encore (sans parler de la remise en place a la fermeture du fichier)
et une surveillance avec app.ontime serait de la lourdeur ajouté dans sa gestion
bref
29/04/2019, 17h13
unparia

Citation:

(sans parler de la remise en place a la fermeture du fichier)

Et d'un disjoncteur qui a sauté alors que l'on était sur une des feuilles concernées
Et d'un utilisateur qui, alors que sur cette feuille, est parti au restaurant du coin et qu'un autre utilisateur était, lui, sur un classeur nécessitant cette barre de statut ...
Ou encore qu'alors que l'utilisateur A est, su fait de cette procédure, sans barre d'état, ne voilà-t-il pas qu'un utilisateur B lui "rende la main" sans même le savoir en lançant à son tour, lui, un classeur comportant une instruction inverse !....
Et ...
Et ...
etc, etc ...;)
Ce n'est pas sérieux.