Microsoft 365 [Résolu] | Ribbon | Afficher/Masquer le Ruban selon la feuille active

[Fredox]

Bonjour,
Je cherche à rendre mon ruban visible ou non selon la Feuille active.

J'ai tenté avec "getvisible", mais selon ne fonctionne visible qu'a l'ouverture du fichier, cela n'a pas l'ai "dynamique".

Quelqu'un saurait le faire, un Ruban actif selon la feuille active ?

Merci à vous

 

[job75]

Bonjour Fredox,

Ne vaut-il pas mieux utiliser le mode Plein écran :

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub

A+

 

[patricktoulon]

re
Attention @job75 le displayfullscreen=false peut trop facilement être déjoué
débloquer les lignes optionnelles selon besoins
prévoir un bouton pour faire ou défaire

'application full over screen by patricktoulon
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

 

[job75]

re
Attention @job75 le displayfullscreen=false peut trop facilement être déjoué

déjoué ? joué à quoi ?

 

[Fredox]

Bonsoir, et Merci a vous deux Job75 & Patricktoulon.
A force de persévérance, j'ai trouvé.

Merci encore

 

[patricktoulon]

re
@Fredox et comment va tu faire pour le remettre une fois que tu n'a plus le ruban donc plus ton Onglet perso accessible

@job75
un déplacement par la souris sur la barre réduisant en mode fenêtre
double clic sur la barre de tire
touche esc
et bien d'autre encore

 

[Fredox]

re
@Fredox et comment va tu faire pour le remettre une fois que tu n'a plus le ruban donc plus ton Onglet perso accessible

@job75
un déplacement par la souris sur la barre réduisant en mode fenêtre
double clic sur la barre de tire
touche esc
et bien d'autre encore

PatrickToulon, je ne comprend pas la question

 

[patricktoulon]

re
bonsoir
ben elle est simple
le titre de ta question est "Ribbon afficher masquer le ruban
donc là dans ton fichier on la compris il il a un onglet perso qui s'active en activant ou déactivant une feuille

ok mais ça n'a rien a voir avec le titre de ta question
ta question aurait du être afficher ou masquer un onglet perso dans le ruban
je t'aurais alors inviter à aller visiter cette ressource et de regarder une des vidéos ou je parle du getvisible interactif

CreatorRibbonX ImageMso 2023 V4.9.X

créer votre ruban personnel en quelque click et quelque mots tapés dans des textbox oui !!! c'est possible je vous présente l"a version 4.9 de 2023 de mon fichier excel créator depuis 3 ans comme moi il a évolué je vous invite à allez d"ans la...

excel-downloads.com

 

[youky(BJ)]

Bonsoir tous,
Perso j'ai des fichiers ou j'utilise ceci . . . voir fichier
J'utilise seulement le plein écran sans toucher au ruban
Voir Feuil3 pour retrouver les menus
Bon j'ai pas bloqué le VBA
C'est un exemple
Bruno

 

[patricktoulon]

re
voilà une démo