Shape with a Macro to Clear Data Entry Cells doesn't work on Protected Sheet

[FRED_SHEET]

I have a shape with a Macro to clear five data entry cells. I have unlocked the data entry cells and protected the worksheet. However when I click on the shape to clear the data it doesn't work on the protected sheet.

Is there something I have to do different to the Macro, unlocked data entry cells, or protected sheet to make this work?

 

[AFPathfinder]

Shapes have a Locked property just like cells (locked by default when sheet is protected). The only other solution I can think of is to have an event macro that calls that shape macro, but you may have to do some testing to see which event would be best (shape may not be selectable when sheet is locked).

 

[Fluff]

You can use something like this

Private Sub Workbook_Open()
Sheets("[COLOR=#ff0000]Details[/COLOR]").Protect Password:="[COLOR=#ff0000]Fluff[/COLOR]", userinterfaceonly:=True
End Sub

This needs to go in the ThisWorkbook module. Change sheet name & password to suit

 

[FRED_SHEET]

You can use something like this

Private Sub Workbook_Open()
Sheets("[COLOR=#ff0000]Details[/COLOR]").Protect Password:="[COLOR=#ff0000]Fluff[/COLOR]", userinterfaceonly:=True
End Sub

This needs to go in the ThisWorkbook module. Change sheet name & password to suit

Fanastic! MrExcel MVP that did the trick. For a self taught Excel user some of these Visual Basic Modules are pretty amazing. I was brought up using Fortran and a slide rule and I am still trying to understand Visual Basic.

Thanks for your help.

 

[Fluff]

Glad to help & thanks for the feedback