Microsoft 365 raccourci [ALT] + [F8] - rendre sans effet

Usine à gaz · 6 Novembre 2021

Bonjour le Forum

Je voudrais "neutraliser " raccourci [ALT] + [F8]

J'ai pas mal cherché mais je ne trouve pas !
Quelqu'un aurait la solution ?
Merci d'avance
Amicalement,
lionel,

Compte Supprimé 979 · 6 Novembre 2021

Re
Salut Chris401

Lionel, tu me feras toujours rire ... depuis le temps

Sinon voici pour la combinaison de touche

La solution de Chris401 est la mieux

@+

Usine à gaz · 7 Novembre 2021

Bonjour l Forum

La solution de Bruno fonctionne nickel mais ...
le message qui s'affiche est le suivant :

Y'a pas moyen de lui faire afficher par exemple :
"[ALT] + [F8] interdit pendant l'utilisation de ce fichier"
Ce serait plus approprié ?

Personne n'a une idée ?
Peut-être qu'il n'y a pas de solution ? snifff

Merci à vous,
lionel,

Bernard_XLD · 7 Novembre 2021

Bonjour le fil, le forum

Comme l'a fait Bruno, ajoutes la sub Interdit dans un module standard pour que la combinaison de touches puisse la trouver

VB:

Sub Interdit()
  MsgBox "Désolé, c'est désactivé !", vbInformation, "INTERDIT..."
End Sub

Cordialement, @+

Bernard_XLD · 7 Novembre 2021

re,

et si tu n'as pas de module standard et que tu ne veux pas en ajouter (avec toi, on peut s'attendre à tout ) tu peux la placer dans un module de feuille et l'appeler comme suit

Bien cordialement, @+

VB:

Private Sub Workbook_Open()
  Application.OnKey "%{F8}", ThisWorkbook.Worksheets("Feuil1").CodeName & ".Interdit"
End Sub

ou comme cela

VB:

Private Sub Workbook_Open()
  Application.OnKey "%{F8}", "Feuil1.Interdit"
End Sub

Usine à gaz · 7 Novembre 2021

Yeahou à dit:
re,

et si tu n'as pas de module standard et que tu ne veux pas en ajouter (avec toi, on peut s'attendre à tout ) tu peux la placer dans un module de feuille et l'appeler comme suit

Bien cordialement, @+

VB:

Private Sub Workbook_Open() Application.OnKey "%{F8}", ThisWorkbook.Worksheets("Feuil1").CodeName & ".Interdit" End Sub

Merci Yeahou,
C'est très bien aussi

Microsoft 365 raccourci [ALT] + [F8] - rendre sans effet

Usine à gaz

XLDnaute Barbatruc

Compte Supprimé 979

Usine à gaz

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Discussions similaires