Masquer bouton minimiser & réduire

Résolu/Fermé

Mots croisés Messages postés 3058 Date d'inscription dimanche 22 mai 2005 Statut Membre Dernière intervention 20 février 2024 - 12 févr. 2016 à 14:56
Mots croisés Messages postés 3058 Date d'inscription dimanche 22 mai 2005 Statut Membre Dernière intervention 20 février 2024 - 14 févr. 2016 à 15:04

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

A voir également:

Masquer bouton minimiser & réduire
Comment réduire la taille d'un fichier - Guide
Masquer conversation whatsapp - Guide
Comment reduire la taille d'une photo - Guide
Réinitialiser chromecast sans bouton - Guide
Appel masquer - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
14 févr. 2016 à 09:53

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!

Mots croisés Messages postés 3058 Date d'inscription dimanche 22 mai 2005 Statut Membre Dernière intervention 20 février 2024 110
14 févr. 2016 à 15:04

Bjr Pivert

Il me fallait simplement savoir si je pouvais masquer 2 boutons et garder la croix de fermeture.

Tu m'as donné la réponse, c'est niet.

Pour afficher ma page de garde en plein écran, un internaute m'a fait suivre ce code qui me convient très bien.

Je te remercie Pivert.

Bonne continuation.

Private Sub Worksheet_Activate()
Application.DisplayFullScreen = True
End Sub
Private Sub Worksheet_Deactivate()
Application.DisplayFullScreen = False
End Sub

""""""""""""""

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Worksheets("Feuil plein écran").Activate
End Sub

Réponse 2 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
13 févr. 2016 à 16:00

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

Mots croisés Messages postés 3058 Date d'inscription dimanche 22 mai 2005 Statut Membre Dernière intervention 20 février 2024 110
13 févr. 2016 à 18:29

Bjr Pivert

Eh bé, du boulot là.

Oui ça me convient (presque) :-).

Je précise et je demande.

Je précise que j'aimerais garder la croix de fermeture.

Et puis, est ce que ce code agit sur la première feuille du classeur? ou bien agit il sur toutes les feuilles du classeur?

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.

Merci

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?

Bouton ON OFF, O ou I ?

Quel est la touche shift sur le clavier

ou est la touche shift sur un clavier

Discussions similaires

Newsletters