Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel bloquer barre outil a endroit defini

bloquer barre outil a endroit defini

4 réponses
Avatar
yan
Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
coté de celle de "dessin"
Merci d'avance
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Bonjour Yan,

Tu peux faire ceci en vba.
Tu ouvres la fenêtre de l'éditeur de code, Alt + F11
Tu ajoutes un module standard (menu insertion)
et tu copier la macro suivante... et l'exécute.

Tes 2 barres du bas seront toujours visibles et impossible
de modifier leur position... sans vba.

'----------------------------------
Sub test()
With Application.CommandBars("Drawing")
.Enabled = True
.Visible = True
.Position = msoBarBottom
End With

With Application.CommandBars("Microsoft Office Live Add-in")
.Enabled = True
.Visible = True
.Position = msoBarBottom
.RowIndex = Application.CommandBars("Drawing").RowIndex
.Left = Application.CommandBars("Drawing").Width
.Protection = msoBarNoChangeDock + msoBarNoChangeVisible
End With
Application.CommandBars("Drawing").Protection = _
msoBarNoChangeDock + msoBarNoChangeVisible
End Sub




"yan" a écrit dans le message de groupe de discussion :

Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
coté de celle de "dessin"
Merci d'avance
Avatar
yan
Bonsoir "MichDenis",

Je ne suis qu'un utilisateur lamda.
J'utilise WINDOWS XP et OFFICE 2003 Pofessional.
j'ai effectivement suivi tes indications et créé une "macro" qui s'exécute
sans problème et que j'ai saauvegadé dans le classeur "perso".
Cependant, j'aurais souhaité qu'elle s'exécute automatiquement à l'ouverture
d'excel.
As-tu une suggestion

Merci d'avance

"MichDenis" a écrit :

Bonjour Yan,

Tu peux faire ceci en vba.
Tu ouvres la fenêtre de l'éditeur de code, Alt + F11
Tu ajoutes un module standard (menu insertion)
et tu copier la macro suivante... et l'exécute.

Tes 2 barres du bas seront toujours visibles et impossible
de modifier leur position... sans vba.

'----------------------------------
Sub test()
With Application.CommandBars("Drawing")
.Enabled = True
.Visible = True
.Position = msoBarBottom
End With

With Application.CommandBars("Microsoft Office Live Add-in")
.Enabled = True
.Visible = True
.Position = msoBarBottom
.RowIndex = Application.CommandBars("Drawing").RowIndex
.Left = Application.CommandBars("Drawing").Width
.Protection = msoBarNoChangeDock + msoBarNoChangeVisible
End With
Application.CommandBars("Drawing").Protection = _
msoBarNoChangeDock + msoBarNoChangeVisible
End Sub




"yan" a écrit dans le message de groupe de discussion :

Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
coté de celle de "dessin"
Merci d'avance




Avatar
MichDenis
Dans le module appelé ThisWorkbook de ton classeur :
tu copies ce qui suit :

Private Sub Workbook_Open()

With Application.CommandBars("Drawing")
.Protection = msoBarNoProtection
.Enabled = True
.Visible = True
.Position = msoBarBottom
End With

With Application.CommandBars("Microsoft Office Live Add-in")
.Protection = msoBarNoProtection
.Enabled = True
.Visible = True
.Position = msoBarBottom
.RowIndex = Application.CommandBars("Drawing").RowIndex
.Left = Application.CommandBars("Drawing").Width
.Protection = msoBarNoChangeDock + msoBarNoChangeVisible
End With
Application.CommandBars("Drawing").Protection = _
msoBarNoChangeDock + msoBarNoChangeVisible
End Sub

N.B- Tu pourrais mettre cette procédure dans le ThisWorkbook
de ton classeur de macro personnelle. Dès l'ouverture d'excel
les barres sont placées et demeurent en place peu importe le
classeur qui est ouvert !

Tu fais comme tu veux...





"yan" a écrit dans le message de groupe de discussion :

Bonsoir "MichDenis",

Je ne suis qu'un utilisateur lamda.
J'utilise WINDOWS XP et OFFICE 2003 Pofessional.
j'ai effectivement suivi tes indications et créé une "macro" qui s'exécute
sans problème et que j'ai saauvegadé dans le classeur "perso".
Cependant, j'aurais souhaité qu'elle s'exécute automatiquement à l'ouverture
d'excel.
As-tu une suggestion

