Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Désactiver le raccourci Alt-F11

Désactiver le raccourci Alt-F11

3 réponses
Avatar
ManBas
Bonjour les amis,
Est-il possible de désactiver l'accés Alt-F11 (et de le réactiver?)
Merci pour vos réponses.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Alain CROS
Bonjour.

Sub Desac()
Application.OnKey "%{F11}", ""
End Sub
Sub React()
Application.OnKey "%{F11}"
End Sub

Alain CROS

"ManBas" a écrit dans le message de news:
| Bonjour les amis,
| Est-il possible de désactiver l'accés Alt-F11 (et de le réactiver?)
| Merci pour vos réponses.
|
|
Avatar
Jacques93
En complément de la réponse d'Alain CROS, pour désactiver aussi le choix
du menu (Outils => Macros => VBE ...)

Sub DisableAltF11(bDisable As Boolean)
Dim myMenu As CommandBar

If bDisable Then
Application.OnKey "%{F11}", ""
Set myMenu = Application.CommandBars("Worksheet Menu Bar")
myMenu.Controls(6).Controls(15).Controls(4).Visible = False
Else
Application.OnKey "%{F11}"
Set myMenu = Application.CommandBars("Worksheet Menu Bar")
myMenu.Controls(6).Controls(15).Controls(4).Visible = True
End If
End Sub

OK sous Excel 2003 (à adapter pour les autres versions, je pense) .


Bonjour.

Sub Desac()
Application.OnKey "%{F11}", ""
End Sub
Sub React()
Application.OnKey "%{F11}"
End Sub

Alain CROS

"ManBas" a écrit dans le message de news:
| Bonjour les amis,
| Est-il possible de désactiver l'accés Alt-F11 (et de le réactiver?)
| Merci pour vos réponses.
|
|





--
Cordialement,

Jacques.

Avatar
ManBas
Merci +++ à vous deux. Dans excelabo je n'avais trouvé que "tous" les
racourccis clavier.
A bientôt.

"Jacques93" a écrit dans le message de
news: %23F6zN%
En complément de la réponse d'Alain CROS, pour désactiver aussi le choix
du menu (Outils => Macros => VBE ...)

Sub DisableAltF11(bDisable As Boolean)
Dim myMenu As CommandBar

If bDisable Then
Application.OnKey "%{F11}", ""
Set myMenu = Application.CommandBars("Worksheet Menu Bar")
myMenu.Controls(6).Controls(15).Controls(4).Visible = False
Else
Application.OnKey "%{F11}"
Set myMenu = Application.CommandBars("Worksheet Menu Bar")
myMenu.Controls(6).Controls(15).Controls(4).Visible = True
End If
End Sub

OK sous Excel 2003 (à adapter pour les autres versions, je pense) .


Bonjour.

Sub Desac()
Application.OnKey "%{F11}", ""
End Sub
Sub React()
Application.OnKey "%{F11}"
End Sub

Alain CROS

"ManBas" a écrit dans le message de news:

| Bonjour les amis,
| Est-il possible de désactiver l'accés Alt-F11 (et de le réactiver?)
| Merci pour vos réponses.
|
|





--
Cordialement,

Jacques.