Permitir que los usuarios modifiquen rangos de excel en hoja protegida, los rangos están dados por condiciones
Estoy trabando en una hoja protegida de un libro de excel para que otros usuarios capturen, el problema que tengo es que quiero que esos rangos varíen de acuerdo a la fecha del día. La fecha del día la tengo en la celda A5 y la captura deberá ser desde D6:L15 en cada titulo de columna también tengo fechas D5, E5, etc. Primero hago la validación que si D5 es menor o igual a A5 me bloquee D6:D15 y solo me permita capturar de E6:L15 y al día siguiente como E5 va a cumplir la condición me bloquee D6:E15 y solo pueda capturar de F6:L15 y así sucesivamente, pero no se como lograrlo pienso que con código de VB
1 Respuesta
Pon la siguiente macro en los eventos de ThisWorkbook, de esa forma cada que abras el libro, revisará las columnas y bloqueará las celdas automáticamente
Cambia en la macro "fechas" por el nombre de la hoja que tienes con las fechas
Cambia "abc" por el password que tiene tu hoja
Private Sub Workbook_Open()
'Por.Dante Amor
Set h = Sheets("fechas")
uc = h.Cells(5, Columns.Count).End(xlToLeft).Column
For j = Columns("D").Column To uc
h.Unprotect "abc"
If h.Cells(5, j) <= h.Range("A5") Then
h.Range(h.Cells(6, j), h.Cells(15, j)).Locked = True
End If
h.Protect "abc"
Next
End SubInstrucciones para poner la macro en los eventos ThisWorkbook
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
- En el panel del lado derecho copia la macro
- Guarda el libro habilitado para macros.
- Cierra el libro y vuelve a abrirlo
- Revisa las celdas
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
¡Gracias!
Con tu ayuda ya logre lo que pretendía, al principio no me funcionaba porque me bloqueaba toda la hoja pero hice algunos ajustes y ya ando.
