Bloquear las celdas de una hoja
Hola amigos necesito si alguien me puede ayudar con respecto al siguiente problema:
Estoy trabajando en una aplicación en excel en donde el usuario indica
la cantidad de alumnos que tiene y se debe copiar el formato de notas
(Rango a1:k50) las veces que indique el usuario (esto ya lo tengo
creado), una vez que se copia dicho formato las veces que sea necesario
yo necesito bloquear los datos que se encuentran en los siguientes
rangos a1:k5, a7:j8, k7:k30. Estos rango van a ser similares en el resto
del formato de notas que se copian hacia abajo porlotanto lo que
necesito es una macro que permita bloquear las celdas que anteriormente
mencione y las que correspondan de acuerdo a las veces que se copie
dicho formato.
Espero que me entiendan la consulta desde ya les agradezco su respuesta.
Estoy trabajando en una aplicación en excel en donde el usuario indica
la cantidad de alumnos que tiene y se debe copiar el formato de notas
(Rango a1:k50) las veces que indique el usuario (esto ya lo tengo
creado), una vez que se copia dicho formato las veces que sea necesario
yo necesito bloquear los datos que se encuentran en los siguientes
rangos a1:k5, a7:j8, k7:k30. Estos rango van a ser similares en el resto
del formato de notas que se copian hacia abajo porlotanto lo que
necesito es una macro que permita bloquear las celdas que anteriormente
mencione y las que correspondan de acuerdo a las veces que se copie
dicho formato.
Espero que me entiendan la consulta desde ya les agradezco su respuesta.
Respuesta de leone
1
Para bloquear las celdas debes Proteger la hoja, la linea para protegerla es:
Puedes colocarla al final de la ejecución de tu macro.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Al Proteger la Hoja las celdas quedan bloqueadas ya que vienen con esa propiedad previamente activada, si necesitas que una o más celdas quedes desbloquedas una vez protegida la hoja debes desmarcar la casilla "Bloqueada" en el "formato de la celda" específicamente en la pestaña "Proteger", si deseas que la macro lo haga sera con:
Range("B2:C3").Select 'rango de celdas
Selection.Locked = False
Si la macro la corres nuevamente sobre esa hoja debes desbloquear primero la Hoja mediante:
ActiveSheet. Unprotect
Puedes colocarla al final de la ejecución de tu macro.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Al Proteger la Hoja las celdas quedan bloqueadas ya que vienen con esa propiedad previamente activada, si necesitas que una o más celdas quedes desbloquedas una vez protegida la hoja debes desmarcar la casilla "Bloqueada" en el "formato de la celda" específicamente en la pestaña "Proteger", si deseas que la macro lo haga sera con:
Range("B2:C3").Select 'rango de celdas
Selection.Locked = False
Si la macro la corres nuevamente sobre esa hoja debes desbloquear primero la Hoja mediante:
ActiveSheet. Unprotect
