Dùng sự kiện "Workbook_BeforeClose(Cancel As Boolean)" để Tắt nhạc (2 người xem)

[mymichau]

Em có file nhạc với đoạn code như sau :
<font face="VNI-Times">

Sub Nhac()
Dim SoundFile As String
SoundFile = ThisWorkbook.Path & "\AN.wma"
Shell "mplay32.exe /play /close " & SoundFile
End Sub

Vậy khi dùng sự kiện "Workbook_BeforeClose(Cancel As Boolean)" để Close workbook, thì viết như thế nào để tử động tắt luôn nhạc "mplay32.exe " ( được gọi ra từ trong system32).

 

[dovanhoc84]

Cái này mình cũng đi gom góp tìm kiếm thôi. (mình dùng tiếng nhật nên cũng tìm trên các trang mạng của Nhật)

Sub Sample1()
Dim SoundFile As String
SoundFile = "C:\Windows\Media\tada.wav"
If Dir(SoundFile) = "" Then
MsgBox SoundFile & vbCrLf & "がありません。", vbExclamation
Exit Sub
End If
Shell "mplay32.exe /play /close " & SoundFile
End Sub

link tham khảo
http://officetanaka.net/excel/vba/tips/tips22.htm