protecting a sheet

[alex19]

i am using this code

With Workbooks("Jon.xls").Sheets("Sheet1")
.Unprotect
.
'My code here
.
.
.Protect
End With


how can i add a password so it is not blank? so password = one lets say

 

[Jonmo1]

With Workbooks("Jon.xls").Sheets("Sheet1") 
.Unprotect "Password"
. 
'My code here 
. 
. 
.Protect "Password"
End With

make sure you protect the sheet with the password Manually before running the macro.