Salut a tous les développeurs

J'essaye depuis peu de modifier la barre de menu Excel par VBA.
Pour ce qui est du contenu des menu, c'est déjà résolu. je souhaite actuellement modifier l'icône Excel qui reste présente dans la nouvelle barre.Si c'est possible, bien vouloir me filer le tuyau.
Ma deuxième préoccupation est de supprimer le bouton "Fermer la fenêtre" sur cette barre. j'ai essaye le code suivant mais il supprime plutôt le bouton "Fermer" de l'application Excel.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Const MF_BYPOSITION As Long = &H400
 
Private Const mlNUM_SYS_MENU_ITEMS As Long = 9
 
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
 
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
 
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Public Sub DisableSystemMenu()
 
  Dim lHandle As Long, lCount As Long
 
  On Error Resume Next
 
  lHandle = FindWindowA(vbNullString, Application.Caption)
 
  If lHandle <> 0 Then
 
    DeleteMenu GetSystemMenu(lHandle, False), 6, &H400
  End If
 
End Sub
Public Sub EnableSystemMenu()
 
  Dim lHandle As Long
 
  On Error Resume Next
 
  lHandle = FindWindowA(vbNullString, Application.Caption)
 
  GetSystemMenu lHandle, True
 
End Sub
Merci pour toutes vos réactions

A bientôt