Necesito crear una macro para mi trabajo, en donde al momento de guardar el archivo las celdas queden bloqueadas,
En un archivo tengo varias hojas y quiero bloquear celdas después de guardar los cambios.
1 Respuesta
Respuesta de Elsa Matilde
2
¡Gracias! Y disculpe por el anterior formato, de verdad muchas gracias, le agradezco el tiempo que se toma en atender mi pregunta, no esta para saberlo pero este formato va a hacer que siga conservando mi trabajo al darle solución a un problema donde laboro, gracias.
Saludos.
Esta sería la macro nueva. Se colocan en una matriz todos los nombres de las hojas donde se hará el control. De este modo en otro momento podrás agregar/quitar hojas, lo mismo ajustar el rango a +/- filas.
Solo coloca la clave que corresponda a tu libro definitivo.
Sub bloqueoHojasVarias()
'x Elsamatilde
Application.ScreenUpdating = False
'desprotege todas las hojas involucradas
hojitas = Array("DESTAJOS PLANTA BAJA", "DESTAJOS SEGUNDO NIVEL", "DESTAJOS TERCER NIVEL", "DESTAJOS ADITIVAS")
For i = 0 To 3 'son 4 hojas y se numeran en la matriz a partir de 0
Sheets(hojitas(i)).Select
ActiveSheet.Unprotect "tu_clave"
'bloquea rango con datos de la hoja activa
For Each cd In Range("D137:DX256")
If cd.Value <> "" Then cd.Locked = True
Next cd
'protege esta hoja con contraseña y sigue con el resto
ActiveSheet.Protect "tu_clave"
Next i
End Sub
