Hide Unhide Picture And Cell Content Using CheckBoxes

[Admin]

I have just merged both the threads

[Excel Fox]

Just typing this on the fly... watch out for any typ0s

Sub Auto_Open()
Dim wks as worksheet
for each wks in thisworkbook.worksheets
wks.Unprotect PassWord:=""' If there's a password, use it within the double quote
wks.Protect UserInterfaceOnly:=True, Password=""' If there's a password, use it within the double quote
next wks
End Sub

[Excel Fox]

If you were just wanting to protect that particular sheet, then use

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

EDIT: Added a semi-colon to the argument

[Excel Fox]

I've made a small correction. Check my previous post.

[Excel Fox]

The code has to be pasted in a code module, and not in the sheet module or workbook module. Also ensure that the cell you're using is locked.