BLOQUEO AUTOMATICO DE HOJAS ANTERIORES A LA FECHA DE LA MAQUINA

¿En qué formato asignas la fecha como nombre de la hoja? Suponiendo que lo
haces en formato dd-mm-yyyy (hoy por ejemplo: 07-06-2006), el siguiente
procedimiento podría ser un punto de partida:

Sub VerHojas()
For Each hoja In ActiveWorkbook.Sheets
'Protegemos la hoja, sin importar si es la de hoy o no.
Sheets(hoja.Name).Protect DrawingObjects:=True, _
Contents:=True, _
Password:="abc"
'Si la hoja es la de hoy, removemos la protección.
If hoja.Name = Format(Date, "dd-mm-yyyy") Then
Sheets(hoja.Name).Unprotect Password:="abc"
End If
Next hoja
End Sub

Pruébalo, y si es lo que buscas lo podrías colocar en el evento Open del
libro.



"CONTADURIA" escribió:

Amigos: tenemos una planilla a la cual se le agrega una hoja todos los dias.
Cada hoja lleva como nombre la fecha del dia de trabajo y dentro de dicha
hoja existe ademas una celda con la fecha de trabajo.
Como puedo ejecutar una macro que bloquee automaticamente las hojas
anteriores a la fecha del dia de la maquina, permitiendo trabajar solo en la
hoja de trabajo del Dia (QUE COINCIDE CON LA FECHA DE LA COMPUTADORA).
Necesitariamos que dicho bloqueo pueda ser levantado mediante una
contraseña.

Gracias Contaduria