XL 2016 Masquer onglet outil

Olivier Desilets

XLDnaute Nouveau
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
 

Lone-wolf

XLDnaute Barbatruc
Bonjour Olivier, le Forum :)

Ceci masque tout objet de la feuille.

VB:
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é.
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum

@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)
 
Dernière édition:

Discussions similaires