spellcheck a textbox on a protected worksheet
 

In a protected Workbook, users enter text into an unprotected Text Box. the
users cannot do a spellcheck because of the protection.

I can produce a simple macro to unprotect & start the spellcheck to work. I
then know how to re-protect the sheet but how do I identify when the spell
check has finished because every spell check is different. I guess it has to
be the code that happens when the spellcheck dialogue box closes but cannot
identify that code

Can anyone help

my basic macro is

Sub Spellcheck()
'
' Spellcheck Macro
' Macro recorded 04/06/2007
'
ActiveSheet.Unprotect Password:=€�Fred€�

ActiveSheet.Shapes("Text Box 1").Select
Selection.CheckSpelling SpellLang:=2057

End Sub