Ocultar Hoja en Excel en Determinada Fecha

Buenas, agradezco la ayuda que puedan ofrecerme.
Necesito ocultar una hoja del libro que estoy trabajando en determinada fecha, he utilizado el siguiente código, pero no me funciona.
Sub Workbook_Open()
if 31/12/2009<Date then
Worksheets("Mi hoja").Visible=False
End If
End Sub
He probado cambiar el signo mayor a menor o el false por true por si acaso estoy interpretando la cosa mal, pero nada. Incluso especifiqué el formato de la fecha, pero tampoco.
Estoy consciente que excel no es inviolable, pero le estoy poniendo piedras en el camino a los usuarios, por ejemplo evitar copiar o cortar y cosas por el estilo.
Ate.
Absolutkarlos!

1 respuesta

Respuesta
1
Comprendo. Bueno la macro mejorada cada vez que se ejecutara cuando abras tu archivo de Excel sera:
Sub Workbook_Open()
If #11/3/2009# = Date Then
Sheets("Mi hoja").Visible = False
End If
End Sub
****
La macro anterior hace que la hoja "Mi Hoja" se oculte cuando la fecha del sistema sea igual a la fecha 03/11/2009, solo que cuando trabajamos en código deberá ser bajo el formato mm-dd-yyyy (11/03/2009), ademas esta fecha deberá estar entre almohadillas (#). Esta probado y funciona!.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas