Rétablir le plein écran en VBA Excel
Bonjour à tous,
Ces codes me permettent de bloquer les 3 icônes de la barre menus, icônes en haut à droite de l'écran (réduire, plein écran et fermer). Je souhaite rétablir le plein écran car j'ai changé d'écran, ma feuille de calcul est donc restée sur la taille de l'ancien écran. Mon soucis est que je ne sais plus qu'elle ligne je dois supprimer dans ces codes pour rétablir le plein écran.
Pouvez-vous m'aider s'il vous plait ? Je vous en remercie par avance
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Option Explicit
Public Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GWL Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SWL Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE As Long = -16
Public forme As Long
Public Const SC_CLOSE = &HF060&
Public Const MF_BYCOMMAND = &H0&
Public hSysMenu As Long
Public lehandle As Long |
Code:
1
2
3
4
5
6
7
8
9
10
11
|
Sub depart()
'on identifie le handle de la fenetre
lehandle = FindWindowA(vbNullString, Application.Caption)
forme = GWL(lehandle, GWL_STYLE) 'Acquisition propriétés
'on applique le style a la fenetre
SWL lehandle, GWL_STYLE, forme And Not &H70000 Or &H20000
'on bloque le bouton stop
hSysMenu = GetSystemMenu(lehandle, False)
RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
End Sub |
Code:
1
2
3
4
5
6
7
8
|
Sub fin()
lehandle = FindWindowA(vbNullString, Application.Caption)
forme = GWL(lehandle, GWL_STYLE) 'Acquisition propriétés
SWL lehandle, GWL_STYLE, forme Or &H70000
hSysMenu = GetSystemMenu(lehandle, True)
RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
End Sub |
