Ayuda!

Hola Isrrael,

Si las celdas desprotegidas forman un rango unico de celdas contiguas,

Sub test()
Activesheet.ScrollArea = "A5:D10"
End Sub

Saludos,
KL


"Isrrael" wrote in message

> Hola a toda la comunidad!!,
> Espero que hayan tenido una Excelente Navidad!!! y quiero desearles de

> vez un feliz Año Nuevo!!!
>
> Como puedo hacer para que, en varias hojas, donde sólo es posible

> en celdas desprotegidas, se pueda hacer que una vez terminado de

> la primer celda, esta automáticamente me mande a la siguiente celda
> escribible o desprotegida. El libro está protegido con contraseña en

> 2000. El desplazamiento de celdas debería ser con TAB o con ENTER o con

> flechas de navegación.
>
> Cualquier idea, es bienvenida!!!
> Gracias anticipadas!
> Isrrael
>
>

...en varias celdas no contiguas
Activesheet.ScrollArea = "A1, C3, F7, E2:G20"