Problema con una macro

Hola Vökl
Si he entendido bien, y lo que deseas es que a partir de una fecha concreta
la hoja no aparezca...
prueba esto a ver...

Saludos.-

Sub Workbook_Open()
If Date > 20 / 5 / 2004 Then
Worksheets("varios").Visible = False
End If
End Sub

"Völkl" escribió en el mensaje
news:euQPMb%
Mostrar la cita

Tengo un libro con varias hojas, quiero que la hoja "varios" este oculta a
partir de una fecha determinada (20-05-2004), lo intento con esta macro

pero
Mostrar la cita

no se oculta, supongo que hago algo incorrecto, estoy en los primeros

pasos
Mostrar la cita

de las macros, gracias anticipadas.

Sub Workbook_Open()
if 20/05/2004<Date then
Worksheets("varios").Visible=True
End If
End Sub

Sub Workbook_Close()
Worksheet("varios").Visible=xlveryhidden
End Sub

Saludos. Völkl.

La inteligencia consiste no sólo en el conocimiento, sino también en la
destreza de aplicar los conocimientos en la práctica.

Para contestarme o enviarme un e- mail sustituye la información de para o
replay, por wolkl arroba hotmail punto com

Hola Jesús:

La macro funciona perfectamente, gracias, pero es muy fácil que las hoja se
vuelvan visibles (Formato => Hojas => Mostrar), se que puedo bloquear vía
contraseña, pero quisiera algo mas complicado, el libro esta a disposición
de otros usuarios que no quisiera que visualizaran las hojas.

Saludos. Völkl.

La inteligencia consiste no sólo en el conocimiento, sino también en la
destreza de aplicar los conocimientos en la práctica.

Para contestarme o enviarme un e- mail sustituye la información de para o
replay, por wolkl arroba hotmail punto com
"Jesús Román" <CRISONIA3(texto inactivo)@terra.es> ha escrit en el missatge
dels grups de discussió:_UWrc.532245$
Mostrar la cita

Hola Vökl
Si he entendido bien, y lo que deseas es que a partir de una fecha

concreta
Mostrar la cita

la hoja no aparezca...
prueba esto a ver...

Saludos.-

Sub Workbook_Open()
If Date > 20 / 5 / 2004 Then
Worksheets("varios").Visible = False
End If
End Sub

"Völkl" escribió en el mensaje
news:euQPMb%
> Tengo un libro con varias hojas, quiero que la hoja "varios" este oculta

a
Mostrar la cita

> partir de una fecha determinada (20-05-2004), lo intento con esta macro
pero
> no se oculta, supongo que hago algo incorrecto, estoy en los primeros
pasos
> de las macros, gracias anticipadas.
>
> Sub Workbook_Open()
> if 20/05/2004<Date then
> Worksheets("varios").Visible=True
> End If
> End Sub
>
> Sub Workbook_Close()
> Worksheet("varios").Visible=xlveryhidden
> End Sub
>
> Saludos. Völkl.
>
> La inteligencia consiste no sólo en el conocimiento, sino también en la
> destreza de aplicar los conocimientos en la práctica.
>
> Para contestarme o enviarme un e- mail sustituye la información de para

o
Mostrar la cita

> replay, por wolkl arroba hotmail punto com
>
>