Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect
If Target.Comment Is Nothing Then
Target.AddComment
SendKeys "m"
Else
SendKeys "m"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect
End Sub