Merci d'avance

"MichDenis" a écrit :

Bonjour Yan,

Tu peux faire ceci en vba.
Tu ouvres la fenêtre de l'éditeur de code, Alt + F11
Tu ajoutes un module standard (menu insertion)
et tu copier la macro suivante... et l'exécute.

Tes 2 barres du bas seront toujours visibles et impossible
de modifier leur position... sans vba.

'----------------------------------
Sub test()
With Application.CommandBars("Drawing")
.Enabled = True
.Visible = True
.Position = msoBarBottom
End With

With Application.CommandBars("Microsoft Office Live Add-in")
.Enabled = True
.Visible = True
.Position = msoBarBottom
.RowIndex = Application.CommandBars("Drawing").RowIndex
.Left = Application.CommandBars("Drawing").Width
.Protection = msoBarNoChangeDock + msoBarNoChangeVisible
End With
Application.CommandBars("Drawing").Protection = _
msoBarNoChangeDock + msoBarNoChangeVisible
End Sub




"yan" a écrit dans le message de groupe de discussion :

Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
coté de celle de "dessin"
Merci d'avance




Avatar
yan
"MichDenis" bonjour,

Un grand merci ; cela fonctionne super.



"MichDenis" a écrit :

Dans le module appelé ThisWorkbook de ton classeur :
tu copies ce qui suit :

Private Sub Workbook_Open()

With Application.CommandBars("Drawing")
.Protection = msoBarNoProtection
.Enabled = True
.Visible = True
.Position = msoBarBottom
End With

With Application.CommandBars("Microsoft Office Live Add-in")
.Protection = msoBarNoProtection
.Enabled = True
.Visible = True
.Position = msoBarBottom
.RowIndex = Application.CommandBars("Drawing").RowIndex
.Left = Application.CommandBars("Drawing").Width
.Protection = msoBarNoChangeDock + msoBarNoChangeVisible
End With
Application.CommandBars("Drawing").Protection = _
msoBarNoChangeDock + msoBarNoChangeVisible
End Sub

N.B- Tu pourrais mettre cette procédure dans le ThisWorkbook
de ton classeur de macro personnelle. Dès l'ouverture d'excel
les barres sont placées et demeurent en place peu importe le
classeur qui est ouvert !

Tu fais comme tu veux...





"yan" a écrit dans le message de groupe de discussion :

Bonsoir "MichDenis",

Je ne suis qu'un utilisateur lamda.
J'utilise WINDOWS XP et OFFICE 2003 Pofessional.
j'ai effectivement suivi tes indications et créé une "macro" qui s'exécute
sans problème et que j'ai saauvegadé dans le classeur "perso".
Cependant, j'aurais souhaité qu'elle s'exécute automatiquement à l'ouverture
d'excel.
As-tu une suggestion

Merci d'avance

"MichDenis" a écrit :

> Bonjour Yan,
>
> Tu peux faire ceci en vba.
> Tu ouvres la fenêtre de l'éditeur de code, Alt + F11
> Tu ajoutes un module standard (menu insertion)
> et tu copier la macro suivante... et l'exécute.
>
> Tes 2 barres du bas seront toujours visibles et impossible
> de modifier leur position... sans vba.
>
> '----------------------------------
> Sub test()
> With Application.CommandBars("Drawing")
> .Enabled = True
> .Visible = True
> .Position = msoBarBottom
> End With
>
> With Application.CommandBars("Microsoft Office Live Add-in")
> .Enabled = True
> .Visible = True
> .Position = msoBarBottom
> .RowIndex = Application.CommandBars("Drawing").RowIndex
> .Left = Application.CommandBars("Drawing").Width
> .Protection = msoBarNoChangeDock + msoBarNoChangeVisible
> End With
> Application.CommandBars("Drawing").Protection = _
> msoBarNoChangeDock + msoBarNoChangeVisible
> End Sub
>
>
>
>
> "yan" a écrit dans le message de groupe de discussion :
>
> Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
> coté de celle de "dessin"
> Merci d'avance
>
>