Application.SendKeys "%{F4}"

[Evelynetfrancois]

Bonjour et meilleurs voeux à tous
voici ma question..
Peut on ecrire sur une USF
si Application.SendKeys "%{F4}" then application.quit
si oui comment?
Merci d'avance pour vos solutions
E et F

 

[Pierrot93]

Re : Application.SendKeys "%{F4}"

Bonjour,

essaye peut être ceci, à tester, bien que perso j'aime pas trop "l'application.quit", à utiliser dans le module de l'usf :

Option Explicit
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Application.Quit
End Sub

bon après midi
@+

 

[Dranreb]

Re : Application.SendKeys "%{F4}"

Bonsoir.
Là, pour moi votre question est incompréhensible.
Mais vérifiez quand même si ce que vous voulez faire n'est pas ce que permet une UserForm_KeyDown
ou TextBox1_KeyDown
Bonsoir Pierrot93.
À+

 

[JNP]

Re : Application.SendKeys "%{F4}"

Bonjour E & F ,
On ne peut pas tester une action ...
Par contre tu peux intercepter l'événement KeyDown du contrôle

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift And KeyCode = 115 Then
MsgBox KeyCode & " " & "Majuscule"
End If
End Sub

Mais il va falloir, soit le faire pour tous tes contrôles, soit passer par un module de classe ...
Bon courage
Ajout : Salut Pierrot, Bernard

 

[Evelynetfrancois]

Re : Application.SendKeys "%{F4}"

Merci pierrot93 Dranreb JNP pour vos reponses
je vous detail le contexte ça vous parlera mieux je pense

A l’ouverture de mon classeur la page d’accueil est en faite une usf
Celle-ci est indéplaçable et ne contient pas de croix rouge
En théorie seul un bon code saisi dans un textbox ferme usf et donne donc accès aux feuilles du classeur
Tout fonctionne à merveille sauf qu’un malheureux « ALT f4 » ferme également l’ usf
C est donc cette manip que je voulais court-circuiter
bonne soirée
E et F

 

[Denis]

Re : Application.SendKeys "%{F4}"

Bonjour le fil et bonne année
ci-dessous une solution??
Comment empêcher la fermeture d'un userform avec Alt F4 ?

Private sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
end sub

Auteur : Laurent Longre

Bon courage et à +
Denis

 

[JNP]

Re : Application.SendKeys "%{F4}"

Re ,
Dans ThisWorkbook

Private Sub Workbook_Open()
Application.OnKey "%{F4}", ""
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "%{F4}"
End Sub

Bonne suite

 

[Evelynetfrancois]

Re : Application.SendKeys "%{F4}"

Merci pour tout
la proposition de Denis remplie parfaitement la fonction
le ALT F4 devient bien inefficace
bonne soirée a tous
E et F

 

[Staple1600]

Re : Application.SendKeys "%{F4}"

Bonsoir

On peut toujours tuer le processus Excel.exe et donc fermer l'userform.
C'est brutal mais cela le fermera.