Enlever la fermeture d'une Userform

[Cruz]

(re) Bonjour tout le Monde

J'aimerais savoir s'il est possible d'enlever la petite icone 'fermer' en haut à gauche d'une userform ?

Merci d'avance
a+
cruz

 

[titin]

salut cruz

Pour supprimer la croix de fermeture d'un UserForm.
A placer au début du module de code de ton UserForm :


Private Declare Function GetWindowLongA Lib 'user32' _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib 'user32' _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib 'user32' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA('Thunder' & IIf(Application.Version Like '8*', _
'X', 'D') & 'Frame', Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

 

[Gix]

Bonjour Cruz , Titin, le forum

Voici une autre proposition de principe il suffira de l'adapter à tes besoins

A+ Gix [file name=Croixdefermeture.zip size=14076]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Croixdefermeture.zip[/file]

 

[Cruz]

merci beaucoup c'est exactement ce que je cherchais

bon dimanche
a+
cruz