Makróval:

Mented makróbarát dokumentumként, [ALT] + [F11], jobb klikk, View Code, oda a szöveg:

Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal IpszName As String, _
  ByVal hModule As Long, ByVal dsFlags As Long) As Long


Private Sub Document_Open()
    PlaySound "c:windowsmediatada.wav", ByVal0&, &H1
End Sub

Mented, bezárod. Megnyitáskor (ha engedélyezed a makrókat) lejátssza. Nem beágyazza, létező fájlnak kell lennie.

Innen.