Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Private Sub Workbook_Open()
If InputBox("Enter password") <> "pw" Then
Call PlaySound("C:\Test\doh.wav", 0&, SND_ASYNC Or SND_FILENAME)
Me.Close savechanges:=False
End If
End Sub