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 VBA et Alt F4

VBA et Alt F4

3 réponses
Avatar
José
Bonjour,

Quelqu'un connaitrait il un moyen pour empêcher la fermeture d'une fenêtre
avec Alt F4 ?

Merci d'avance.
José
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
Jacques
Bonjour,

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = 1
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Valeurs possible pour CloseMode :

vbFormControlMenu 0
vbFormCode 1
vbAppWindows 2
vbAppTaskManager 3


Bonjour,

Quelqu'un connaitrait il un moyen pour empêcher la fermeture d'une fenêtre
avec Alt F4 ?

Merci d'avance.
José






--
Cordialement,

Jacques.

Avatar
LSteph
Bonjour,

Application.OnKey "%{F4}", ""

cela peut se mettre même dans
le thisworkbook de Perso.xls
ainsi
Private Sub Workbook_open()
Application.OnKey "%{F4}", ""
End sub

Mais ...heureusement ou hélas.. il reste d'autres moyens de sortir.. et de
fermer la fenêtre de l'extérieur
voir de désactiver la procèdure...

'lSteph
"José" a écrit dans le message de news:
42481cfc$0$30458$
Bonjour,

Quelqu'un connaitrait il un moyen pour empêcher la fermeture d'une fenêtre
avec Alt F4 ?

Merci d'avance.
José




Avatar
LSteph
...je t'ai dit où était l'accelérateur mais pas le frein:
dans module standard:

Sub remetaltf4()
Application.OnKey "%{F4}"
end sub

"José" a écrit dans le message de news:
42481cfc$0$30458$
Bonjour,

Quelqu'un connaitrait il un moyen pour empêcher la fermeture d'une fenêtre
avec Alt F4 ?

Merci d'avance.
José