Masquer le ruban sur Excel 2010

[olggapt]

Bonjour à tous !

J'ai récupéré sur le forum un code permettant de masquer le ruban automatiquement quand il est placé à l'ouverture du workbook 😎 :

If Application.CommandBars.Item("Ribbon").Height > 100 Then
    Application.SendKeys "^{F1}"
End If

Or, si ce code fonctionne parfaitement sur mon disque dur, cela se complique quand le fichier est ouvert depuis un serveur : Excel ne semble pas reconnaître le caractère en forme d'accent circonflexe car il ouvre l'aide F1... sans masquer le ruban ! 😡

Une idée ?

 

[Roland_M]

Re : Masquer le ruban sur Excel 2010

bonjour,

Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFullScreen = True
End Sub

Sub ShowRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFullScreen = False
End Sub

 

[olggapt]

Re : Masquer le ruban sur Excel 2010

je vais essayer ça
Merci !