Sub Bouton_pas_ok() 'à apeller dans l'open
Dim X&
'pas de bouton dans la barre de titre
ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & Application.Hwnd & ", " & -16 & ", " & &H94C00080 & ")") 'api SetWindowLongA
ExecuteExcel4Macro ("CALL(""user32"",""DrawMenuBar"",""JJ"", " & Application.Hwnd & ")")
X = ExecuteExcel4Macro("CALL(""user32"",""GetSystemMenu"",""JJJJ""," & Application.Hwnd & ", " & 0 & ")") 'api getsystemmenu
ExecuteExcel4Macro ("CALL(""user32"",""DeleteMenu"",""JJJJ""," & X & ", " & &HF060 & "," & &H0& & ")") 'api SetWindowLongA
ExecuteExcel4Macro ("CALL(""user32"",""DrawMenuBar"",""JJ"", " & Application.Hwnd & ")")
Application.Top = 0
End Sub
Sub bouton_ok() 'à appeler dans le close ou le moment ou vouvoulez reprendre la amain
' (trois bouton +le resize)
ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & Application.Hwnd & ", " & -16 & ", " & &H94CF0080 & ")") 'api SetWindowLongA
ExecuteExcel4Macro ("CALL(""user32"",""DrawMenuBar"",""JJ"", " & Application.Hwnd & ")")
ExecuteExcel4Macro ("CALL(""user32"",""DrawMenuBar"",""JJ"", " & Application.Hwnd & ")")
ExecuteExcel4Macro ("CALL(""user32"",""GetSystemMenu"",""JJJJ""," & Application.Hwnd & ", " & 1 & ")") 'api getsystemmenu
Application.Top = 1
End Sub