OVH Cloud OVH Cloud

Barres d'outils disparue.

3 réponses
Avatar
JMV
Bonsoir,

Lorsque je lance Excel, toutes les barres d'outils ont disparues.
Pour rétablir l'environnement d'origine, j'utilise habituellement une macro
qui réactive toutes les barres d'outils.

Or, pour une raison inconnue, Excel me signale lors du lancement de la macro
qu'il ne peut l'exécuter car le niveau de sécurité est trop élevé.
Or, pour changer le niveau de sécurité, il me faut passer par le menu
classique Outils ==> Macro ==> Sécurité.

Donc, comment faire ? Je dois avouer que hormis une réinstallation d'Excel
je ne vois plus trop !

Merci d'avance en tout cas.

Jean-Marc

3 réponses

Avatar
Alain CROS
Bonjour.

Coller ce code dans le bloc-notes puis enregister sous RestaurXL.vbs.
Lancer RestaurXL.vbs

With CreateObject("Excel.Application")
.Workbooks.Add
.Commandbars(1).Enabled = True
.Visible = True
End With

Alain CROS

"JMV" a écrit dans le message de news: #
Bonsoir,

Lorsque je lance Excel, toutes les barres d'outils ont disparues.
Pour rétablir l'environnement d'origine, j'utilise habituellement une macro
qui réactive toutes les barres d'outils.

Or, pour une raison inconnue, Excel me signale lors du lancement de la macro
qu'il ne peut l'exécuter car le niveau de sécurité est trop élevé.
Or, pour changer le niveau de sécurité, il me faut passer par le menu
classique Outils ==> Macro ==> Sécurité.

Donc, comment faire ? Je dois avouer que hormis une réinstallation d'Excel
je ne vois plus trop !

Merci d'avance en tout cas.

Jean-Marc









Avatar
anomymousA
bonjour,

sous toutes réserves , si ton controle Macros est actif même si la barre
n'est pas visible, les instructions suivantes pour te permettre de revenir à
un niveau de sécurité bas.

On Error Resume Next
With Application
.SendKeys ("{TAB}+%b+{TAB}+{ENTER}")
.CommandBars.FindControl(ID:627).Execute
End With
On Error GoTo 0

A+


Bonsoir,

Lorsque je lance Excel, toutes les barres d'outils ont disparues.
Pour rétablir l'environnement d'origine, j'utilise habituellement une macro
qui réactive toutes les barres d'outils.

Or, pour une raison inconnue, Excel me signale lors du lancement de la macro
qu'il ne peut l'exécuter car le niveau de sécurité est trop élevé.
Or, pour changer le niveau de sécurité, il me faut passer par le menu
classique Outils ==> Macro ==> Sécurité.

Donc, comment faire ? Je dois avouer que hormis une réinstallation d'Excel
je ne vois plus trop !

Merci d'avance en tout cas.

Jean-Marc










Avatar
JMV
Et ca marche !!!
Je conserve précieusement !

Merci beaucoup.

Jean-Marc


"Alain CROS" a écrit dans le message de
news:
Bonjour.

Coller ce code dans le bloc-notes puis enregister sous RestaurXL.vbs.
Lancer RestaurXL.vbs

With CreateObject("Excel.Application")
.Workbooks.Add
.Commandbars(1).Enabled = True
.Visible = True
End With

Alain CROS

"JMV" a écrit dans le message de news:
#

Bonsoir,

Lorsque je lance Excel, toutes les barres d'outils ont disparues.
Pour rétablir l'environnement d'origine, j'utilise habituellement une
macro


qui réactive toutes les barres d'outils.

Or, pour une raison inconnue, Excel me signale lors du lancement de la
macro


qu'il ne peut l'exécuter car le niveau de sécurité est trop élevé.
Or, pour changer le niveau de sécurité, il me faut passer par le menu
classique Outils ==> Macro ==> Sécurité.

Donc, comment faire ? Je dois avouer que hormis une réinstallation
d'Excel


je ne vois plus trop !

Merci d'avance en tout cas.

Jean-Marc