Masquer bouton minimiser & réduire
Résolu
Mots croisés
Messages postés
3059
Date d'inscription
Statut
Membre
Dernière intervention
-
Mots croisés Messages postés 3059 Date d'inscription Statut Membre Dernière intervention -
Mots croisés Messages postés 3059 Date d'inscription Statut Membre Dernière intervention -
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
--
Sans les Helpers notre errance informatique serait sans fin - Mots croisés
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
--
Sans les Helpers notre errance informatique serait sans fin - Mots croisés
2 réponses
-
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!-
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
-
-
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
-
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
-
