Microsoft 365 Réduire le ruban

Diane272727 à dit:

Bonjour,
Je souhaite réduire le ruban à l'ouverture d'un fichier Excel (pour voir le maximum de données sur l'écran.
Par contre je voudrai que l'utilisateur puisse enregistrer le fichier et donc il faudrait garder le menu.

Regarde la pièce jointe 1179971

Autre idée : serait il possible d'ajouter un bouton VBA pour afficher ou masquer le ruban ?
Merci beaucoup pour votre aide

Cliquez pour agrandir...

patricktoulon à dit:

re
bonjour lionel
non c'est pas bon ça vire les onglet aussi
sinon je lui aurait donné ceci

VB:

Sub Ribbonvisible()
    Dim Bool: Static Wstate As Long
    With Application
        Bool = Application.CommandBars("ribbon").Visible
        If Bool Then Wstate = .WindowState
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(Bool)) & ")"
        .DisplayScrollBars = Not Bool
        .DisplayFormulaBar = Not Bool
        .DisplayStatusBar = Not Bool
        .WindowState = Array(xlMaximized, Wstate)(Abs(Not Bool))
        With ActiveWindow
            .DisplayHeadings = Not Bool
            .DisplayWorkbookTabs = Not Bool
        End With
    End With
End Sub

Cliquez pour agrandir...

patricktoulon à dit:

re
Regarde la pièce jointe 1179982

c'est peut être ta version excel qui fait que mais depuis que j'utilise cette macro4 pour le hide ribbon
elle a toujours rendu invisible les onglets
et pour info c'est application.windowstate pas activewindow.windowstate

perso voilà la mienne tu la lance pour le contraire à chaque fois (une seul sub)

VB:

Sub Ribbonvisible()
    Dim Bool: Static Wstate As Long
    With Application
        Bool = Application.CommandBars("ribbon").Visible
        If Bool Then Wstate = .WindowState
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(Bool)) & ")"
        .DisplayScrollBars = Not Bool
        .DisplayFormulaBar = Not Bool
        .DisplayStatusBar = Not Bool
        .WindowState = Array(xlMaximized, Wstate)(Abs(Not Bool))
        With ActiveWindow
            .DisplayHeadings = Not Bool
            .DisplayWorkbookTabs = Not Bool
            .DisplayHorizontalScrollBar = Not Bool
            .DisplayVerticalScrollBar = Not Bool
        End With
    End With
End Sub

et au visible elle restitue le windowstate initial

Cliquez pour agrandir...

Usine à gaz à dit:

Re :
"Sinon, est ce qu'il serait possible de ne garder que le menu "Enregistrer" ?'

ça, c'est facile...
Voire fichier joint

Cliquez pour agrandir...

Diane272727 à dit:

Merci mais en fait, je voudrait garder que le menu "Enregistrer" (et pas un bouton "Enregister")
Regarde la pièce jointe 1180003

Cliquez pour agrandir...