Salut a tous
J'aimerais savoir si il existe une autre façon de masquer les onglets outils d'excel mise a part ces deux options:
Option 1
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Tester mais bug une fois sur deux sans explication j'aime pas trop
et
Option 2
.DisplayFullScreen = True
Fonctionne bien seleument lorsque l'on click sur minimise les onglets réaparaissent
Merci a l'avance
Sub masquer()
Dim ws As Worksheet
With Application
.ScreenUpdating = False
.CommandBars("Worksheet Menu Bar").Enabled = True
.CommandBars("Standard").Visible = True
.CommandBars("Formatting").Visible = False
.CommandBars("drawing").Visible = False
.DisplayFormulaBar = False
.DisplayFullScreen = True
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
On Error Resume Next
For Each ws In Worksheets
ws.Visible = False
Next
End Sub
Sub afficher()
Dim ws As Worksheet
With Application
.CommandBars(1).Enabled = True
.CommandBars(1).Visible = True
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayHeadings = True
.DisplayWorkbookTabs = True
End With
On Error Resume Next
For Each ws In Worksheets
ws.Visible = True
Next
End Sub
J'ai aussi fait une recherche sur le Net(Forums Anglo-Saxon), apparemment il n'y a que les deux macros que tu as montré.
@Olivier Desilets
J'ai beau avoir mes lunettes sur le nez, je ne vois pas d'onglet nommé Outils sur le ruban (d'Excel 2013)
[aparté]
Maintenant si j'étais moi, j'irai dire deux mots au gars ou la demoiselle qui veut m'obliger à travailler avec un Excel amputé.
Si tout est masqué, comment je fais pour appliquer un filtre, insérer un TCD etc...
Heureusement quand je serai moi, je sais que j'ouvre toujours un classeur sans activer les macros et que je commente toute entrave à mon utilisation d'Excel.
Viva Excela libre
Pulque mescal y tequila
Cuba libre y cerveza
Hombre ! Que viva Mejico
Borracho ! Como no ?
[/aparté]
[le petit plus taquin du samedi matin]
Néanmoins si voulez prendre le risque de voir poindre la grosse veine sur votre tempe (signe d'un énervement certain))
Exécutez donc cette macro
VB:
Sub LeMasqueSansLaPume()
'CommandBars.ExecuteMso "HideRibbon"
End Sub
[/le petit plus taquin du samedi matin]
NB: Cette macro (que je déconseille aux non-initiés) doit fonctionner à partir d'Excel 2010.
Elle produira le même effet que le code de Lone-Wolf ou l'option 1 d'Olivier, avec le petit côté énervant en plus
(Oui car si vous ne savez remettre tout dans l'ordre, vous vos énerverez très vite!
Mais je vous ai prévenu depuis le moment où je parle de votre grosse veine )
PS; Evidemment les ceusses qui voudraient tester auront pris soin d'ôter le ' en début de ligne
(que j'ai mis là sciemment pour éviter une inflation de grosses veines tambourinantes sur les tempes des XLDnautes)