Impedir uso de libro segun una fecha

Hey Rene ya probe la macro y si funciona bien pero tiene razon Carlos fijate
en el formato de fecha si asi insistes en botar tu pc me pasas la voz nomas
para mi colegio

Hola chicos,

Tambien probad introduciendo la fecha en el siguiente formato y ojo creo q
ya es 17/01/2005 en todas partes.

Saludos,
KL

Private Sub Workbook_Open()
If Date = #16/01/2005# Then
ThisWorkbook.Close
End If
End Sub

"Manuel Romero" @hotmail.com> wrote in message
news:OqdzqJM$

Cambia la comparacion, el valor de fecha como cadena depende de la
configuracion regional, mejor usa DateSerial

If Date=DateSerial(2005,1,16) Then

Lo otro, que ya te comentaron, es que si el libro se abre sin macros, no
sirve de nada

"Rene Palacios" escribió en el
mensaje news:

Hola Carlos y Manuel

He vuelto aprobar la macro varias veces y si le doy q trabaje con macros
pero insisto no me funciona el libro se abre igual...

Private Sub Workbook_Open()
If Date = "16/01/2005" Then
ThisWorkbook.Close
End If
End Sub


Carlos esta codigo de macro donde iria, debajo del codigo q me mando

Woorbook_BeforeClose(Cancel as Boolean)
dim h as worksheet
For each h in Thisworkbook.worksheets
if h.name<>"MACROS" then
h.Visible=xlSheetHidden
end fi
next
End sub

Espero me puedan ayudar este codigo el primero esta en Thisworkbook no se

q

pasa?

Cambia la comparacion, el valor de fecha como cadena depende de la
configuracion regional, mejor usa DateSerial

If Date=DateSerial(2005,1,16) Then

Lo otro, que ya te comentaron, es que si el libro se abre sin macros, no
sirve de nada

"Rene Palacios" escribió en el
mensaje news:

Hola Carlos y Manuel

He vuelto aprobar la macro varias veces y si le doy q trabaje con macros
pero insisto no me funciona el libro se abre igual...

Private Sub Workbook_Open()
If Date = "16/01/2005" Then
ThisWorkbook.Close
End If
End Sub


Carlos esta codigo de macro donde iria, debajo del codigo q me mando

Woorbook_BeforeClose(Cancel as Boolean)
dim h as worksheet
For each h in Thisworkbook.worksheets
if h.name<>"MACROS" then
h.Visible=xlSheetHidden
end fi
next
End sub

Espero me puedan ayudar este codigo el primero esta en Thisworkbook no se

q

pasa?

Lo unico malo es q si se desabilita las macros al abrir el libro ya no
funciona, lo q ya no le veo la gracia, hay una manera de impedir eso sin
poner el nivel de macro en bajo porq eso seria un suicidio

eso ya lo respondi en este hilo,
Firmando digitalmente tu codigo ;-)


"Daniel Padilla Cañamero"
escribió en el mensaje
news:

Lo unico malo es q si se desabilita las macros al abrir el libro ya no
funciona, lo q ya no le veo la gracia, hay una manera de impedir eso sin
poner el nivel de macro en bajo porq eso seria un suicidio