I don't know if you found a solution. Here what I have used,
Code
Option Explicit
Sub Admin()
Dim strPassTry As String
Dim strPassword As String
Dim lTries As Long
Dim bSuccess As Boolean
strPassword = "Password" 'Change to you own password
For lTries = 1 To 3 'Change the number of tries to what ever you want.
strPassTry = InputBox("Enter Password Please", "Administrative Access Only!")
If strPassTry = vbNullString Then Exit Sub
bSuccess = strPassword = strPassTry
If bSuccess = True Then Exit For
Application.Speech.Speak " HEY!!! You have not made a valid entry. Please try again. ", SpeakAsync:=True
Application.Wait (Now + TimeValue("00:00:06"))
MsgBox "Password Incorrect!!" & vbNewLine _
& vbNewLine & "Please enter correct Password!!!" & vbNewLine _
& vbNewLine & "Or ask for administrative assistance!!!"
Next lTries
If bSuccess = True Then
Application.VBE.MainWindow.Visible = True
End If
End Sub
Display More