Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Menu disparu

Menu disparu

6 réponses
Avatar
Jean-Paul Brine
Bojour,

Je parviens pas à afficher le menu "Fichier Edition Affichage
......Message ?" situé en haut de la fenêtre Excel.
Sans doute une fausse manoeuvre?

Merci pour le tuyau.

JP
Signaler un problème avec ce contenu

6 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
isabelle
bonjour JP,

copie cette macro de Geedee dans un module standard et exucute la,

Sub Sesame()
Dim cmdB As CommandBar
I = 1
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
If I < 5 Then cmdB.Visible = True
I = I + 1
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With

For Each ws In ActiveWorkbook.Worksheets
ws.Visible = True
ws.Activate
ws.Cells.EntireColumn.Hidden = False
ws.Cells.EntireRow.Hidden = False
ws.[A1].Select
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayGridlines = True
.FreezePanes = False
End With
Next
ActiveWorkbook.Worksheets(1).Select
End Sub 'GeeDee

isabelle


Bojour,

Je parviens pas à afficher le menu "Fichier Edition Affichage
......Message ?" situé en haut de la fenêtre Excel.
Sans doute une fausse manoeuvre?

Merci pour le tuyau.

JP




Avatar
Jean-Paul Brine
Merveilleuse Isabelle, Merci. Cela a bien fonctionné mais, bien que je n'en
ai pas l'intention avant longtemps, je ne veux pas mourrir idiot et je
voudrais en connaître le pourquoi du comment. de ce problème.

JP


"isabelle" a écrit dans le message de news:
#
bonjour JP,

copie cette macro de Geedee dans un module standard et exucute la,

Sub Sesame()
Dim cmdB As CommandBar
I = 1
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
If I < 5 Then cmdB.Visible = True
I = I + 1
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With

For Each ws In ActiveWorkbook.Worksheets
ws.Visible = True
ws.Activate
ws.Cells.EntireColumn.Hidden = False
ws.Cells.EntireRow.Hidden = False
ws.[A1].Select
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayGridlines = True
.FreezePanes = False
End With
Next
ActiveWorkbook.Worksheets(1).Select
End Sub 'GeeDee

isabelle


Bojour,

Je parviens pas à afficher le menu "Fichier Edition Affichage
......Message ?" situé en haut de la fenêtre Excel.
Sans doute une fausse manoeuvre?

Merci pour le tuyau.

JP






Avatar
Ar
Clic droit sur une barre de bouton
Personnaliser...
Activer "Barre de menus"

Désactivée par une erreur de manip !

Ar

Merveilleuse Isabelle, Merci. Cela a bien fonctionné mais, bien que je n'en
ai pas l'intention avant longtemps, je ne veux pas mourrir idiot et je
voudrais en connaître le pourquoi du comment. de ce problème.

JP


"isabelle" a écrit dans le message de news:
#
bonjour JP,

copie cette macro de Geedee dans un module standard et exucute la,

Sub Sesame()
Dim cmdB As CommandBar
I = 1
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
If I < 5 Then cmdB.Visible = True
I = I + 1
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With

For Each ws In ActiveWorkbook.Worksheets
ws.Visible = True
ws.Activate
ws.Cells.EntireColumn.Hidden = False
ws.Cells.EntireRow.Hidden = False
ws.[A1].Select
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayGridlines = True
.FreezePanes = False
End With
Next
ActiveWorkbook.Worksheets(1).Select
End Sub 'GeeDee

isabelle


Bojour,

Je parviens pas à afficher le menu "Fichier Edition Affichage
......Message ?" situé en haut de la fenêtre Excel.
Sans doute une fausse manoeuvre?

Merci pour le tuyau.

JP










Avatar
isabelle
bonjour Jean Paul,

tu as peut être ouvert un classeur "exemple" contenant une macro Auto_Open qui masquait tout les menus,
mais qui ne contenait pas de macro Auto_Close replacant ces menus.
quoiqu'il en soit, garde bien la macro Sesame() dans le classeur Perso au cas ou...

isabelle


Merveilleuse Isabelle, Merci. Cela a bien fonctionné mais, bien que je n'en
ai pas l'intention avant longtemps, je ne veux pas mourrir idiot et je
voudrais en connaître le pourquoi du comment. de ce problème.

JP


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

bonjour JP,

copie cette macro de Geedee dans un module standard et exucute la,

