Masquer bouton minimiser & réduire Résolu/Fermé

Question

Bonjour, 

Excel 2010

Dernièrement un internaute m'a écrit un code afin d'ouvrir un programme sur une feuille donnée (exemple feuil plein écran), et également un code pour que cette feuille paraisse en plein écran.
Pour "fignoler" un peu plus cette feuil, je souhaiterais masquer les signes en haut à droite de cette feuil (minimiser et réduire), mais en laissant la croix de fermeture.

Est-ce possible?

Si oui, est-ce possible aussi de masquer ces signes QUE sur la page (feuil plein écran)?

Je joins un screen et ce projet de feuil (en plein écran).

Merci

https://www.cjoint.com/c/FBmn0z3hPsF

https://www.cjoint.com/c/FBmn2QNKdDF

Configuration: Windows / Firefox 44.0

cs_Le Pivert · Answer

Bonjour,

ce code met en plein écran et masque les 3 boutons, si cela te convient:

Option Explicit
Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLongA Lib "user32" _
  (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "user32" _
  (ByVal hWnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
'plein écran
Private Sub CommandButton1_Click()
Dim hWnd As Long
'masquer les boutons
  hWnd = FindWindowA(vbNullString, Application.Caption)
  SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
'plein écran
Application.DisplayFullScreen = True
 'Masquer le quadrillage
    ActiveWindow.DisplayGridlines = False
' Masquer les en-têtes
    ActiveWindow.DisplayHeadings = False
' Masquer les barres de défilement
   ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
' Masquer les onglets de classeur
    ActiveWindow.DisplayWorkbookTabs = False
End Sub
'rétablir
Private Sub CommandButton2_Click()
Dim hWnd As Long
'rétablir les boutons
  hWnd = FindWindowA(vbNullString, Application.Caption)
  SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H80000
'rétablir plein écran
Application.DisplayFullScreen = False
'rétablir le quadrillage
    ActiveWindow.DisplayGridlines = True
' rétablir les en-têtes
    ActiveWindow.DisplayHeadings = True
' rétablir les barres de défilement
   ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
' rétablir les onglets de classeur
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

cs_Le Pivert · Answer

Je souhaite que celui-ce agisse seulement sur la première feuille du classeur. Je tiens à jongler sur les autres feuilles en toute quiétude.  

Voilà un exemple:

http://www.cjoint.com/c/FBoiYDlsfhQ

Je précise que j'aimerais garder la croix de fermeture. 

 Dans ces conditions cela n'est pas possible!

Masquer bouton minimiser & réduire

2 réponses

Discussions similaires