Kód: Vybrat vše
Sub Stiskklavesy()
Application.OnKey "{ESC}", "Procedura"
End Sub
Sub Procedura()
MsgBox "Klávesa byla stisknuta."
End Sub
Kód: Vybrat vše
Sub Stiskklavesy()
Application.OnKey "{ESC}", "Procedura"
End Sub
Sub Procedura()
MsgBox "Klávesa byla stisknuta."
End Sub
Kód: Vybrat vše
Private Sub Workbook_Activate()
Application.OnKey "ESC", "Procedura"
End Sub
Kód: Vybrat vše
Private Sub Workbook_Activate()
Application.OnKey "{ESC}", "Procedura"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{ESC}"
End Sub
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 9 hostů