Click en Celda

Puedes pegar el siguiente código en el módulo de la hoja (click derecho sobre su etiqueta->ver código):


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub

Dim varEntrada As Variant

varEntrada = Application.InputBox(prompt:="Ingrese el valor para la celda A1:")
If varEntrada = False Then
Exit Sub
Else
'
'Líneas para la comprobación
'
'si lo introducido es válido... (if...
Me.Unprotect password:="TuPassword"
Target = varEntrada
Me.Protect password:="TuPassword"
'end if
End If
End Sub


En este caso, la celda "monitorizada" sería la A1.
La parte del código para la comprobación está sin desarrollar porque no sé qué es lo que tienes que comprobar.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"MN" escribió en el mensaje news:%

Hola a Todos,

Como puedo hacer que cuando uno hace un Click en una celda me salga un
cuadro de dialogo y ingrese el Valor en el cuadro y se guarde en dicha
celda.
Existe algun problema si el libro o hoja esta bloqueada para hacer esto.??
Y por ultimo, se puede hacer una comprobacion del dato ingresado antes de
guardarlo en la celda???


Saludos,
Muchas Gracias,
MN