Si, en Excel se puede agregar audios, que en tu caso debiera 'escucharse' al cambio en algunas celdas.
Este tema lo tengo publicado en mi manual 500Macros (en sus 2 versiones). Puedo enviarte el libro con el ejemplo si me dejas un correo (los míos aparecen en la sección Contactos de mi sitio)
Lo que se necesita es tener los audios en formato wav. Y se controla el evento Change de la hoja donde estés registrando los movimientos. Por ej:
Private Sub Worksheet_Change(ByVal Target As Range)
'omito filas donde haya títulos
If Target.Row < 4 Then Exit Sub
'no se ejecuta al cambio de más de 1 celda (x ej, al borrarlas)
If Target.Count > 1 Then Exit Sub
'imagino que en col B se registran los despegues y en col C los arribos.
If Target.Column = 2 Then
Call playwav(2)
ElseIf Target.Column = 3 Then
Call playwav(3)
End If
End Sub
Y en un modulo tendrás la macro llamada playwav con el argumento que identifique qué audio debe escucharse:
'ATENCIÓN: si se está trabajando con Office de 32 bits quitar el texto PtrSafe
Private Declare PtrSafe Function playsound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszname As String, _
ByVal hmodule As Long, ByVal dwflags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Sub playwav(opcion)
Dim wavfile As String, ruta As String
'asignar el archivo de sonido
If opcion = 2 Then
wavfile = "despegue.wav"
ElseIf opcion = 3 Then
wavfile = "aterriza.wav"
End If
'ajustar la ruta de los audios
ruta = ThisWorkbook.Path
wavfile = ruta & "\" & wavfile
Call playsound(wavfile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub
Sdos.
Elsa
http://aplicaexcel.com/contactos
https://www.youtube.com/c/ElsaMatilde