Discussion :

[soubichat]

Bonjour,

J'ai voulu tester un code trouvé sur ce forum :

Code :

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

1
2
3
4
dim cmdb as commandbar
for each cmdb in application.commandbars
cmdb.enabled=false
next cmdb

résultat, j'ai bien obtenu un plein écran total mais en contrepartie, une barre d'icône est apparue et je n'arrive pas à la supprimer.
En mode écran normal, elle est invisible. En mode plein écran elle est visible : sans icônes, sans titre et sans bouton "fermer". Quand on fait "personnalisation", il est impossible de décocher la barre et le bouton "supprimer" est désactivé.

Quelqu'un a-t-il déjà eu le même problème ?
Comment supprimer la barre ?

[soubichat]

Bon, à force de chercher j'ai trouvé une demi solution qui me satisfait :

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
    Dim CmdB1 As CommandBar
    For Each CmdB1 In Application.CommandBars
        If CmdB1.Name = " " Then CmdB1.Protection = msoBarNoProtection
    Next CmdB1
End Sub

La barre a de nouveau un bouton qui permet de la fermer.
Par contre, il est toujours impossible de la supprimer de la liste des barres, mais l'essentiel était quand même de la faire disparaître de mon écran.