protected sheet with double click event in a column results in exclamation pop-up box... how to remove this?

[OTOTO]

I have a protected sheet with double click event:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address Like "$N*" Then
currRow = Target.Cells(1, 1).row
Set currSheet = Target.Worksheet
Load frmform1
frmform1.Show
End If
End Sub

Double clicking opens up the form but it also opens up the following message box:

Exclamantion Pop Up Box: "The cell or chart that you are trying to change is protected and therefore read-only.
To modify a protected cell or chart, first remove protection....."

Is there a way to keep the sheet protected and eliminate this popup box from rearing its ugly head?

 

[OTOTO]

I was able to solve this problem by changing the event to: Private Sub Worksheet_SelectionChange(ByVal Target As Range) etc.
In this manner the user single clicks on the event cell and voila