Left and Right Mouse Click Event

**PcMax** · 10-24-2011, 11:02 PM

Hallo

In Excel2003 VBA can I catch the mouse before running:

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

**Excel Fox** · 10-24-2011, 11:05 PM

Yes you can using

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Cancel = True
    MsgBox "Double-Clicked"
    
End Sub

OR

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    Cancel = True
    MsgBox "Right-Clicked"
    
End Sub

**PcMax** · 10-24-2011, 11:43 PM

Hallo
Let's analyze:

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    Cancel = True
    MsgBox "Right-Clicked"
    
End Sub

In a paper without a password by running the code occur at least two possibilities.
Example: I make right click on a cell and activate the macro, but if I were on an image this command does not work.
You can disable the selection image forever without protect the sheet?

**Excel Fox** · 10-24-2011, 11:48 PM

To disable the selection of image, you will have to protect the sheet. If you want users to be able to edit the cells, you can unlock the cells, and then protect the sheet.

**PcMax** · 10-25-2011, 12:18 AM

Hallo

This is an example of code to enable I can not enter password

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Application.CommandBars.FindControl(ID:=130).Execute
end sub

I would like to draw a line on the sheet and images

**Excel Fox** · 10-25-2011, 01:41 AM

You can protect the sheet through code and then allow to draw a line through code. To do this, protect the sheet(s) by

Code:

Sheet1.Protect UserInterfaceOnly:=True, Password:="xyz"

**PcMax** · 10-25-2011, 06:05 PM

Meanwhile, thank you for the answers, but if I run RightClick on protected sheet over an image the event does not Run.
Here we are again as the first

**Excel Fox** · 10-26-2011, 06:44 AM

Why do you want to right-click? You can use a normal click, and the assigned macro will run even if the sheet is protected. And if you want the shapes also to be unprotected, then use

Code:

Sheet1.Protect UserInterfaceOnly:=True, Password:="xyz", DrawingObjects:=False

**PcMax** · 10-27-2011, 06:31 PM

Hallo
Still to solve the problems of selection wonder how the subject should be written the following code:

Code:

Sub Test()
    ActiveSheet.Shapes("Picture 309").Select        'I select the object
    ActiveSheet.Shapes("Picture 309").Deselect      'Here I would like to deselect the object
End Sub

Obviously, the code does not work ...

**Excel Fox** · 10-27-2011, 08:32 PM

Code:

Sub Test()
    ActiveSheet.Shapes("Picture 309").TopLeftCell.Select
End Sub

Thread: Left and Right Mouse Click Event

Thread Tools

Search Thread

Display

Left and Right Mouse Click Event

Similar Threads

Set Adjust A Button Top Left Position Programmatically

Sort data sheet by right_click of mouse

Align all text in Left and all numeric values in center in a given range using vba.

Create a Titlebar less form which can be dragged by Mouse

Get the group of shapes properties(height, width, top, left, right, bottom)

Bookmarks

Bookmarks

Posting Permissions