Foro Excel

Como se puede bloquear y desbloquear un rango de celdas a traves de codigo no atraves de la aplicacion excel.[;]

Hola titinaguirre:

Este es el código que te ayuda proteger las celdas de tu hoja,
en si lo que se protege es la hoja, pero lo que yo hago para
establecer cuales celdas son las que quiero proteger selecciono
el rango a proteger, doy clic en el menú formato, selecciono
celdas, selecciono la pestaña proteger y activo la opción bloqueada,
lógicamente las que no quiero que se bloqueen desactivo la opción
bloqueada.


Sub Proteger()
Sheets("Hoja3").Select 'Seleccionas la hoja que quieres proteger
ActiveSheet.Protect password:="123" 'Se protege la hoja seleccionada y el password es 123
End Sub

Sub Desproteger()
Sheets("Hoja3").Select 'Seleccionas la hoja que quieres desproteger
ActiveSheet.Unprotect password:="123" 'Se desprotege la hoja seleccionada con el mismo password
End Sub

Espero haya sido claro y de gran ayuda.

Lo que secede que previamente la de la hoja se bloqueron casi todas las celdas y solo un rango de estas quedaron desbloquedas para que los usuarios ingresaran datos (hasta ahi todo bien). Luego se crearon 2 botones en la hoja uno para bloquear y el otro para desploquear, pero resulta que el boton desbloquear hace integramente su trabajo pero el boton bloquear me vuelve como al estado inicial, es decir, las celdas que en un principo estaban desbloquedas para ingresar datos siguen quedando desploquedas(aunque el codigo que tiene dice bloquee la hoja entera).ESO
Gracias

Hola:

Si gustas puedes adjuntar el archivo, para poderlo ver y saber en que podemos ayudarte.

Muchas Gracias pero ya lo descubri solo bastaba con colocar estas instrucciones.

Por ejemplo

Range("C57:E91").Select
Selection.Locked = True