Alarma segun hora indicada

[luwobe]

Hola podrian ayudarme a crear una alarma en la pantalla con sonido el cual me indique un mensaje en el que hay que hacer "cambios de parametros" y que si no le doy aceptar no deje de salir dicha alarma. La hora va a estar indicada en la celda A1 y la otra en la celda A2.

mensaje.xls

[rulesagain]

ve esto

Private Declare Function mciExecute Lib "winmm.dll" (ByVal Comando As String) As Long

Sub mostrar()

If Range("w7").Value <> "Valor que quieras" Then

mciExecute "Play " & "C:\windows\media\tada.wav"

MsgBox "Ya son las " & Time() & "y no se ha modificado el sistema"

Else

End

End If

End Sub

Esto reproduce un sonido y muestra un aviso si en w7 no esta el Valor que quieras

Ahora en el objeto ThisWorkbook pega este código:

Private Sub Workbook_Open()

Application.OnTime TimeValue("08:00:00"), "mostrar"

End Sub

hace que el código anterior se corra a las 08:00:00.

***********

por si quieres un archivo de mp3

Declare Function mciExecute Lib "winmm.dll" (ByVal Comando As String) As Long

Public archivomp3 As String

Sub Stopmp3()

mciExecute "Stop " & archivomp3

End Sub

Sub Playmp3()

archivomp3 = "c:\archivo.mp3"

mciExecute "Play " & archivomp3

End Sub

^^^^^^^^^^^^^^^

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/cerrado-programar-alarma-sonido-3517/

saludos

Alarma.xls