I need help secure a workbook with a password

Hi

I have vba code secure password for excel


[VBA]Private Sub Workbook_Open()
If Date > DateValue("1/3/2010") Then
If InputBox("password ") <> "etheer" Then
MsgBox "Wrong password"
ThisWorkbook.Close
Else
MsgBox "Welcome"
End If
End If
End Sub[/VBA]

when put wrong password out this messege

http://im38.gulfup.com/fu5yK.png

I need edit code do not out this messege or dont save

deteted_____________

Hi, etheer,

[vba]Private Sub Workbook_Open()
If Date > DateValue("1/3/2010") Then
If InputBox("password ") <> "etheer" Then
MsgBox "Wrong password"
ThisWorkbook.Close False
Else
MsgBox "Welcome"
End If
End If
End Sub[/vba] Ciao,
Holger