Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Olha, tá em excel, mas acredito que consiga fazer algo no LibreOffice

    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("E7").Value = "FUNCIONÁRIO LIBERADO" Then

        Call sndplaysound("C:\Projeto SIREF\Audio\SIM.wav", 0)
    Else
        Call sndplaysound("C:\Projeto SIREF\Audio\NÃO.wav", 0)

    End If

End Sub

Fonte: http://www.planilhando.com.br/forum/viewtopic.php?t=7215&p=38307

Olha, tá Tente este arquivo que estou enviando.

Fiz os testes aqui e deu certo. Importante: o arquivo tem que ser em excel, mas acredito que consiga fazer algo no LibreOffice".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("E7").Value Range("A1").Value = "FUNCIONÁRIO LIBERADO" "alarme" Then

        Call sndplaysound("C:\Projeto SIREF\Audio\SIM.wav", sndplaysound("C:\Users\Public\Music\Sample Music\Alarme.WAV", 0)
    Else
        Call sndplaysound("C:\Projeto SIREF\Audio\NÃO.wav", sndplaysound("C:\Users\Public\Music\Sample Music\Alarme.WAV", 0)

    End If

End Sub
Sub](/upfiles/152043498536623.ods)

Fonte: http://www.planilhando.com.br/forum/viewtopic.php?t=7215&p=38307

Fonte do som que usei: http://audiocidades.utopia.org.br/biblioteca/biblioteca_sons_avisos.html

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 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](/upfiles/152043498536623.ods)
Sub

(/upfiles/152043498536623.ods)

Fonte: http://www.planilhando.com.br/forum/viewtopic.php?t=7215&p=38307

Fonte do som que usei: http://audiocidades.utopia.org.br/biblioteca/biblioteca_sons_avisos.html

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

(/upfiles/152043498536623.ods)C:\fakepath\som.ods

Fonte: http://www.planilhando.com.br/forum/viewtopic.php?t=7215&p=38307

Fonte do som que usei: http://audiocidades.utopia.org.br/biblioteca/biblioteca_sons_avisos.html