No permitir cambios a celdas con datos

Podrias utilizar codigo VBA como el de abajo. Tienes q hacer clic derecho
sobre el nombre de la hoja en una de las pestanas en la parte de abajo de la
ventana de Excel, seleccionar Ver Codigo y, cuando se abra el Editor VBA,
copiar el macro de abajo la ventana de la derecha. Este codigo protege la
hoja sin contrasena, si necesitas poner una, tendras q cambiar la primera
linea del macro. Tambien tendras que poner la referencia correspondiente al
rango q se quiere proteger en la linea 5 del macro. Para q esta proteccion
funcione los macros deben estar habilitados.

Saludos,
KL

'--Inicio Codigo--
Const Contrasena = "" '<=Tu contrasena

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MiRango As Range
Dim RangoProtegido As Range
Set MiRango = Range("A1:A10")
Set RangoProtegido = Intersect(MiRango, Target)

If Not RangoProtegido Is Nothing Then
'Evita seleccion de celdas multiples.
If Target.Count > 1 Then ActiveCell.Select
ActiveSheet.Unprotect Contrasena
If IsEmpty(ActiveCell) Then
ActiveCell.Locked = False
Else
ActiveCell.Locked = True
End If
ActiveSheet.Protect Contrasena
End If
End Sub
'--Fin Codigo--



"Jaime Javier Hernández M." <jaimejavier(no-spam)@hotmail.com> wrote in
message news:

Hola a todo el Grupo:
Quisiera que me ayudaran con esto:
He creado una hoja de excel (de officce 2000) en la que quiero que otros
usuarios capturen Datos (numeros) en la primera columna y quiero que solo
se puedan capturar los datos en las celdas que no tienen datos (Vacias).
es
decir, que una vez que la celda ya ha sido capturada ya no pueda ser
modificada
Alguna idea?
Gracias de antemano
Jaime J
Puebla . Mex.

KL:
Gracias por tu respuesta, me costo un poco de trabajo, pero al fin funcionó
Jaime

"KL" <lapink2000(at)hotmail.com> escribió en el mensaje
news:

Podrias utilizar codigo VBA como el de abajo. Tienes q hacer clic derecho
sobre el nombre de la hoja en una de las pestanas en la parte de abajo de

la

ventana de Excel, seleccionar Ver Codigo y, cuando se abra el Editor VBA,
copiar el macro de abajo la ventana de la derecha. Este codigo protege la
hoja sin contrasena, si necesitas poner una, tendras q cambiar la primera
linea del macro. Tambien tendras que poner la referencia correspondiente

al

rango q se quiere proteger en la linea 5 del macro. Para q esta proteccion
funcione los macros deben estar habilitados.

Saludos,
KL

'--Inicio Codigo--
Const Contrasena = "" '<=Tu contrasena

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MiRango As Range
Dim RangoProtegido As Range
Set MiRango = Range("A1:A10")
Set RangoProtegido = Intersect(MiRango, Target)

If Not RangoProtegido Is Nothing Then
'Evita seleccion de celdas multiples.
If Target.Count > 1 Then ActiveCell.Select
ActiveSheet.Unprotect Contrasena
If IsEmpty(ActiveCell) Then
ActiveCell.Locked = False
Else
ActiveCell.Locked = True
End If
ActiveSheet.Protect Contrasena
End If
End Sub
'--Fin Codigo--



"Jaime Javier Hernández M." <jaimejavier(no-spam)@hotmail.com> wrote in
message news:
> Hola a todo el Grupo:
> Quisiera que me ayudaran con esto:
> He creado una hoja de excel (de officce 2000) en la que quiero que

otros

> usuarios capturen Datos (numeros) en la primera columna y quiero que

solo

> se puedan capturar los datos en las celdas que no tienen datos

(Vacias).

> es
> decir, que una vez que la celda ya ha sido capturada ya no pueda ser
> modificada
> Alguna idea?
> Gracias de antemano
> Jaime J
> Puebla . Mex.
>
>