Word 2007 : neutraliser la croix fermeture système

Salut à tous,

J'ai un code VBA qui neutralise bien la croix système pour tous les Word sauf Word 2007.
Quelqu'un connaitrait-il un moyen de le faire pour Word 2007 ?
Merci d'avance.

Voici mon code qui marche avec les autres Word :

'api pour désactiver la croix de fermeture
Public Declare Function FindWindow Lib"User32"Alias"FindWindowA" _
(ByVal lpClassName AsString, ByVal lpWindowName AsString)AsLong
PrivateDeclareFunction GetSystemMenu Lib"User32"(ByVal hwnd AsLong, ByVal bRevert AsLong)AsLong
PrivateDeclareFunction GetMenuItemCount Lib"User32"(ByVal hMenu AsLong)AsLong
PrivateDeclareFunction RemoveMenu Lib"User32"(ByVal hMenu AsLong, ByVal nPosition AsLong, ByVal wFlags AsLong)AsLong
PrivateDeclareFunction ModifyMenu Lib"User32"Alias"ModifyMenuA"(ByVal hMenu AsLong, ByVal nPosition AsLong, ByVal wFlags AsLong, ByVal wIDNewItem AsLong, ByVal lpString AsString)AsLong
PrivateDeclareFunction DrawMenuBar Lib"User32"(ByVal hwnd AsLong)AsLong
 
PrivateConst MF_BYPOSITION = &H400&
PrivateConst MF_REMOVE = &H1000&
 
PrivateSub DesactiveX()
    'désactiver croix de fermeture
    OnErrorResumeNext
    Dim Handle AsLong
    Dim hMenu AsLong
    Dim nCount AsLong
    Handle = FindWindow("OpusApp", vbNullString)
    hMenu = GetSystemMenu(Handle, 0)
    nCount = GetMenuItemCount(hMenu)
    Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
EndSub