Discussion :

[NEC14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Salut, à voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveWindow.WindowState = xlMaximized
    Application.WindowState = xlMaximized

[NEC14]

Bonjour kiki29 et merci pour ta réponse. Mon problème est résolu avec ta solution.
Bien cordialement

René