XL 2016 Masquer le ruban

Bebzinda

XLDnaute Nouveau
Bonjour a tous ! Vous allez bien j'espère. J'ai un souci avec le ruban excel. Après l'avoir masquer avec : application.displayfullscren n'importe qui peu le faire afficher simplement en réduisant la fenêtre. J'aimerais savoir comment palier cela merci.
 

patricktoulon

XLDnaute Barbatruc
Bonsoir

exemple
VB:
Function RibbonBarsSwitch(bool As Boolean)
    With Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(bool)) & ")"
        DoEvents
        .DisplayFormulaBar = Not bool
        ActiveWindow.DisplayHeadings = Not bool
    End With
End Function
avec 2 boutons dans une feuille
VB:
Private Sub CommandButton1_Click()
RibbonBarsSwitch True
End Sub

Private Sub CommandButton2_Click()
RibbonBarsSwitch 0
End Sub
si tu veux le plein écran avec tu le dis
 

Bebzinda

XLDnaute Nouveau
Bonsoir

exemple
VB:
Function RibbonBarsSwitch(bool As Boolean)
    With Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(bool)) & ")"
        DoEvents
        .DisplayFormulaBar = Not bool
        ActiveWindow.DisplayHeadings = Not bool
    End With
End Function
avec 2 boutons dans une feuille
VB:
Private Sub CommandButton1_Click()
RibbonBarsSwitch True
End Sub

Private Sub CommandButton2_Click()
RibbonBarsSwitch 0
End Sub
si tu veux le plein écran avec tu le dis
Slt comment vous allez? Merci pour l'apport peut être que j'ai mal entré le code car ça n'a pas fonctionné. Au faite je veux le plein écran sans qu'une autre personne ne puis la ramener en écran normal
 

patricktoulon

XLDnaute Barbatruc
Bonjour @Bebzinda
il faut bien faire la différence entre le plein écran
et l'affichage du ruban ou pas
et le blocage du windowstate normal

la fonction native d'excel display fullscreen met bien en plein ecran sans ruban et autres bars mais ne bloque pas la possibilité de retour

ce que je t'ai proposé c'est bien le masquage du ruban sans possibilité de retour sans cliquer sur le bouton
mais puisque tu y tient
je supprime même les bouton de la barre
VB:
Private Sub CommandButton1_Click()
RibbonBarsSwitch True
End Sub

Private Sub CommandButton2_Click()
RibbonBarsSwitch 0
End Sub
Function RibbonBarsSwitch(bool As Boolean)
Dim hwnd&, ExLong&
ExLong = Array(&H94CF0080, &H94C00080)(Abs(bool))
     With Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(bool)) & ")"
        DoEvents
        .DisplayFormulaBar = Not bool
        ActiveWindow.DisplayHeadings = Not bool
    .WindowState = Array(xlMaximized, xlNormal)(Abs(Not bool))
    End With
 
  'on suprime les boutons de la barre de titre
     hwnd = Application.hwnd
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hwnd & ", " & -16 & ", " & ExLong & ")")     'api SetWindowLongA
End Function
 

Bebzinda

XLDnaute Nouveau
Bonjour @Bebzinda
il faut bien faire la différence entre le plein écran
et l'affichage du ruban ou pas
et le blocage du windowstate normal

la fonction native d'excel display fullscreen met bien en plein ecran sans ruban et autres bars mais ne bloque pas la possibilité de retour

ce que je t'ai proposé c'est bien le masquage du ruban sans possibilité de retour sans cliquer sur le bouton
mais puisque tu y tient
je supprime même les bouton de la barre
VB:
Private Sub CommandButton1_Click()
RibbonBarsSwitch True
End Sub

Private Sub CommandButton2_Click()
RibbonBarsSwitch 0
End Sub
Function RibbonBarsSwitch(bool As Boolean)
Dim hwnd&, ExLong&
ExLong = Array(&H94CF0080, &H94C00080)(Abs(bool))
     With Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(bool)) & ")"
        DoEvents
        .DisplayFormulaBar = Not bool
        ActiveWindow.DisplayHeadings = Not bool
    .WindowState = Array(xlMaximized, xlNormal)(Abs(Not bool))
    End With
 
  'on suprime les boutons de la barre de titre
     hwnd = Application.hwnd
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hwnd & ", " & -16 & ", " & ExLong & ")")     'api SetWindowLongA
End Function
Bonjour @Bebzinda
il faut bien faire la différence entre le plein écran
et l'affichage du ruban ou pas
et le blocage du windowstate normal

la fonction native d'excel display fullscreen met bien en plein ecran sans ruban et autres bars mais ne bloque pas la possibilité de retour

ce que je t'ai proposé c'est bien le masquage du ruban sans possibilité de retour sans cliquer sur le bouton
mais puisque tu y tient
je supprime même les bouton de la barre
VB:
Private Sub CommandButton1_Click()
RibbonBarsSwitch True
End Sub

Private Sub CommandButton2_Click()
RibbonBarsSwitch 0
End Sub
Function RibbonBarsSwitch(bool As Boolean)
Dim hwnd&, ExLong&
ExLong = Array(&H94CF0080, &H94C00080)(Abs(bool))
     With Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(bool)) & ")"
        DoEvents
        .DisplayFormulaBar = Not bool
        ActiveWindow.DisplayHeadings = Not bool
    .WindowState = Array(xlMaximized, xlNormal)(Abs(Not bool))
    End With
 
  'on suprime les boutons de la barre de titre
     hwnd = Application.hwnd
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hwnd & ", " & -16 & ", " & ExLong & ")")     'api SetWindowLongA
End Function
Merci grandement cela m'a beaucoup aidé.
 

Discussions similaires