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

Fredox

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonjour Fredox,

Ne vaut-il pas mieux utiliser le mode Plein écran :
VB:
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

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

patricktoulon

XLDnaute Barbatruc
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
VB:
'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
 

patricktoulon

XLDnaute Barbatruc
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
 

youky(BJ)

XLDnaute Barbatruc
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
 

Pièces jointes

  • MonPleinEcran.xlsm
    16.8 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
313 198
Messages
2 096 132
Membres
106 504
dernier inscrit
Kannankin Maxime