[VBA] Masquer barres

Bonjour, je suis récemment passé d'Office 2000 à Office 2010 (Gros changement ^^) et je n'arrive pas à trouver l'équivalent de mon code VBA pour XL 2000 à 2010 :

Code:

---

1 2 3 4 5 6

Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = False Next CmdB Application.DisplayFormulaBar = False

---

Ce code me permettait de masquer les barres supérieurs afin de n'avoir qu'un simple Viewer.

Quel est le code équivalent qui me permettrait d'avoir le même résultat sous OFFICe 2010?


D'ailleurs peut on récupérer en VBA la version actuelle d'excel ?


Bonne journée

Salut,

Perso pour passer en mode viewer j'utilise ça sous xl2010

Code:

---

1 2 3 4 5 6 7

Application.CommandBars(1).Enabled = False Application.DisplayFullScreen = True Application.DisplayFormulaBar = False Application.DisplayStatusBar = False Application.ActiveWindow.DisplayHeadings = False Application.DisplayScrollBars = False ActiveWindow.DisplayWorkbookTabs = False

---

@+

Merci beaucoup fhtazman.


Voilà le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Version = Application.Version 'Récupère la version d'Excel       If Version = "9.0" Or Version = "10.0" Or Version = "11.0" Then 'Désactivation du menu Excel 2000 et 2003 Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = False Next CmdB Application.DisplayFormulaBar = False   ElseIf Version = "12.0" Or Version = "14.0" Then 'Désactivation du menu Excel 2007 et 2010 With Application .CommandBars(1).Enabled = False .ActiveWindow.DisplayHeadings = False .DisplayFormulaBar = False .DisplayStatusBar = False .DisplayFullScreen = True   End With End If

---