bloquer barre outil a endroit defini

Le
yan
Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
coté de celle de "dessin"
Merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19722981
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"
Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
coté de celle de "dessin"
Merci d'avance
yan
Le #19724011
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"
Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
coté de celle de "dessin"
Merci d'avance




MichDenis
Le #19724351
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"
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"
Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
coté de celle de "dessin"
Merci d'avance




yan
Le #19726701
"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"
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" >
> Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
> coté de celle de "dessin"
> Merci d'avance
>
>



Publicité
Poster une réponse
Anonyme