Cacher le ruban Excel même après réduction du fichier

MyMy1988 · 28 Mars 2019

Bonjour, je recherche un code qui permet de masquer le ruban excel et les contours du fichier même en cas de réduction du fichier .

Actuellement j'ai un code qui permet de masquer le ruban Excel à l'ouverture du fichier mais dès que je le réduis puis le réagrandi le ruban et les contours se réactivent !

Voici le code :

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
'--- active ce classeur, met en plein écran ---
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub

Pouvez-vous m'aider s'il vous plait

Merci d'avance

Philippe_JOCHMANS · 29 Mars 2019

Bonjour

Essaies de mettre aussi ton code sur l'évènement WindowResize pour voir.

C'est juste une idéé pas testée.

Philippe

bof · 29 Mars 2019

Bonjour,
Utilise ce modèle
A+

Philippe_JOCHMANS · 29 Mars 2019

Bonjour,

Je trouve que dans ce cas ce serait mieux de mettre le code utilisé qu'un classeur joint.
Pensez aux personnes qui ne peuvent télécharger des classeurs exemples en raison des restrictions à leur travail.

Philippe

bof · 29 Mars 2019

Philippe_JOCHMANS à dit:
Je trouve que dans ce cas ce serait mieux de mettre le code utilisé qu'un classeur joint.

En fait ce n'est pas vraiment un solution VBA : Le classeur est édité dans Custom UI Editor et n'offre aucun menu.
Il est conçu pour une appli "propriétaire" et ne permet que la sauvegarde. (oupa...)
Seul subsistent quelques menus faciles à inhiber. (Cells...) et quelques raccourcis Windows.
Nécessité de le programmer et de l'éditer depuis VBA...
Le code :

VB:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.DisplayFullScreen = False
End Sub
Private Sub Workbook_Open()
   Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_WindowResize(ByVal Wn As Window)
   Application.DisplayFullScreen = True
End Sub

A+

Cacher le ruban Excel même après réduction du fichier

MyMy1988

XLDnaute Nouveau

Philippe_JOCHMANS

XLDnaute Junior

bof

XLDnaute Occasionnel

Pièces jointes

Philippe_JOCHMANS

XLDnaute Junior

bof

XLDnaute Occasionnel

Discussions similaires