[vba] Affichage dans la barre des taches

Bonjour,

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

Merci de vos contributions !

Code:

---

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

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

Bon, je reviens à la charge !

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

Code:

---

1 2 3

Private Sub Workbook_Activate() Application.DisplayStatusBar = False End Sub

---

Quelqu'un a-t-il une solution ?

chez moi ça fonctionne parfaitement...

<edit> OOPS!! :aie: :oops: :aie: 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>

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

Place ton code "ailleurs" ;)

Code:

---

1 2 3

Private Sub Workbook_Open() Application.DisplayStatusBar = False End Sub

---

Testé et utilisé

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

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 ?

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"

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:

---

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

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

Code:

---

Application.ShowStartupDialog = False

---

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.

Code:

---

Workbooks("Sommaire").visible = false

---

ne convient pas ?

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.

ça me donne une erreur :

Citation:

---

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

---

si je reformule ma demande ainsi :

Citation:

---

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

---

jacques jean,

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

Citation:

---

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 ?

Bonjour Ancel17,

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

Code:

---

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:

---

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

---

Amicalement.

Merci jacques-jean !

ça fonctionne. J'ai juste remplacé

Code:

---

sub auto_open() par private workbook_open

---