XL 2016 Masquer le ruban

[Bebzinda]

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.

 

[job75]

Bonjour Bebzinda,

C'est un gros défaut des débutants en programmation : vouloir empêcher les gens de faire ce qu'ils veulent.

A+

 

[patricktoulon]

Bonsoir

exemple

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

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]

Bonsoir

exemple

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

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]

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

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]

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

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

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é.