Pb arrêt de plein ecran lancer par macro

[Yaloo]

Bonjour à tous,

A l'ouverture d'un fichier, j'ouvre une macro "auto-open" qui me mets le mode plein écran, avec Application.DisplayFullScreen = True.

Mais si l'on fait "esc" cela m'enlève le mode plein écran, mais surtout cela me bloque tout, je suis obliger de fermer ma fenêtre par la croix en haut à droite.

Que faut-il faire pour rester en mode plein écran même sous l'action de "esc"?

Merci de vos réponses.

 

[gilbert_RGI]

Re : Pb arrêt de plein ecran lancer par macro

Bonjour

mettre ceci dans le Private Sub Workbook_Open()

Application.OnKey "{ESC}", "AideMoi"

et dans un module standard

Sub AideMoi()
MsgBox "vous ne pouvez pas employer cette touche"
End Sub

par exemple 😱

relancer le classeur pour que les modifs prennent effet

 

[Yaloo]

Re : Pb arrêt de plein ecran lancer par macro

Bonjour gilbert_RGI,

Merci de ton aide et de ta rapidité, cela fonctionne parfaitement.

A+