Contar aperturas planilla

Hola Experto: ante mi ignorancia al respecto, en su momento (de esto hace algo más de un año) ante una consulta, Uds. Me pasaron la siguiente subrutina para controlar las fechas "topes" de apertura de una planilla, la que - por supuesto - me está funcionando perfectamente:
Sub Fechas()
Dim FechaInicio As Date, FechaFin As Date, Hoy As Date
FechaInicio = "06/09/2010"
FechaFin = "30/09/2010"
Hoy = Day(Date) & "/" & Month(Date) & "/" & Year(Date)
If Hoy < FechaInicio Then ThisWorkbook.Close
If Hoy > FechaFin Then ThisWorkbook.Close
End Sub
La cuestión ahora pasa por querer agregar a esa subrutina un "tope" en la cantidad de aperturas de la planilla (ejemplo 5 veces). Superada esa cantidad de intentos, aun cuando la fecha se encuentre dentro de los parámetros establecidos, negar el ingreso a la planilla. Esto es en virtud de que como está originalmente pensada, cambiando la fecha de la PC, las misma se puede abrir indefinidamente, por lo que quiero establecer las dos posibilidades en la misma rutina.
Saludos y muchas gracias

1 Respuesta

Respuesta
1
Prueba con esto:
Private Sub Workbook_Open()
    Hoja1.Activate
    If Hoja1.Range("IV65536").Value > 3 Then Me.Close
    Hoja1.Range("IV65536").Font.Color = vbWhite
    Hoja1.Range("IV65536").Value = Hoja1.Range("IV65536").Value + 1
    Range("A1").Select
    Me.Save
End Sub
Lo pegas en el evento Workbook_Open
Cada vez que habrá el libro en la celda IV65536 se sumara 1, de tal forma que
    If Hoja1.Range("IV65536").Value > 3 Then Me.Close   ' cerrara el libro si la celda mantiene un valor mayor que 3, claro este valor tu lo decides en función de cuantas aperturas deseas otorgar, Claro que con esto, ni tu podras abrirlo, al menos de la forma tradicional ( aunque no conozco la no tradicional, siempre hay algún truquillo por conocer o no ?).
Bien eso es todo
Si te sirve por favor no olvides finalizar la pregunta
Bye
Hola experto: Gracias por tu respuesta inmediata.
Voy a intentar la modificación que sugerís.
La pregunta es si la puedo agregar a la misma subrutina que chequea la fecha de la PC que es lo que realmente me interesa por una cuestión que semanalmente actualizo la planilla y la reenvió a terceros para su utilización, por lo que periódicamente debo ingresar a modificar los parámetros.
Por supuesto que conservo un "original" de la planilla que es sobre la cual trabajo donde la fecha tiene un límite a muy largo plazo y de agregar el conteo de aperturas sería valor "cero" o "en blanco". ¿Es así la cuestión?
El valor puede ser cero o en blanco ya que para este evento son equivalentes
ahora en cuanto a adaptarlo a tu macro, Mmmm. Entonces tendrías que cambiar el enfoque, puesto que si deseas contar las aperturas del archivo, lo lógico era poner el script en el evento open, pero la otra forma seria colocarlo en el evento Workbook_WindowDeactivate
pero solo esta parte :
Hoja1. Activate
    Hoja1.Range("IV65536").Font.Color = vbWhite
    Hoja1.Range("IV65536").Value = Hoja1.Range("IV65536").Value + 1
    Range("A1").Select
    Me. Sabe
Hoja1.Activate
en el evento open debes mantener:
   Hoja1.Activate
    If Hoja1.Range("IV65536").Value > 3 Then Me.Close
para que tenga efecto la validación de apertura
ahora bien, en tu macro puedes incluir una linea que invoque el script de actualización del evento  por ejemplo puedes crear la macro nombre
private sub Apertura()
Hoja1.Activate
    Hoja1.Range("IV65536").Font.Color = vbWhite
    Hoja1.Range("IV65536").Value = Hoja1.Range("IV65536").Value + 1
    Range("A1").Select
    Me.Save
Hoja1.Activate
end sub
y en tu macro pones la llamada Call Apertura()
De esta forma cada vez que corras tu macro de fechas, a la vez invocaras el script, pero esto aplicara solo en ese evento ( que corras tu maro de fechas), por lo tanto si no corres la macro de fechas en cada apertura, podrías tener el caso de que tendrías más aperturas que las deseadas en función de no correr el macro de fechas, ¿no se si me explico?.
Bueno, pero eso es más o menos las alternativas que te puedo ofrecer.
No olvides finalizar tu pregunta
Bye

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Hacer una macro

Me gustaría hacer un formulario de un alta de reservas de un hotel en el que aparezcan una fecha de reservas y un fecha de salida del personal, pero ese botón debe de ser el mismo. En la fecha de reserva debe de ponerse la fecha de la primera vez que...
2 respuestas

Como ocultar filas a través del valor de una celda

¿Tengo una tabla en la cual donde necesito que: cuando a1 sea igual a 0 oculte el rango a1:c3; y de igual forma si a4 fuera igual a 0, oculte el rango b4:c7. Para ello necesito que se ejecute la macro automáticamente, sin necesidad de incrporarle un...
1 respuesta

Como hacer una Macro para Ingreso de datos en Excel

Quiero armar una macro para facilitar el ingreso de datos en diferentes celdas de una planilla excel. ¿Cómo es el comando para que la macro espere el ingreso del dato y enter?
1 respuesta

Autonumérico

Como hago para ejemplo tengo un numero de 1254 en una celda y lo guardo como. Pero cuando habro de nuevo la planilla quiero que ese numero pase a 1255 y así sucesivamente por ej. Una orden de compra tengo que corregirle el nº cada vez que hago una...
5 respuestas

Que hacer con el mensaje next sin For en visual basic

Tengo la siguiente macro y me esta apareciendo un mensajee que tengo un error de compilación Next sin For. Gracias de antemano Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:D3")) Is Nothing Then...
1 respuesta

Registrar la fecha de modificación de una celda - excel

Utilizo una macro publicada por ustedes para registrar la fecha y hora de modificación de una celda: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1:A500]) Is Nothing Then Target.Offset(0, 1) = Now Target.Offset(0,...
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas