VBA - Faire disparaître barre outils

VBA - Faire disparaître barre outils - Logiciels - Windows & Software

Marsh Posté le 29-12-2008 à 09:56:57    

Bjr à tous,  
 
Ma demande ne doit pas être bien compliqué mais je m'arrache les cheveux depuis quelques temps là dessus ...
Je voudrais via VBA faire disparaître la barre d'outils (Fichier/Edition/affichage/...) pour avoir un plein écran total puisque le full screen ne permet pas d'occulter cette barre !!!
 
Merci d'avance
Moinschergratuit

Reply

Marsh Posté le 29-12-2008 à 09:56:57   

Reply

Marsh Posté le 29-12-2008 à 12:12:02    

moinschergratuit a écrit :

Bjr à tous,  
 
Ma demande ne doit pas être bien compliqué mais je m'arrache les cheveux depuis quelques temps là dessus ...
Je voudrais via VBA faire disparaître la barre d'outils (Fichier/Edition/affichage/...) pour avoir un plein écran total puisque le full screen ne permet pas d'occulter cette barre !!!
 
Merci d'avance
Moinschergratuit


 
 
Please ?

Reply

Marsh Posté le 29-12-2008 à 12:45:38    

Bonjour
 
Sous quel outil ???
Word ? Excel ? Powerpoint ? etc.?
 
Cordialement


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 29-12-2008 à 14:13:11    

SuppotDeSaTante a écrit :

Bonjour
 
Sous quel outil ???
Word ? Excel ? Powerpoint ? etc.?
 
Cordialement


 
Sous Excel

Reply

Marsh Posté le 30-12-2008 à 16:14:40    

Ca aurait été pas mal aussi de donner la version...  
 
Pas sur que ca marche en 2007...

Code :
  1. Sub ModePleinEcran()
  2.     Application.CommandBars("Worksheet Menu Bar" ).Enabled = False
  3.     Application.DisplayFullScreen = True
  4. End Sub
  5. Sub ModeNormal()
  6. For Each barre In CommandBars
  7.     Application.CommandBars(barre.Index).Enabled = True
  8. Next
  9. Application.DisplayFullScreen = False
  10. End Sub


 
Cordialement

Message cité 1 fois
Message édité par SuppotDeSaTante le 30-12-2008 à 16:24:11

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 30-12-2008 à 17:13:42    

SuppotDeSaTante a écrit :

Ca aurait été pas mal aussi de donner la version...  
 
Pas sur que ca marche en 2007...

Code :
  1. Sub ModePleinEcran()
  2.     Application.CommandBars("Worksheet Menu Bar" ).Enabled = False
  3.     Application.DisplayFullScreen = True
  4. End Sub
  5. Sub ModeNormal()
  6. For Each barre In CommandBars
  7.     Application.CommandBars(barre.Index).Enabled = True
  8. Next
  9. Application.DisplayFullScreen = False
  10. End Sub


 
Cordialement


 
Merci beaucoup, il me manqualit cette 2ème ligne  
 
A Bientôt
Moinschergratuit

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed