Bloquer touche Echap en plein écran

  • Initiateur de la discussion Initiateur de la discussion capello12
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

capello12

XLDnaute Nouveau
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.
 
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:
VB:
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:
VB:
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
962
Réponses
3
Affichages
577
Réponses
3
Affichages
704
Réponses
2
Affichages
925
Réponses
0
Affichages
1 K
Retour