Buenas tardes quisiera ver quien me puede ayudar con una macro, lo que quiero hacer es que a un programa diseñado en excel, le quiero poner caducidad para esto tengo este codigo que me dieron para ponerlo en ThisWorkBook, pero al llegar al periodo me sigue dejando entrar, que le tengo que poner o quitar les dejo aqui el codigo

De antemano gracias por sus comentarios y ayuda

Option Explicit

Sub Ejemplo()

Dim F_Inicio As Date
Dim F_Actual As Date
Dim Periodo As Long

F_Inicio = "01/01/2005"
F_Actual = Date
Periodo = 90 'en dias

If F_Actual > F_Inicio + Periodo Then
MsgBox "Caduco el Periodo de Prueba"
ActiveWorkbook.Close
End If

End Sub

Hola Angora, probe tu macro en mi maquina y si funciona, no me deja entrar si ya me pase la fecha Actual, quizas no lo estas poniendo dentro del Workbook_Open. Verifica eso.


Saludos

__________________
Jose Luis Sovero Arellano
Analista Programador

Ya lo hice asi pero sigue sin funcionarme te mando el archivo para que veas donde esta puesto o sera porque tengo office 2003 y windows xp pero esto no tiene nada que ver o si

espero comentarios

Archivos Adjuntos

libro1.xls (20,5 KB, 4 visitas)

Hola Angora, al decir WorkBook_Open me referia al evento Open exactamente, efectivamente estas colocando el codigo en el WorkBook pero no esta siendo invocado por ningún evento. Aqui te devuelvo el Excel con la solucion.
Solamente le agregue lo siguiente:

Private Sub Workbook_Open()
Call Ejemplo
End Sub


Saludos

Archivos Adjuntos

libro1_133.xls (21,5 KB, 6 visitas)

__________________
Jose Luis Sovero Arellano
Analista Programador

O.K. garacias ya corrio la macros, ahora otra pregunta para que no aparesca la ventana de abilitar o desabilitar macros que puedo hacer.


Saludos

Hola Angora, bueno el deshabilitar la seguridad en las macros en ocasiones no es recomedable ya que se podria ejecutar algun codigo malintencionado en tu pc, pero si tienes la seguridad de que los archivos de excel que utilizas normalmente son confiables pues haz lo siguiente:

Menu Herramientas \ Macros \ Seguridad y tendrias que poner en la opción "Bajo" de esta forma siempre se ejecutaran las macros "de cualquier libro de excel".

Saludos

__________________
Jose Luis Sovero Arellano
Analista Programador

O.K. gracias

Saludos