Adding sound to password field

[JohnSz]

I am trying to add a sound file to the password prompt if the password is incorrect.

The password prompt appears when the file is being opened.

Can this be done?

Please assist.

Thank you.

 

[VoG]

Here's an example http://www.j-walk.com/ss/excel/tips/tip59.htm

 

[JohnSz]

How do I make it work if the wrong password is entered? I've been able to have a workbook with a password and a worksheet with a command button to play the wave file, but am having problems with getting to work like I want it to.

Does that make sense?

 

[VoG]

I think you'll need to post your code that checks the password.

 

[JohnSz]

I have not written any code for the password checking. The password has been set by chosing File>Save As>Tools>General Options. BTW: I am using Excel 2007.

 

[VoG]

I don't know any way of trapping that event. You would need to unprotect the file then use code like the following in the ThisWorkbook module

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

 

[JohnSz]

Hmm....... I'll give this a try and see how it goes.

Would it be possible not to password protect the entire workbook, but instead have a user form to enter the password? Just a thought.

 

[VoG]

I used an input box to capture the password. The disadvantage is that the typed password is visible. You could also use a userform with a textbox with the PasswordChar property set to * (or whatever).