Sub Sesame()
Dim cmdB As CommandBar
I = 1
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
If I < 5 Then cmdB.Visible = True
I = I + 1
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With

For Each ws In ActiveWorkbook.Worksheets
ws.Visible = True
ws.Activate
ws.Cells.EntireColumn.Hidden = False
ws.Cells.EntireRow.Hidden = False
ws.[A1].Select
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayGridlines = True
.FreezePanes = False
End With
Next
ActiveWorkbook.Worksheets(1).Select
End Sub 'GeeDee

isabelle



Bojour,

Je parviens pas à afficher le menu "Fichier Edition Affichage
......Message ?" situé en haut de la fenêtre Excel.
Sans doute une fausse manoeuvre?

Merci pour le tuyau.

JP











Avatar
isabelle
ps/ quand tu ouvre un fichier "inconnu" que ce soit par un click sur un lien
ou par double click sur le fichier ou par fichier ouvrir, tient les touches Ctrl+Shift enfoncer
en même temps que tu fait la manif d'ouvrir le fichier,
cela empêche l'execution automatique de macro.
une fois ouvert tu peut vérifier si le workbook de ce classeur contient des macros
Private Sub Workbook_Open()
ou
Private Sub Workbook_BeforeClose(Cancel As Boolean)

et faire une recherche (dans tous les modules pour detecter le mot "Open" pour decouvrir s'il existe une macro Auto_Open.

isabelle




Merveilleuse Isabelle, Merci. Cela a bien fonctionné mais, bien que je n'en
ai pas l'intention avant longtemps, je ne veux pas mourrir idiot et je
voudrais en connaître le pourquoi du comment. de ce problème.

JP


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

bonjour JP,

copie cette macro de Geedee dans un module standard et exucute la,

Sub Sesame()
Dim cmdB As CommandBar
I = 1
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
If I < 5 Then cmdB.Visible = True
I = I + 1
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With

For Each ws In ActiveWorkbook.Worksheets
ws.Visible = True
ws.Activate
ws.Cells.EntireColumn.Hidden = False
ws.Cells.EntireRow.Hidden = False
ws.[A1].Select
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayGridlines = True
.FreezePanes = False
End With
Next
ActiveWorkbook.Worksheets(1).Select
End Sub 'GeeDee

isabelle



Bojour,

Je parviens pas à afficher le menu "Fichier Edition Affichage
......Message ?" situé en haut de la fenêtre Excel.
Sans doute une fausse manoeuvre?

Merci pour le tuyau.

JP











Avatar
Jean-Paul Brine
Merci , je suis tes précieux conseils.

JO

"isabelle" a écrit dans le message de news:

ps/ quand tu ouvre un fichier "inconnu" que ce soit par un click sur un
lien

ou par double click sur le fichier ou par fichier ouvrir, tient les
touches Ctrl+Shift enfoncer

en même temps que tu fait la manif d'ouvrir le fichier,
cela empêche l'execution automatique de macro.
une fois ouvert tu peut vérifier si le workbook de ce classeur contient
des macros

Private Sub Workbook_Open()
ou
Private Sub Workbook_BeforeClose(Cancel As Boolean)

et faire une recherche (dans tous les modules pour detecter le mot "Open"
pour decouvrir s'il existe une macro Auto_Open.


isabelle




Merveilleuse Isabelle, Merci. Cela a bien fonctionné mais, bien que je
n'en


ai pas l'intention avant longtemps, je ne veux pas mourrir idiot et je
voudrais en connaître le pourquoi du comment. de ce problème.

JP


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

bonjour JP,

copie cette macro de Geedee dans un module standard et exucute la,

Sub Sesame()
Dim cmdB As CommandBar
I = 1
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
If I < 5 Then cmdB.Visible = True
I = I + 1
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With

For Each ws In ActiveWorkbook.Worksheets
ws.Visible = True
ws.Activate
ws.Cells.EntireColumn.Hidden = False
ws.Cells.EntireRow.Hidden = False
ws.[A1].Select
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayGridlines = True
.FreezePanes = False
End With
Next
ActiveWorkbook.Worksheets(1).Select
End Sub 'GeeDee

isabelle



Bojour,

Je parviens pas à afficher le menu "Fichier Edition Affichage
......Message ?" situé en haut de la fenêtre Excel.
Sans doute une fausse manoeuvre?

Merci pour le tuyau.

JP