Executar um som no calc de acordo com uma condição

editar

Tente este arquivo que estou enviando.

Fiz os testes aqui e deu certo. Importante: o arquivo tem que ser em ".WAV". Em outra extensão ele não funciona. Coloque também a segurança de macro baixa

Código:

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1

Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub TestandoSom()

'Ajuste o caminho dos arquivos WAV
    If Range("A1").Value = "alarme" Then

        Call sndplaysound("C:\Users\Public\Music\Sample Music\Alarme.WAV", 0)
    Else
        Call sndplaysound("C:\Users\Public\Music\Sample Music\Alarme.WAV", 0)

    End If

End Sub

C:\fakepath\som.ods

Fonte: http://www.planilhando.com.br/forum/v...

Fonte do som que usei: http://audiocidades.utopia.org.br/bib...