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

hola, chicos !

otra alternativa pudiera ser al abrir el libro y...
'aprovechar' el 'truquillo' de la 'potencia 0' [para este caso... verdadero/falso]
con lo que se podria 'adelgazar' el codigo [y de paso... el UserInterfaceOnly]
y suponiendo que por 'dia' se refiere NO a una fecha 'completa'... sino al 'numero' del dia -?-
[en caso 'contrario'... modificar 'donde/como sea' necesario] :))

saludos,
hector.
en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect Password:="EstaClave", UserInterfaceOnly:=True
.Range("a1:j1,a3:j3").Locked = (Day(Date) = 1)
.Range("a2:j2,a4:j4").Locked = (Day(Date) = 2)
End With
End Sub

consulta 'original' ==> faico escribio en el mensaje ...

... proteger ciertas celdas automaticamente dependiedno del dia que marque la funcion "hoy"?
... si es 1-abr-05 que solo proteja de la (A1:J1) y (A3:J3)
... 2-abr-05 desprotejera automaticamente (A1:J1) y (A3:J3) y protegera (A2:J2)y (A4:J4) [...]

KL escribio en el mensaje ...
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

Hola HM,

'aprovechar' el 'truquillo' de la 'potencia 0' [para este caso...
verdadero/falso]

Aunque no es exactamente a que me referia hablando del 'truquillo de la
potencia 0' (mas bien a la posibilidad de cambiar el signo +/- segun
cumplimiento de alguna condicion), el codigo te ha salido perfecto ;-)

Por cierto ?como anda el tema de las potencias que no querian funcionar
desde VBA?

Saludos,
KL

hola, KL !

... no es exactamente a que me referia hablando del 'truquillo de la potencia 0'
... mas bien a... cambiar el signo +/- segun... condicion... el codigo te ha salido [...]
... como anda el tema de las potencias que no querian funcionar desde VBA?

[hablando de la potencia 0]... ciertamente que no es la referencia 'original' :))
[aunque] fue 'de donde' me vino la ocurrencia [si/no se cumple... vardadero/falso... 0/1]
'sumado' a mis pesquisas por la 'perdida de la potencia' [en mi vba-xl97] ;)
que [por cierto]... supongo que 'tendre que' aprender a 'vivir con ella' :(
[lo bueno es que solo se vio 'afectado' el vba de la version 97]

saludos,
hector.

'sumado' a mis pesquisas por la 'perdida de la potencia'

Cuando escribia mi mensaje anterior puse primero: "Por cierto, ?como anda el
tema de la perdida de la potencia?" pero luego decidi que la gente podria
pensar otra cosa :-))

KL