Plein écran et désactiver (minimize/restor down)

[Imy55]

Bonjours,
Voici un fichier avec une macro qui permet l’affichage en plein écran. Mais lorsque j’utilise l’option réduire et je ré agrandit la feuille la macro se désactive.
Je pense que la solution est de désactiver les boutons « réduire » « agrandir » (minimize/Restor down) et ne laisser que « fermer ». Mais je sais pas comment programmer cette astuce.
Merci d’avance
Cordialement
Imy55

 

[Imy55]

Re : Plein écran et désactiver (minimize/restor down)

Prière de me répondre j'en ai vraiment besoin.

 

[Hippolite]

Re : Plein écran et désactiver (minimize/restor down)

Bonjour,

Private Sub Workbook_Activate()
    PleinEcran
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    SupprimPleinEcran
End Sub

Private Sub Workbook_Deactivate()
    SupprimPleinEcran
End Sub

Private Sub Workbook_Open()
    PleinEcran
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    PleinEcran
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    SupprimPleinEcran
End Sub

Public Sub PleinEcran()
    Application.DisplayScrollBars = False
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayFormulas = False
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayWorkbookTabs = False
    ActiveWindow.DisplayHeadings = False
End Sub

Public Sub SupprimPleinEcran()
    Application.DisplayScrollBars = True
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayFormulas = True
    ActiveWindow.DisplayGridlines = True
    ActiveWindow.DisplayWorkbookTabs = True
    ActiveWindow.DisplayHeadings = True
End Sub

A+

 

[Imy55]

Re : Plein écran et désactiver (minimize/restor down)

Merci "Hippolite" pour ta réponse, je l’avais testé mais le problème réside toujours. En fait on peut réduire et minimiser la taille de la feuille ce qui désactive la macro après.
Merci en tout cas le geste qui compte ^^

 

[Hippolite]

Re : Plein écran et désactiver (minimize/restor down)

Re,
Tu devrais trouver ton bonheur ici :
BARRE-TITRE-FENETRE-AVEC-SON-PROPRE-DESIGN
A+