Protejer celdas dependiendo de la funcion hoy

Hola faico,

Prueba esto:

Sub test()
Dim Pass As String
Pass = "MiContraseña"
With ActiveSheet
.Unprotect Pass
.Cells.Locked = False
Select Case Date
Case DateSerial(2005, 4, 1)
.Range("A1:J1,A3:J3").Locked = True
.Range("A2:J2,A4:J4").Locked = False
Case DateSerial(2005, 4, 2)
.Range("A1:J1,A3:J3").Locked = False
.Range("A2:J2,A4:J4").Locked = True
End Select
.Protect Pass
End With
End Sub

Saludos,
KL


"faico" wrote in message
news:

Alquien sabe como se podria proteger ciertas celdas automaticamente
dependiedno del dia que marque la funcion "hoy"?
Es decir si es 1-abr-05 que solo proteja de la (A1:J1) y (A3:J3) el dia
2-abr-05 desprotejera automaticamente (A1:J1) y (A3:J3) y protegera
(A2:J2)y (A4:J4)
Por muchas vueltas que le doy no consigo nada de nada...

Se que suena mu chungo pero cualquier orientacion a posibles soluciones
se agradecen

Muchas gracias