Discussion :

[Allanbzh]

Bonjour à tous,

Je remercie tout d'abord Patricktoulon pour son code permettant de masquer les boutons car j'arrive à en masquer un (le bouton réduire) mais pas le bouton "fermer" de mon fichier. Je ne sais pas comment avoir le "handle" du bouton fermer donc je suis bloqué...

Code utilisé :

Code :

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

1
2
3
4
5
6
Private Declare Function SWL Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Dim HANDLE
HANDLE = FindWindow(vbNullString, Application.Caption)
SWL HANDLE, -16, &H94C40080

Merci pour votre future aide

[Marc-L]

Bonjour,

plus simple :   gérer l'évènement de fermeture d'un classeur …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[unparia]

Bonjour
supprimer cette icône de fermeture pour (alors devenu nécessaire à un moment ou à l'autre) la remplacer par un bouton ad hoc, me laisse toujours songeur ...
Et s'il s'agit de subordonner cette fermeture à la réunion de certaines conditions, existe l'évènement Workbook_BeforeClose, fait pour cela.

[Allanbzh]

Salut salut !

En fait, il s'agit d'un classeur qui contrôle les acces, pour certains utilisateurs ils ne voient qu'une seule page suite à leur connexion.

La fermeture du fichier est gérée par un timer, et je vous assure que c'est la solution que je souhaite car vous expliquer toutes les fonctionnalités du programme serait très très long... j'y travaille depuis un bon moment

Je sais pas comment Patrick arrive à capter comme ça les handle de différentes choses et c'est ce qui me bloque...

Merci pour vos première réponses

[Allanbzh]

Bonjour Patrick !

Bon je suis sur Excel 2010 et ça bloque, je vois que j'impacte le bouton fermer car il devient de couleur bizarre quand je passe dessus... Cependant peut importe le code que j'utilise je n'arrive encore une fois qu'à cacher le bouton réduire et pas les autres (mêmes avec le code qui doit cacher toute la caption)

Merci pour ta rep !!!

EDIT : Je précise que je suis dans un workbook et pas dans un UF

[patricktoulon]

2010 en 32 ou 64 W10 ou W7???
tres etonnant
tu veux faire quoi exactement en terme clair

1. bloquer le bouton fermer ?
2. bloquer tout les boutons?
3. bloquer un bouton en particulier?

[patricktoulon]

Bonjour
je donne la totale comme ca tu aura tout
avant tout ce qu'il y a de bien avec l'application c'est que pour chopper le handle on a pas besoins de findwindow juste setwindowlong

bon allez c'est parti
api en haut de module

Code :

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

Private Declare Function SWL Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

pas de bouton dans la caption

Code :

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

SWL Application.hwnd, -16, &H94C00080 ' pas de bouton

rien que le bouton fermer

Code :

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

SWL Application.hwnd, -16, &H94C80080 ' rien que le bouton fermer

on bloque le bouton minimiser et on garde le bouton agrandir et fermer

Code :

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

SWL Application.hwnd, -16, &H94CD0080 ' fermer et maximiser bouton minimiser bloqué

on bloque le bouton agrandir et on garde le bouton minimiser et fermer

Code :

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

SWL Application.hwnd, -16, &H94CE0080 ' fermer et minimiser et bouton maximiser bloqué

on remet tout a normal

Code :

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

SWL Application.hwnd, -16, -1798373248 ' remet normal

voila tu a tout