I need help secure a workbook with a password

[etheer]

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



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

[patel]

deteted_____________

[HaHoBe]

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