Protecting a cell from selection except with mouse double-click

[fraz627]

I would like to Protect cell from selection except with a mouse double click event. I would also require to return the cell address and value.
I do not need to do anything else with the cell. there will be multiple cell like this

Any suggestions

 

[Legacy 143009]

Protect the sheet. Uncheck "Select locked cells." Set a password. Then use this macro:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  ActiveSheet.Unprotect "password"
  Target.Locked = False
  Target.Select
  MsgBox Target.Address & ": " & Target.Value
  Target.Locked = True
  ActiveSheet.Protect "password"
End Sub

Or you can try a shorter code if you don't want to select the cell:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  MsgBox Target.Address & ": " & Target.Value
End Sub