Macro que avisa tras tiempo de inactividad mediante sonido.

verzulsan · el 16 de junio

Hola a todos,

Se trata de una hoja que te avisa cuando ha pasado cierto tiempo de inactividad, esta establecido a 6 segundos pero podeis cambiarlo desde el codigo, cada vez que se selecciona una celda se resetea el contador.

Es una modificacion de un aporte que hice por aqui hace algun tiempo en el post #6 de este hilo (ENLACE), inactividad3 es una version modificada del archivo inactividad2 que podreis encontrar en dicho enlace, a diferencia de inactividad2 que avisaba mediante mensaje, este avisa con un sonido por si no estais delante de la pantalla.

(No le he puesto autoarranque, por lo que para iniciar el contador por primera vez teneis que seleccionar cualquier celda)

Espero os guste.

Descargar Inactividad3.xls

Un saludo!

el 16 de junio

Buenas Verzulsan:

Antes de nada agradecerte todos estos aportes excelentes que haces. Es muy generoso por tu parte enriquecernos y enseñarnos con ellos. Te quería pedir, si es posible y si tu tiempo te lo permite, que cuando nos los envíes nos explicases que hace el código. Personalmente voy descifrando algo pero me cuesta bastante trabajo. De nuevo muchas gracias. El sonido un poco maquiavélico no.

verzulsan · el 16 de junio

Hola Luis,

Pues la verdad que era un poco broma lo del sonido , me alegro que te haya gustado y gracias comentar, ¿Te salio el sonido solo? o tambien la imagen, ¿llegaste a asustarte? jejje .

Aqui dejo explicado lo que hace le codigo detalladamente:

[COLOR="Green"]'0) variable donde queda guardado el tiempo programado para el reloj[/COLOR]

Dim TAhora As Double


[COLOR="Green"]'Cada vez que se selecciona una celda diferente se ejecutara esta funcion, 

'siendo Range el rango seleccionado[/COLOR]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[COLOR="Green"]'Depura el error que se va a producir la primera vez que se ejecuta la funcion, 

'ya que la siguiente instruccion va a intentar cancelar un evento que no existe.[/COLOR]

    On Error Resume Next

[COLOR="Green"]'3) Si llega aqui es por que se ha vuelto a cambiar de celda y por lo tanto ya no esta 

'inactiva la hoja, tenemos que cancelar el reloj temporizador, nos ayudamos de la variable

'Tahora para 'saber cual es el reloj que tenemos que cancelar[/COLOR]

    Application.OnTime EarliestTime:=TAhora + TimeValue("00:00:06"), _

    Procedure:="Hoja1.Prueba", Schedule:=False

[COLOR="Green"]'1) Guarda la variable Hora exacta en TAhora, para asi poder cancelar 

'posteriormente el reloj.[/COLOR]

    TAhora = Now

[COLOR="Green"]'2) Crea un reloj temporizador de 6 segundos a partir de la hora exacta guardada 

'en TAhora, tras este periodo llamara a la macro "Hoja1.Prueba", siempre y cuando no 

'se haya cancelado 'este reloj antes de pasados esos 6 segundos.[/COLOR]

    Application.OnTime TAhora + TimeValue("00:00:06"), "Hoja1.Prueba"

End Sub


Sub Prueba()

[COLOR="Green"]'Aqui la macro que quieras que se ejecute cuando pase el periodo de tiempo.[/COLOR]

    Call Avisar

End Sub[/CODE]

Como ya he dicho la macro "Call avisar" solo es una broma que podeis sustituirla por la macro que querais o por un simple mensaje de texto. Si pensais que es de muy mal gusto quito el archivo sin problemas.

Un saludo

verzulsan · el 16 de junio

Vaya... Acabo de darme cuenta que en excel 2003 de mi portatil me abre el reproductor de windows media player, le quita toda la gracia. Sin embargo en excel 2000 y en 2007 lo ejecuta directamente desde el propio excel, ¿a que podra deberse esto?

el 16 de junio

Hola Verzulsan:

Gracias por la explicación. A mí me gusto la broma y tampoco me pareció de mal gusto. Si también me apareció la imagen. Y a mí también se me abrió el reproductor con Excel 2007.