Macro to Spell Check + Protect + Retain Protection Rules

[dnesbitt]

Hi,

I have a macro to spell check a protected workbook in excel 2010:

Sub Spellcheck()
ActiveSheet.Unprotect Password:="Project Delivery"
Cells.CheckSpelling CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, AlwaysSuggest:=True, SpellLang:=2057 '2053
ActiveSheet.Protect Password:="Project Delivery"
End Sub

However this protects the whole sheet except a few unlocked cells. I'd like the end user to be able to edit the height of the rows, but for some reason, the above macro protects the whole sheet.

Please can someone help tweak the above macro to protect workbook but allow 'Select unlocked Cells' and 'Format Rows'.

Let me know if you need more info.

Thanks,

D