Double-clic interdit dans barre de titre

Bonjour EliotNaiss;
Dans le module ThisWorkbook:
Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String)
Private Declare Function GetSystemMenu& Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long)
Private Declare Function DeleteMenu& Lib "user32" (ByVal hMenu As Long _
, ByVal nPosition As Long, ByVal wFlags As Long)
Private Declare Function DrawMenuBar& Lib "user32" (ByVal hWnd As Long)
Private hWnd&

Private Sub Workbook_Open()
Application.WindowState = xlNormal
hWnd = FindWindow(vbNullString, Application.Caption)
DeleteMenu GetSystemMenu(hWnd, 0), &HF030, 0&
DrawMenuBar hWnd
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
GetSystemMenu hWnd, True
DrawMenuBar hWnd
Application.WindowState = xlMaximized
End Sub

MP

"EliotNaiss" <eliotn@laposteraie.net> a écrit dans le message de
news:urQFdV9VEHA.1888@TK2MSFTNGP11.phx.gbl...

Bonsoir à tous
je voudrais interdire le double-clic dans la barre de titre de
l'application, du moins qu'il ne fasse plus d'effet.
Merci de m'aider.
Cordialement.
Eliot