Discussion :

[NEC14]

Bonjour à tous,

J'ai créé une barre de menus (barre_menus_perso) que je voudrais substituer à celles existantes.
Je souhaiterai que les barres restent apparantes, mais non utilisables.
Dans le code ci-dessous, ma barre de menus n'apparait pas sauf si je me mets en affichage plein écran.
Comment puis-je faire pour que ma barre de menus soit la seule utilisable ?
Merci par avance

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
 
Private Sub WorkBook_Open()
    barre_menus_perso
Dim cmdb As CommandBar
Dim vRep As Integer
For Each cmdb In Application.CommandBars
Next cmdb
    UFbonj.Show
    With Application
    .DisplayFullScreen = True
    .DisplayStatusBar = False
    .DisplayFormulaBar = True
    .CommandBars(1).Enabled = True
    Sheets("Détail").Visible = False
    End With
With ActiveWindow
    .DisplayHeadings = False
    .Zoom = 100
    End With
Dim msg As String
Dim insuf As Boolean
 
    Application.ScreenUpdating = False
Test1
End Sub

[NEC14]

Pour la création de ma barre de menus, voici le code.
La barre de menus est bien demandée visible mais elle ne s'affiche pas.
J'ai réussi à faire disparaître les barres de menus à part celle où il y a "Fichier, Edition, Affichage, etc..."

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
 
'création de la barre de menus
Set cbar = CommandBars.Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True)
With cbar
    .Visible = True '<---- barre de menux visible
    .Protection = msoBarNoMove + msoBarNoCustomize '<-- protection de la barre de menus
End With
'insertion sur la barre de menus d'une zone de texte
Set Ctxt = cbar.Controls.Add(msoControlEdit)
With Ctxt
    .style = msoComboLabel
    .Caption = "Nous sommes le :" '<-----texte du label
    .Text = Date '<----- affichage de la date du jour
    .Enabled = False '<----- la date est non modifiable
End With

[fring]

Je souhaiterai que les barres restent apparantes, mais non utilisables.

Ca ce n'est pas possible, tu peux rendre des contrôles visibles et non utilisables mais pas des menus entiers

Comment puis-je faire pour que ma barre de menus soit la seule utilisable ?

Ca tu peux le faire en rendant les menus Excel invisibles soit via la propriété "Visible" soit via "Enabled"
Au début de ta macro de création de ta barre de menu perso tu ajoutes ces lignes :

Code :

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

1
2
3
4
5
Dim CbarXl As CommandBar
 
For Each CbarXl In CommandBars
    If CbarXl.BuiltIn = True Then CbarXl.Enabled = False
Next

Et pour les rendre visibles lors de la fermeture de ton classeur, tu ajoutes ces lignes au début de ta macro de suppression de ta barre de menu perso

Code :

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

1
2
3
4
5
Dim CbarXl As CommandBar
 
For Each CbarXl In CommandBars
    If CbarXl.BuiltIn = True Then CbarXl.Enabled = True
Next

Mais...ce processus ne fonctionne pas sous 2007

[NEC14]

Bonjour à tous,

J'espère que vous avez tous passé un excellent week-end.
J'ai donc réussi à cacher les barres de menus, par contre je n'arrive pas à cacher la barre de menus (Fichier, Affichage, etc...) sans que tout soit caché.

Si je mets en plein écran, ma barre est caché également.

Si vous avez une idée cela serait sympa. De mon côté je continue de chercher.
Merci par avance

[NEC14]

J'ai réussi à résoudre mon problème et avoir l'affichage que je souhaite.
Ce n'est certainement pas très joli, mais voici mon code. Je n'ai pas trouvé d'autres solutions qui fonctionnent. Si vous voulez y apporter une amélioration je suis preneur.
Merci

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
 
Private Sub WorkBook_Open()
Dim cmdb As CommandBar
Dim vRep As Integer
       barre_menus_perso
For Each cmdb In Application.CommandBars
Next cmdb
    UFbonj.Show
With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = False
    .CommandBars("Worksheet Menu Bar").Enabled = False
    .CommandBars("Standard").Visible = False
    .CommandBars("Formatting").Visible = False
    .CommandBars("Visual Basic").Visible = False
    .DisplayFormulaBar = True
    Sheets("Détail").Visible = False
    End With
With ActiveWindow
    .DisplayHeadings = False
    .Zoom = 100
    End With
Dim msg As String
Dim insuf As Boolean
 
    Application.ScreenUpdating = False
Test1
End Sub