Masquer barre d'état

Bonjour,

Je cherche à rendre mon fichier sous l'apparence d'une application en masquant ce qui est inutile.

Voici mon code qui me permet de masquer la barre de formule, la barre d'état, les onglets et les entêtes des lignes et des colonnes :

Dim enabled As Boolean
enabled = True

' visibilité onglets
ActiveWindow.DisplayWorkbookTabs = enabled

' Barre de formule
Application.DisplayFormulaBar = enabled

' barre d'état
Application.DisplayStatusBar = enabled

' entetes lignes et colonnes
ActiveWindow.DisplayHeadings = enabled

' ruban
If enabled Then
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
Else
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
End If

Ce qui me donne (voir fichier Captureexcelmasque.jpg ci-joint

Je voudrais que soit affiché seulement la ligne représentée sur le fichier CaptureExcelenregistrer.jpg ci joint

En fait je voudrais tout masquer comme sur la première image mais avoir le bouton raccourci "enregistrer"

ou créer un bouton "enregistrer"

Et/Ou créer un bouton qui appelle la procédure before close du workboob ci dessous :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False
  Application.DisplayAlerts = False

Dim FichierB As String
  FichierB = "CopieFH2019.xlsx"
  ThisWorkbook.SaveAs "Q:\Commun\5. Plannings\2019\" & FichierB, FileFormat:=xlOpenXMLWorkbook

End Sub

Pouvez-vous m'aider svp ?

Je vous remercie beaucoup

Cordialement

Bonjour,

à tester,

Application.DisplayFullScreen = True

Bonjour,

Pour cacher la barre d'état :

Application.DisplayStatusBar = False

Merci

sylvainpyc a écrit :

Bonjour,

Je cherche à rendre mon fichier sous l'apparence d'une application en masquant ce qui est inutile.

Voici mon code qui me permet de masquer la barre de formule, la barre d'état, les onglets et les entêtes des lignes et des colonnes :

Dim enabled As Boolean
enabled = True

' visibilité onglets
ActiveWindow.DisplayWorkbookTabs = enabled

' Barre de formule
Application.DisplayFormulaBar = enabled

' barre d'état
Application.DisplayStatusBar = enabled

' entetes lignes et colonnes
ActiveWindow.DisplayHeadings = enabled

' ruban
If enabled Then
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
Else
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
End If

Ce qui me donne (voir fichier Captureexcelmasque.jpg ci-joint

Je voudrais que soit affiché seulement la ligne représentée sur le fichier CaptureExcelenregistrer.jpg ci joint

En fait je voudrais tout masquer comme sur la première image mais avoir le bouton raccourci "enregistrer"

ou créer un bouton "enregistrer"

Et/Ou créer un bouton qui appelle la procédure before close du workboob ci dessous :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False
  Application.DisplayAlerts = False

Dim FichierB As String
  FichierB = "CopieFH2019.xlsx"
  ThisWorkbook.SaveAs "Q:\Commun\5. Plannings\2019\" & FichierB, FileFormat:=xlOpenXMLWorkbook

End Sub

Pouvez-vous m'aider svp ?

Je vous remercie beaucoup

Cordialement

Salut, ke cherche à faire comme toi. Tu colle cette macro ou? et comment fait tu pour qu'à l'ouverture du fichier, excel la prenne en compte et masque tout cela? Je débute en macros lol. Merci

Salut, ke cherche à faire comme toi. Tu colle cette macro ou? et comment fait tu pour qu'à l'ouverture du fichier, excel la prenne en compte et masque tout cela? Je débute en macros lol. Merci

Bonjour,

copie les macro suivante sur la page code ThisWorkbook

Private Sub Workbook_Open()
Application.DisplayStatusBar = False
End Sub

Private Sub Workbook_Activate()
Application.DisplayStatusBar = False
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayStatusBar = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayStatusBar = True
End Sub