Hide Unhide Picture And Cell Content Using CheckBoxes

[jeff]

use the following code but get a error-expected named parameter

Sub Auto_Open()
With Worksheets("sheet1")
.Unprotect Password:="hello" ' If there's a password, use it within the double quote
.Protect UserInterfaceOnly:=True, Password="hello"' If there's a password, use it within the double quote
End With
End Sub

[jeff]

I fixed a typo as you suggested so the code does not give error but it still allows me to delete the cell contents and it does not ask for passwords

Thanks