Proteger solo una celda con contraseña sin "proteger hoja"

Sigue las Instrucciones para poner la macro en worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(mn)
4. Del lado derecho copia la macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.Dam
If Not Intersect(Target, Range("J1")) Is Nothing Then
    clave = InputBox("Captura el password para seleccionar la celda", "PASSWORD")
    If clave <> "123" Then
        MsgBox "Password invalido", vbExclamation, "PASSWORD"
        Range(Target.Address).Offset(1, 0).Select
    Else
    End If
End If
End Sub

Regresa a excel y prueba seleccionando la celda J1

Saludos. Dam

Si es lo que necesitas.