j'ai voulu masquer momentanément le menu d'excel en utilisant la macro
suivante, mais j'ai perdu l'affichage de nouveau du menu et je ne peux
utiliser excel que sous la version sans echec (en appuyant sur ctrl à
l'ouverture) comment récupérer le menu et merci d'avance.
Un vrai plein écran
Comment afficher une page Excel en plein écran sans la barre de menu au
dessus ? Dans la feuille de code ThisWorkbook
Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
End Sub
'puis les remettre à la fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub ChrisV, Ajouté ou modifié le 16/02/2005 (N°1575)
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
isabelle
bonjour migmag,
execute celle ci,
Sub reset() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True cmdB.Visible = True Next cmdB End Sub
isabelle
j'ai voulu masquer momentanément le menu d'excel en utilisant la macro suivante, mais j'ai perdu l'affichage de nouveau du menu et je ne peux utiliser excel que sous la version sans echec (en appuyant sur ctrl à l'ouverture) comment récupérer le menu et merci d'avance. Un vrai plein écran Comment afficher une page Excel en plein écran sans la barre de menu au dessus ? Dans la feuille de code ThisWorkbook
Private Sub Workbook_Open() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB ' si tu veux masquer en plus la barre d'état ' la barre de formule ' les onglets... With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False End With ' End Sub
'puis les remettre à la fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub ChrisV, Ajouté ou modifié le 16/02/2005 (N°1575)
bonjour migmag,
execute celle ci,
Sub reset()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
cmdB.Visible = True
Next cmdB
End Sub
isabelle
j'ai voulu masquer momentanément le menu d'excel en utilisant la macro
suivante, mais j'ai perdu l'affichage de nouveau du menu et je ne peux
utiliser excel que sous la version sans echec (en appuyant sur ctrl à
l'ouverture) comment récupérer le menu et merci d'avance.
Un vrai plein écran
Comment afficher une page Excel en plein écran sans la barre de menu au
dessus ? Dans la feuille de code ThisWorkbook
Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
End Sub
'puis les remettre à la fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub ChrisV, Ajouté ou modifié le 16/02/2005 (N°1575)
Sub reset() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True cmdB.Visible = True Next cmdB End Sub
isabelle
j'ai voulu masquer momentanément le menu d'excel en utilisant la macro suivante, mais j'ai perdu l'affichage de nouveau du menu et je ne peux utiliser excel que sous la version sans echec (en appuyant sur ctrl à l'ouverture) comment récupérer le menu et merci d'avance. Un vrai plein écran Comment afficher une page Excel en plein écran sans la barre de menu au dessus ? Dans la feuille de code ThisWorkbook
Private Sub Workbook_Open() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB ' si tu veux masquer en plus la barre d'état ' la barre de formule ' les onglets... With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False End With ' End Sub
'puis les remettre à la fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub ChrisV, Ajouté ou modifié le 16/02/2005 (N°1575)
