Discussion :

[8e8eClo]

Bonjour,

Je n'ai pas trouvé de réponse sur google.
J'ai réussi à désactiver le bouton "ferme" via ce code :

Code :

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

1
2
3
Private sub workbook_beforeclose(cancel as boolean)
cancel = true
end sub

Je voudrais appliquer la même chose aux boutons "réduire" et "niveau inférieur".
J'ai essayé ça (mais ça ne fonctionne pas) :

Code :

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

1
2
3
private sub workbook_Open()
application.displayfullscreen = true
end sub

Mon fichier se met bien en plein écran

Code :

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

1
2
3
private sub workbook_windowresize(byval Wn as Window)
activewindow.windowstate = xlMazimized
end sub

... je peux quand même réduire le classeur.

Merci !

Merci

[pgz]

Bonjour.

Cela devrait fonctionner, mais seulement quand tu redimensionnes la fenêtre du classeur.
Si tu redimensionnes la fenêtre de l'application, alors ce n'est pas le même évènement.

Cordialement,

PGZ

[8e8eClo]

Bonjour,

Effectivement, c'est le redimensionnement de la fenêtre de l'application que je voudrais empêcher.

Vous avez le code ?

MErci

[patricktoulon]

bonjour
il va te faloir utiliser les api de window (user32dll)


tu pourrais supprimer les bouton parexemple
un exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Option Explicit
 
Public Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 Sub restaurer_croix_sys()
  Dim hWnd As Long
  hWnd = FindWindowA(vbNullString, Application.Caption)
  SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H80000
End Sub
 
Sub supprimer_croix_sys()
  Dim hWnd As Long
  hWnd = FindWindowA(vbNullString, Application.Caption)
  SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And Not &H80000 
End Sub

au plaisir

[patricktoulon]

dans la me style mais la tu n'a plus de caption(la barre d'en haut)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
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 Declare Function FWA Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function show Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
 
Public handle As Long
 
Sub pas_de_caption_app()
 
    handle = FWA(vbNullString, Application.Caption)
    SWL handle, -16, GWL(handle, -16) And Not &HC80000
Application.DisplayFullScreen = True
End Sub
 
 
Sub recaption()
 
  handle = FWA(vbNullString, Application.Caption)
  SWL handle, -16, GWL(handle, -16) Or &HC80000
Application.DisplayFullScreen = False
 
End Sub

n'ésite pas si tu a des question
aun plaisir

sinon en poussant un peu plus loins on bloque simplement les bouton reduire et agrandir
tu appel la macro maximiser pour enlever le bouton maximiser et tu la reappel pour le remetre
idem pour le minimiser

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
 
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, _
                ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function FWA Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Const GWL_STYLE = (-16)
Private Const MF_BYCOMMAND = &H0&
Private Const MF_BYPOSITION = &H400
Private Const SC_MINIMIZE = &HF020
Private Const SC_MAXIMIZE = &HF030
Private Const SC_CLOSE = 6
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Public hwnd As Long
 
Private Sub minimiser()
hwnd = FWA(vbNullString, Application.Caption)
' Désactiver 'minimiser'
Dim hMenu As Long, k As Long
hMenu = GetSystemMenu(hwnd, True)
k = DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
k = GetWindowLong(hwnd, GWL_STYLE)
k = k Xor WS_MINIMIZEBOX
SetWindowLong hwnd, GWL_STYLE, k
End Sub
 
Private Sub maximiser()
' Désactiver 'maximiser'
Dim hMenu As Long, k As Long
hMenu = GetSystemMenu(hwnd, False)
k = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
k = GetWindowLong(hwnd, GWL_STYLE)
k = k Xor WS_MAXIMIZEBOX
SetWindowLong hwnd, GWL_STYLE, k
End Sub

au plaisir

[8e8eClo]

Merci beaucoup pour ces réponses.
J'ai cependant un petit problème.

J'ai pris le premier code et je l'ai collé dans Thisworkbook. Mais il ne se passe rien.
Si je veux jouer la macro j'ai un message d'erreur :
"erreur de compilation: des constantes, chaînes de longueur fixe,... ne sont pas autorisés comme membre Public ..."

Désolé c'est la première fois que j'utilise les api.

Merci