Keyboard/Mouse click event

bhavesh78 · #1 (**permalink**) 01-20-05, 20:12

Can I write an event/procedure so that when user hits a key on keyboard or clicks any mouse key a message is displayed?

Thanks.

~BS

DavidCoutts · #2 (**permalink**) 01-25-05, 11:11

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Call msgboxtest
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Call msgboxtest
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call msgboxtest
End Sub

Sub msgboxtest()
    MsgBox "message"
    End
End Sub

Heres a start to this
you could also look at application.onkey

HTH
Dave

bhavesh78 · #3 (**permalink**) 01-26-05, 11:12

This one works. Also the following code makes the 'Save As' disabled in excel for all open workbooks. Is there a way to disable Save as only on one workbook.

Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save As...").Enabled = False

Thanks.

~BS

Internet Services

Web Development

Digital Marketing

Consumer Tech