Bloquer touche Echap en plein écran

[capello12]

Bonsoir le forum,

Je cherche a bloquer la touche Echap, je m'explique
j'ai un classeur qui s'ouvre en plein écran j'usqu'a la pas de soucis
Par contre si j’appuie sur la touche Echap du clavier il me renvoie toutes les barres.
Comment enlever cette option si cela et possible.

Merci pour vos réponses.

 

[mapomme]

Re : Bloquer touche Echap en plein écran

Bonsoir capello12,

Un essai dans le fichier joint avec re-définition de la touche Esc et de la combinaison de touche Maj+Esc.
Esc -> Plein écran, Maj+Esc -> Ecran normal.

Il y a du code dans le module de ThisWorkbook:

Private Sub Workbook_Open()
  MesTouchesON
  Zoomer
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  MesTouchesOFF
  Dezoomer
End Sub

Private Sub Workbook_Activate()
  MesTouchesON
  Zoomer
End Sub

Private Sub Workbook_Deactivate()
  MesTouchesOFF
  Dezoomer
End Sub

et dans module1:

Sub MesTouchesON()
  ' touche Esc -> plein écran
  ' Maj + Touche Esc -> écran normal
  Application.OnKey "{ESCAPE}", "Zoomer"
  Application.OnKey "%{ESCAPE}", "DeZoomer"
End Sub

Sub MesTouchesOFF()
  Application.OnKey "{ESCAPE}", ""
  Application.OnKey "%{ESCAPE}", ""
End Sub

Sub Zoomer()
  Application.DisplayFullScreen = True
End Sub

Sub Dezoomer()
  Application.DisplayFullScreen = False
End Sub

 

[capello12]

Re : Bloquer touche Echap en plein écran

mapomme bonsoir,

Merci pour ta réponse rapide
Ca fonctionne nikel

Merci
@+