Grazie dell'interessamento,
espongo la parte di codice vba relativa ai suoni:
#If Win64 Then 'Private Declare PtrSafe Function sndPlaySound _ Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As LongLong) As LongLong
#Else 'Private Declare Function sndPlaySound _ Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#End If
Public Sub mEseguiSuono(ByVal sNomeFile As String)
Dim v As Variant 'v = sndPlaySound(sNomeFile, 1) 'End Sub
Sub SuonoAlert() 'mEseguiSuono ("C:\Windows\Media\tada.wav") 'End Sub
Sub SuonoAvviso() 'mEseguiSuono ("C:\Windows\Media\suono alto.wav") 'End Sub
Sub SuonoNotifica() 'mEseguiSuono ("C:\Windows\Media\Windows Exclamation.wav") 'End Sub
Sub SuonoAvvio() 'mEseguiSuono ("C:\Windows\Media\You Can't Always Get What You Want.wav") 'End Sub
Nell'attesa porgo cordiali saluti