Discussion :

[kedas]

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

[SilkyRoad]

bonjour

je souhaite actuellement modifier l'icône Excel

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


bonne soirée
michel

[SilkyRoad]

bonjour

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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