Passer en plein ecran

Bonjour

Je suis à la recherche d'un code vba pour passer en plein écran sans avoir le possibilité de revenir en écran normal.

Si vous avez une solution je suis preneur

Crdt

Bonjour

Private Sub Workbook_Open()
  Application.DisplayFullScreen = True
End Sub

A+ François

Bonjour François

Merci ,c'est le seul moyen que j'avais trouvé , le hic avec ce code c'est que l'on peut revenir a un écran normal

en cliquant sur les 2 carrés en haut à droite de excel

Crdlt

Bonjour

Merci ,c'est le seul moyen que j'avais trouvé , le hic avec ce code c'est que l'on peut revenir a un écran normal

en cliquant sur les 2 carrés en haut à droite de excel

Non avec les 2 carrés mais Oui en appuyant sur la touche ESC

Crdlt

Bonjour Dan

Merci pour escape ,avec office 2021 sur les 2 carrés je reviens en affichage normal

Crdlt

Re

Vous parliez de "Hic,....."

Ce qu'il faut savoir c'est si vous voulez avoir la possibilité de repasser en mode normal ou non

Raison pour laquelle je vous disais d'appuyer sur la touche Esc

Pour annuler la touche esc

Private Sub Workbook_Open()
  Application.DisplayFullScreen = True
  Application.OnKey "{ESC}", "" 
End Sub
Private Sub Workbook_BeforeClose()
   Application.OnKey "{ESC}"
  Application.DisplayFullScreen = false
end sub

A+ François

Pour empêcher la minimisation de la feuille....

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.OnKey "{ESC}"
  Application.DisplayFullScreen = False

End Sub

Private Sub Workbook_Open()
  Application.DisplayFullScreen = True
  Application.OnKey "{ESC}", ""
End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Excel.Window)
  Application.DisplayFullScreen = True
End Sub

A+ François

Bonsoir,

moi j'ai ceci :

@ bientôt

LouReeD

Bonsoir LouReed

Merci exactement ce que je cherche

Bonne soirée