Impedir uso de libro segun una fecha

Hola

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

Pero si me abre el libro lo pegue en ThisWorkbook como me dices pero no
impide q se abra el libro

Hola Rene
El codigo de esta bien, solo que si la persona que abre el libro
elige abrirlo sin macros, pues en ese caso no te servira,

puedes tomar varias alternativas

1) Excel permite ocultar hojas mediante codigo de forma que no pueden
mostrarse desde los menús, podrias ocultar todas la hojas, excepto una, ya
que no es posible ocultarlas todas, de forma que si habren el libro sin
macros solo vean una hoja que le indique al usuario que debe abrir el libro
utilizando macros, de esta manera no podria acceder al resto del libro si no
activa tus macros

tu codigo deberia incluir el el procedimiento

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
donde MACROS podria ser la unica hoja que dejaras visible, y en el
procedimiento WorkBookOpen, volverias a mostrar todas las hojas

2) Otra opcion, que puede ser mas facil y practica es Firmar digitalemente
tu codigo, de forma que la primera vez que el libro se abre, muestra un
dialogo indicando que el libro esta firmado digitalmente y si se activa la
opcion de abrir siempres ("No recuerdo el nombre exacto de la opcion"), ese
libro ya nunca mas volvera a mostrar el mensaje de las macros, de forma que
siempre se abrira con macros, claro a menos que se lo lleven a otro equipo
deonde no se haya aceptado la firma.

este links te puede servir para firmar un libro digitalmente

http://support.microsoft.com/kb/288985/es

especificamente lee los temas a partir de : Instalar la herramienta
SelfCert

esto me lo enseño KL

espero te pueda servir

Saludos
Carlos Durán


"Rene Palacios" escribió en el
mensaje news:

Hola

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

Pero si me abre el libro lo pegue en ThisWorkbook como me dices pero no
impide q se abra el libro

cierto, perdon a eso me queria referir


"Manuel Romero" @hotmail.com> escribió en el mensaje
news:edlLgFL$

Mejor que xlSheetHidden, usa xlSheetVeryHidden porque sino la persona se
va
a Formato/Hoja/Mostrar y ahi te saca todo.

Una hoja oculta con "very hidden" solo se puede mostar por macros, asi que
tampoco es infalible

"Carlos Durán Urenda" escribió en el mensaje
news:O8N0r$K$

Hola Rene
El codigo de esta bien, solo que si la persona que abre el libro
elige abrirlo sin macros, pues en ese caso no te servira,

puedes tomar varias alternativas

1) Excel permite ocultar hojas mediante codigo de forma que no pueden
mostrarse desde los menús, podrias ocultar todas la hojas, excepto una,
ya
que no es posible ocultarlas todas, de forma que si habren el libro sin
macros solo vean una hoja que le indique al usuario que debe abrir el

libro

utilizando macros, de esta manera no podria acceder al resto del libro si

no

activa tus macros

tu codigo deberia incluir el el procedimiento

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
donde MACROS podria ser la unica hoja que dejaras visible, y en el
procedimiento WorkBookOpen, volverias a mostrar todas las hojas

2) Otra opcion, que puede ser mas facil y practica es Firmar
digitalemente
tu codigo, de forma que la primera vez que el libro se abre, muestra un
dialogo indicando que el libro esta firmado digitalmente y si se activa
la
opcion de abrir siempres ("No recuerdo el nombre exacto de la opcion"),

ese

libro ya nunca mas volvera a mostrar el mensaje de las macros, de forma

que

siempre se abrira con macros, claro a menos que se lo lleven a otro
equipo
deonde no se haya aceptado la firma.

este links te puede servir para firmar un libro digitalmente

http://support.microsoft.com/kb/288985/es

especificamente lee los temas a partir de : Instalar la herramienta
SelfCert

esto me lo enseño KL

espero te pueda servir

Saludos
Carlos Durán


"Rene Palacios" escribió en el
mensaje news:
> Hola
>
> Probe tu codigo :
> Private Sub Workbook_Open()
> If Date = "16/01/2005" Then
> ThisWorkbook.Close
> End If
> End Sub
>
> Pero si me abre el libro lo pegue en ThisWorkbook como me dices pero no
> impide q se abra el libro
>
>

Mejor que xlSheetHidden, usa xlSheetVeryHidden porque sino la persona se va
a Formato/Hoja/Mostrar y ahi te saca todo.

Una hoja oculta con "very hidden" solo se puede mostar por macros, asi que
tampoco es infalible

"Carlos Durán Urenda" escribió en el mensaje
news:O8N0r$K$

Hola Rene
El codigo de esta bien, solo que si la persona que abre el libro
elige abrirlo sin macros, pues en ese caso no te servira,

puedes tomar varias alternativas

1) Excel permite ocultar hojas mediante codigo de forma que no pueden
mostrarse desde los menús, podrias ocultar todas la hojas, excepto una, ya
que no es posible ocultarlas todas, de forma que si habren el libro sin
macros solo vean una hoja que le indique al usuario que debe abrir el

libro

utilizando macros, de esta manera no podria acceder al resto del libro si

no

activa tus macros

tu codigo deberia incluir el el procedimiento

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
donde MACROS podria ser la unica hoja que dejaras visible, y en el
procedimiento WorkBookOpen, volverias a mostrar todas las hojas

2) Otra opcion, que puede ser mas facil y practica es Firmar digitalemente
tu codigo, de forma que la primera vez que el libro se abre, muestra un
dialogo indicando que el libro esta firmado digitalmente y si se activa la
opcion de abrir siempres ("No recuerdo el nombre exacto de la opcion"),

ese

libro ya nunca mas volvera a mostrar el mensaje de las macros, de forma

que

siempre se abrira con macros, claro a menos que se lo lleven a otro equipo
deonde no se haya aceptado la firma.

este links te puede servir para firmar un libro digitalmente

http://support.microsoft.com/kb/288985/es

especificamente lee los temas a partir de : Instalar la herramienta
SelfCert

esto me lo enseño KL

espero te pueda servir

Saludos
Carlos Durán


"Rene Palacios" escribió en el
mensaje news:
> Hola
>
> Probe tu codigo :
> Private Sub Workbook_Open()
> If Date = "16/01/2005" Then
> ThisWorkbook.Close
> End If
> End Sub
>
> Pero si me abre el libro lo pegue en ThisWorkbook como me dices pero no
> impide q se abra el libro
>
>

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?