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

job75

XLDnaute Barbatruc

• 7 Avril 2024

• #2

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+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Avril 2024

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Avril 2024

• #4

patricktoulon à dit:

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

Cliquez pour agrandir...

déjoué ? joué à quoi ?

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 7 Avril 2024

• #5

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

Merci encore

 

Pièces jointes

• Ruban Visible selon feuille.xlsx.xlsm

  24.6 KB · Affichages: 3

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Avril 2024

• #6

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

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 9 Avril 2024

• #7

patricktoulon à dit:

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

Cliquez pour agrandir...

PatrickToulon, je ne comprend pas la question

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Avril 2024

• #8

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 9 Avril 2024

• #9

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

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Avril 2024

• #10

re
voilà une démo

 

Pièces jointes

• Sample.xlsm

  21.1 KB · Affichages: 1

Vote positif 0 Vote négatif