Microsoft 365 Cacher tout sauf la feuille

[Aloha]

Bonjour,
Y a-t-il moyen de cacher toute la partie supérieure d'Excel, en ne laissant apparents que la feuille et les onglets?
Bien à vous
Aloha

 

[sylvanu]

Bonjour Aloha,

Pour revenir à la normale double clic sur la barre supérieure.

Autre méthode qui supprime le ruban : Double clic sur un des nom du menu, retour avec la même chose.

 

[Aloha]

Bonsoir,
Je ne trouve pas le réglage pour la première option.
La deuxième c'est ok.
Il ne reste que le menu.
Pour pousser plus loin encore: peut-on cacher aussi le menu?

 

[sylvanu]

Normalement, c'est dans l'onglet Affichage, à gauche. Mais dans XL2007.
Vous devriez le trouver quelque part dans les menus 365.

Basculer vers l’affichage plein ou normal de l’écran dans Excel - Support Microsoft

Dans Excel, vous pouvez basculer ou basculer entre l’écran plein écran et l’écran normal. Le mode Plein écran masque les éléments d’interface utilisateur sur le ruban, tandis que l’écran normal les restaure.

support.office.com

 

[Aloha]

Je ne le trouve justement pas dans les menus.
Mais peu importe puisque la deuxième option fonctionne.
Ce que je voudrais concrètement: dès l'ouverture du classeur je ne vois rien d'autre que la feuille active, ne contenant que 3 boutons depuis lesquels tout est dirigé, à la limite même pas l'onglet de la feuille (si c'est possible), les autres feuilles étant toutes cachées.
Donc, qu'à première vue on ne reconnaisse même pas l'appartenance à Excel.

 

[sylvanu]

A mettre dans ThisWorkbook :

Private Sub Workbook_Open()
     Application.DisplayFullScreen = True               ' Plein écran
     ActiveWindow.DisplayWorkbookTabs = False           ' Masque nom de feuille
     ActiveWindow.DisplayHorizontalScrollBar = False    ' Masque barre défilement horizontal
     ActiveWindow.DisplayVerticalScrollBar = False      ' Masque barre défilement vertical
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Application.DisplayFullScreen = False              ' Plein écran
     ActiveWindow.DisplayWorkbookTabs = True            ' Masque nom de feuille
     ActiveWindow.DisplayHorizontalScrollBar = True     ' Masque barre défilement horizontal
     ActiveWindow.DisplayVerticalScrollBar = True       ' Masque barre défilement vertical
End Sub

Choisir les options désirées.
Le second module rétablit tout quand on sort.

Tant qu'a faire avec une PJ c'est mieux.

 

[Aloha]

Merci, mais dès l'ouverture j'ai un message d'erreur et le code bloque à cette instruction:
ActiveWindow.DisplayWorkbookTabs = False ' Masque nom de feuille

 

[sylvanu]

Désolé ça marche chez moi.
Quand vous utilisez l'enregistreur de macros, vous obtenez bien :

ActiveWindow.DisplayWorkbookTabs = False

Tentez avec l'enregistreur pour voir ce qu'il vous dit.
( je suis sous XL2007, mais ça m'étonnerait que cela ne marche pas avec 365 )
D'ailleurs MS le confirme :

Propriété Window.DisplayWorkbookTabs (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

 

[Aloha]

Lorsque je colle ce bout de code tout seul dans une sub cela fonctionne, mais tout le code génère le message d'erreur que voici:

à la ligne spécifiée dans mon message antérieur.

Si le code fonctionnait il cacherait le nom de l'onglet; restent les menus.

Cependant, en réalité, ce n'est pas important, c'est plutôt de l'amusement et voilà pourquoi il est inutile d'y investir trop d'énergie.

 

[sylvanu]

Votre erreur porte sur un bloc With End With qui n'est pas dans la macro de ThisWorkbook.
MS donne pour cette erreur l'explication suivante :

Variable objet non définie (Erreur 91)

Rubrique de référence sur Office VBA

docs.microsoft.com

Ce qui nous avance guère.
Difficile d'aller plus loin sans le fichier.
Au mieux vous pouvez supprimer cette ligne, vous serez en plein écran quand même.

 

[Aloha]

Bonjour,
J'ai trouvé, la macro est exécutée à l'ouverture du fichier.

J'ai dans un module:

Sub ActiverMenus()
    Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", True)"
End Sub

Sub DésactiverMenus()
    Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
End Sub

et dans ThisWorkbook:

Private Sub Workbook_Open()
Call DésactiverMenus
End Sub

Ce qui manque encore c'est rétablir la situation originale à la fermeture du fichier.

 

[sylvanu]

Bonjour Aloha,
[Re edit] j'avais mal lu.

Pour rétablir en sortant il faut mettre une macro dans ThisWorkbook :

Private Sub Workbook_Close()
     ActiverMenus
End Sub

 

[Aloha]

Re,
Comment puis-je vérifier si la procédure est exécutée à la fermeture?
Je pensais qu'en ouvrant un autre fichier, après avoir fermé celui avec la procédure, mais la procédure en commentaire, les menus seraient désactivés, mais il n'en est rien.
Conclusion: que la procédure tourne ou non, à l'ouverture d'un autre fichier les menus sont toujours activés!
J'ai d'ailleurs essayé aussi avec Private Sub Workbook_BeforeClose(Cancel as Boolean), avec le même résultat!

Dans le code de fermeture de votre dernier message vous avez omis le "Call". Est-ce intentionnel?

Bonne soirée
Aloha

 

[Staple1600]

Bonsoir le fil

Aloha
[Pour infos]

Sub Test_A()
'Ces trois lignes font la même chose
Call MacroA
MacroA
Application.Run "MacroA"
End Sub
Sub MacroA()
MsgBox Application.UserName
End Sub

PS: C'est juste un petit test illustratif.

EDITION: Bonsoir sylvanu

 

[sylvanu]

Bonsoir Aloha,Staple,
Le Call est optionnel. Par contre la syntaxe est différente.

Call Macro1(Param1, Param2 ... )
Macro1 Parm1,Param2,...

Je suis un peu fainéant. Mais aussi plus les macros sont légères, plus elles sont lisibles.