How do I enable the spellchecker in a protected worksheet?

[Guest]

I need to protect the formulae in the workshee, but also allow the users to
use the spellchecker. Protecting the sheet disables the spellchecker - how do
I get round this. There is no 'EnableSpellchecker' method, so I'm stuck!!

 

[Paul B]

Anne, you could assign this to a button, unprotect the sheet check the
spelling and then protect the sheet

Sub Spell_Check()
ActiveSheet.Unprotect password:="123"
Cells.CheckSpelling CustomDictionary:="CUSTOM.DIC",
IgnoreUppercase:=False _
, AlwaysSuggest:=True
ActiveSheet.Protect password:="123"
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

 

[Guest]

Thanks Paul, but I obviously didn't make myself clear. I've created a report
template which goes out to users for a weekly update. The report is complex
and full of formulae which I want to protect. The users want to be able to
use the spellchecker, but I am not willing to let them have an unprotected
spreadsheet, so I don't want to let them unprotect to spellcheck and then
re-protect it. I'm looking for a way round the fact that protecting the
sheet disables the spellchecker - if such an animal exists.

Do you think I can do a work around based on a mouse-click on the
spellchecker icon to unprotect and the OK on the spellchecker's final
dialogue box to protect again?
Thanks for your help!

 

[Paul B]

Anne, did you try the code? The code I posted when run will unprotect the
sheet, check the spelling and then protect the sheet, with the password 123,
the user will never see that the sheet is being unprotected, when the spell
check is complete or it is canceled the sheet will be protected again. Looks
like line wrap got the code I posted, this one you should be able to copy
and paste.Any other questions post back.

Sub Spell_Check()
ActiveSheet.Unprotect Password:="123"
Cells.CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True
ActiveSheet.Protect Password:="123"
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

 

[Guest]

Hi Paul,

Yes I finally got to reading rather than scanning your reply and it will do
what I want. I'm now trying to create a button when the sheet opens and
delete it when the sheet closes. I'm working on it at the moment, and then
your reply should solve my problem. Thanks for your help - and sorry for
being a numpty first time round!!

Anne

 

[Guest]

Paul B., how do you insert this code and where is it inserted? A co-worker
is trying to follow your instructions and it's not working.

 

[Guest]

Does this work
--
Mark

Anne, did you try the code? The code I posted when run will unprotect the
sheet, check the spelling and then protect the sheet, with the password 123,
the user will never see that the sheet is being unprotected, when the spell
check is complete or it is canceled the sheet will be protected again. Looks
like line wrap got the code I posted, this one you should be able to copy
and paste.Any other questions post back.

Sub Spell_Check()
ActiveSheet.Unprotect Password:="123"
Cells.CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True
ActiveSheet.Protect Password:="123"
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003