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