Stoppe en kørende vba application med en f-tast?

Hejsa..
Her er koden du spørger efter ;)

Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Is = "112" 'F1
MsgBox "F1"
Case Is = "113" 'F2
MsgBox "F2"
Case Is = "114" 'F3
MsgBox "F3"
Case Is = "115" 'F4
MsgBox "F4"
Case Is = "116" 'F5
MsgBox "F5"
Case Is = "117" 'F6
MsgBox "F6"
Case Is = "118" 'F7
MsgBox "F7"
Case Is = "119" 'F8
MsgBox "F8"
Case Is = "120" 'F9
MsgBox "F9"
Case Is = "121" 'F10
MsgBox "F10"
Case Is = "122" 'F11
MsgBox "F11"
Case Is = "123" 'F12
MsgBox "F12"
End Select
End Sub

Her har jeg sat F1-12 ind, så kan du jo selv slette dem du ikk vil bruge ;)

Nu ved jeg ikke om excel kan bruge API.. men ellers så prøv..


Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()

  ' 121 = [F10]
  Do While GetAsyncKeyState(121) = 0
    DoEvents
    '-------------------------------
    ' Her fra køre du bare din kode.
    '-------------------------------
   
   
    '-------------------------------
  Loop

End Sub

vbKeyF10

e.g

'Enter the following in the Forms KeyDown event procedure

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF10 Then
MsgBox "i just hit the f10 key"
End If
End Sub

Undskyld jeg ikke har deltaget men jeg har ligget syg.
Madsen