How do I enable the spellchecker in a protected worksheet?

CFS@discussions.microsoft.com Anne CFS

unread,

Jun 27, 2005, 9:28:02 AM6/27/05

to

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

unread,

Jun 27, 2005, 10:35:29 AM6/27/05

to

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

"Anne CFS" <Anne C...@discussions.microsoft.com> wrote in message
news:3ECEB756-FC2A-4A84...@microsoft.com...

Anne CFS

unread,

Jun 28, 2005, 9:59:05 AM6/28/05

to

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

unread,

Jun 28, 2005, 5:01:23 PM6/28/05

to

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

"Anne CFS" <Ann...@discussions.microsoft.com> wrote in message
news:AF6B9838-5380-41E2...@microsoft.com...

Anne CFS

unread,

Jun 29, 2005, 7:03:02 AM6/29/05

to

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

Radcon trainer

unread,

Oct 20, 2005, 3:22:04 PM10/20/05

to

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.

Mark

unread,

Jul 12, 2007, 6:12:01 PM7/12/07

to

Does this work
--
Mark