Application.SendKeys "%{F4}"

Pierrot93

XLDnaute Barbatruc

• 2 Janvier 2012

• #2

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 :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Janvier 2012

• #3

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.
À+

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 2 Janvier 2012

• #4

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

Code:

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

 

Dernière édition: 2 Janvier 2012

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 2 Janvier 2012

• #5

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

 

Vote positif 0 Vote négatif

D

Denis

Guest

• 2 Janvier 2012

• #6

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

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 2 Janvier 2012

• #7

Re : Application.SendKeys "%{F4}"

Re ,
Dans ThisWorkbook

Code:

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

Bonne suite

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 2 Janvier 2012

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2012

• #9

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.

 

Vote positif 0 Vote négatif