Impedir uso de libro segun una fecha

Hola Rene

Por lo que mencionas sobre que el libro se abre igual es posible que el
nivel de seguridad este en Nivel Alto y siempre abra el libro sin activar
las macros

verifica en Herramientas/Macros/Seguridad y establece el nivel medio

luego en ThisworkBook escribe el procedimiento que te indicó ,
seguramente ahora te funcione, pero antes de hacer pruebas te recomiendo que
guardes una copia de tu libro ya que posiblemente no lo puedas volver a
abrir por cuestion de la fecha

Saludos
Carlos Durán

"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?

No se q pasa, el nivel de macro esta en medio, pero igual abre el libro al
habilitar las macros, q raro esta tal como me dijo y en el lugar q
corresponde, le he puesto la misma fecha, pero igual lo abre cuando deberia
impedir q se abra el libro, q hago boto mi pc?

Hola Rene como vas a botar tu pc? mejor obsequiala a un colegio ahi siempre
se necesitan, bueno yo he probado tu codigo y bueno a mi tampoco me funciona,
asi q no la botes ;) si insistes en botarla me avisas q yo trabajo en un
colegio y siempre son necesarias, bueno comentario aparte pues si a mi
tampoco me funciona dicho codigo espero se pueda solucionar el problema

Posiblemente el problema sea el formato de la fecha

prueba mandando un mensaje en lugar de intentar cerrar el libro


Workbook_Open ( )
Msgbox "La fecha de hoy es " & Date
End Sub

a ver si te muestra el mensaje al abrir el libro, asi podras saber si se
estan ejecutando las macros y que formato de fecha esta manejado tu máquina

y si aun asi decides botarla, pues dime donde no?

avisame si te funciona

Carlos




"Rene Palacios" escribió en el
mensaje news:

No se q pasa, el nivel de macro esta en medio, pero igual abre el libro al
habilitar las macros, q raro esta tal como me dijo y en el lugar q
corresponde, le he puesto la misma fecha, pero igual lo abre cuando
deberia
impedir q se abra el libro, q hago boto mi pc?

Rene no olvides poner Private Sub delante de Workbook_Open()
para q funcione parece q Carlos no quiere q funcione la macro para quedarse
con la Pc jejeje