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
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" <yan@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
6F628BBF-D566-433B-ADA2-8F0695FDEE5F@microsoft.com...
Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
coté de celle de "dessin"
Merci d'avance
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
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
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" <yan@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
6F628BBF-D566-433B-ADA2-8F0695FDEE5F@microsoft.com...
Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
coté de celle de "dessin"
Merci d'avance
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
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
>
>
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" <yan@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
53481299-6832-40A7-AD94-DE07D32DE95E@microsoft.com...
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" <yan@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
> 6F628BBF-D566-433B-ADA2-8F0695FDEE5F@microsoft.com...
> Comment faire pour bloquer la barre d'outil Office Live en bas de feuille, à
> coté de celle de "dessin"
> Merci d'avance
>
>
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
>
>