Discussion :

[ancel17]

Bonjour,

Est-il possible d'empêcher l'affichage dans la barre des taches d'un classeur ouvert ?

Merci de vos contributions !

[Commodore]

Code :

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

1
2
3
4
5
6
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
Workbooks.Open filename:="LARGE.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar

=> ça vient de la touche F1 de VBA excel :p

[ancel17]

Merci, et désolé pour le dérangement !

[ancel17]

Bon, je reviens à la charge !

voici le code que j'utilise et qui manifestement ne fonctionne pas !

Code :

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

1
2
3
Private Sub Workbook_Activate()
Application.DisplayStatusBar = False
End Sub

Quelqu'un a-t-il une solution ?

[Commodore]

chez moi ça fonctionne parfaitement...

<edit> OOPS!! j'avais mal lu... j'ai confondu barre d'état et barre des taches... honte sur moi... non pour la barre des taches je n'ai pas la solution</edit>

[ancel17]

Il me semblait aussi que c'était différent, mais je ne voulais pas mettre en doute tes compétences...

[ouskel'n'or]

Place ton code "ailleurs"

Code :

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

1
2
3
Private Sub Workbook_Open()
Application.DisplayStatusBar = False
End Sub

Testé et utilisé

[ancel17]

J'avais déjà testé, et ça ne fonctionnait pas...

Mais ce code fonctionne certainement pour la barre d'état, mon problème se situe plutot au niveau barre des tâches...

[Commodore]

faut-il juste avoir un classeur ouvert (sans pour autant qu'il soit visible à l'écran) ou faut-il qu'il soit visible à l'écran sans l'être dans la barre des taches ?

[ancel17]

visible à l'écran mais pas dans la barre des tâches.

en fait, j'ai plusieurs classeurs "thèmes" avec chacun un lien hypertexte vers le classeur "sommaire" en question.
le but est de forcer les utilisateurs à utiliser le lien hypertexte pour revenir au classeur "sommaire"

[Commodore]

peut etre peux-tu contourner le probleme:

dans l'evenement Workbook_Activate() de ThisWorkbook des classeurs dont tu veux interdire l'accès tu peux coder avec un SendKeys("touche Windows+M") puis Workbooks(mon_fichier_a_garder_a_lecran).activate

Cela aura pour effet de reduire toutes les fenetres puis de reactiver la fenetre que tu souhaites garder en vue.

Seul hic: je ne me rappelle pas le code de la touche windows :s

Peut etre meme qu'avec un Application.screenupdating=false au début
et application.screenupdating=true a la fin tu ne verras rien de ce qui se passe...

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Activate()
    Application.ScreenUpdating = False
    SendKeys("<touchewindows>+M") 'mettre le bon String en parametre
    Workbooks("mon_classeur_a_garder_en_vue.xls").Activate
    Application.ScreenUpdating = True
End Sub

/!\ non testé, pure intuition

[ilcocodrillo]

C'est de cette barre là dont tu parles ?

Code :

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

    Application.ShowStartupDialog = False

[ancel17]

ce que je souhaite faire si c possible, c'est cacher la fenêtre excel correspondant au classeur sommaire

actuellement lorsque le classeur sommaire est ouvert, j'ai une fenêtre excel dans la barre des taches.
j'aimerais ne plus avoir cette fenetre excel dans la barre des taches

pour qu'on soit tous d'accord, la barre des taches est la barre situé en bas de l'écran, sur laquelle on retrouve toutes les applications ouvertes. on y trouve également le menu démarrer et l'heure.

[ouskel'n'or]

Code :

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

Workbooks("Sommaire").visible = false

ne convient pas ?

[Invité]

Bonjour Ancel17,

Je crois qu'il faut distinguer les différentes possibilités :

- modification dans la Base de Registre : mais dans ce cas vous ne devriez plus avoir aucune application s'affichant dans la Barre de tâches.

- sur Excel : Outils puis Options puis onglet Affichage et décocher "Fenêtre dans la barre de tâches". Si vous ouvrez plusieurs fichiers dans la même session d'Excel, vous n'aurez qu'une seule icône dans la Barre de Tâches.
Mais par contre il restera toujours la possibilité d'activer l'un ou l'autre fichier à travers le menu Fenêtre dans la barre de menus (qu'il faudrait donc cacher, ce qui est facilement faisable).

Amicalement.

[ancel17]

ça me donne une erreur :

propriété ou méthode non géré par cet objet

si je reformule ma demande ainsi :

est-il possible d'empêcher l'accès à un fichier depuis la barre des tâches ?

[ancel17]

jacques jean,

ta deuxième solution (sur excel) est intéressante.

Mais par contre il restera toujours la possibilité d'activer l'un ou l'autre fichier à travers le menu Fenêtre dans la barre de menus (qu'il faudrait donc cacher, ce qui est facilement faisable).

peux-tu m'indiquer la marche à suivre ?

[Invité]

Bonjour Ancel17,

Vous pouvez dans un module créer une procédure :

Code :

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

1
2
3
4
5
Sub Auto_Open()
 
Application.CommandBars("Worksheet Menu Bar").Controls(9).Visible = False
 
End sub

Evidemment si vous avez déjà cette procédure il suffit d'y ajouter la ligne de code.

Vous pouvez aussi insérer cette ligne dans une procédure qui démarre le traitement.

En fin de traitement vous ajoutez également cette ligne :

Code :

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

Application.CommandBars("Worksheet Menu Bar").Controls(9).Visible = True

Amicalement.

[ancel17]

Merci jacques-jean !

ça fonctionne. J'ai juste remplacé

Code :

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

sub auto_open() par private workbook_open