Modification de la barre de menu

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:

---

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

bonjour

Citation:

---

je souhaite actuellement modifier l'icône Excel

---

Comment changer l'icône d'un classeur ?


bonne soirée
michel

bonjour

Citation:

---

Ma deuxième préoccupation est de supprimer le bouton "Fermer la fenêtre" sur cette barre.

---

Cet exemple ne supprime pas mais bloque l'utilisation de la croix. J'ai présumé que ton classeur dispose d'un bouton de fermeture en remplacement de la croix de fermeture.
Bien entendu ça ne fonctionne pas si l'utilisateur désactive les macros ...


Dans le module ThisWorkbook du classeur :
La fermeture du classeur est bloqué tant que la variable boolFermeture = False.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit   Private Sub Workbook_Open() boolFermeture = False End Sub     Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Empêche la fermeture du classeur tant 'que la variable ne sera pas à True If boolFermeture = False Then Cancel = True End Sub

---

Dans un module standard

Code:

---

1 2 3

Option Explicit   Public boolFermeture As Boolean

---

Dans le module de feuille contenant un bouton nommé CommandButton1, permettant la fermeture du classeur :

Code:

---

1 2 3 4 5 6 7 8

Option Explicit   Private Sub CommandButton1_Click() 'Fermeture du classeur en sauvegardant 'les modifications. boolFermeture = True ThisWorkbook.Close True End Sub

---

bon après midi
michel