Mettre la croix d'un USF hors fonction

[gilles]

Bonjour à tous

Une question qui est dans le sujet:
Dans un userform, comment mettre la croix supérieure gauche hors fonction, voire même invisible.

Merci d'avance à ceux qui me liront et répondront.

Gilles

 

[LaurentTBT]

Bonsoir,

Voici un des nombreux posts où la question a été traitée:
Lien supprimé
Tu devrais y trouver ton bonheur.

Bonne fin de soirée.

 

[valou]

Bonjour,


Non experte en excel VBA et avec un peu de retard, voici la methode que j'utilise pour rendre invisible la croix d'un formualire ce qui m'oblige à avoir une autre gestion pour que l'utilisateur puisse quitter le formulaire.

dans un module que j'ai nomme API :

Option Private Module

Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Declare Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Sub SupprimerFermeture(usf As UserForm)
Dim hWnd As Long
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", usf.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub


et ensuite dans le initialized du formulaire :

supprimerFermeture me

la reponse arrive très tardivement mais peu etre que cela aidera quelqu'un une autre fois.

 

[Ti]

passer par les API c'est beaucoup de code pour pas grand chose, il vaut mieux utiliser l'événement QueryClose