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.