Spellchecker in Protected Sheet

[Rocksie]

Hi All,

I need to check the spelling of user input fields in a protected workbook. Users are only able to select and edit e.g. range E2:E21. I need the spell checker to work as the normal excel one, i.e, the cell with the misspelled word must be selected in order for me to know where the misspelled word is.

Any help will be appreciated.

Thanks

 

[CalcSux78]

Here's a code segment I've used in the past. To set up, I created a VeryHidden sheet with the codename Spell. (Look in the property window within VBA for (Name) and change there.) Also, change the visible to 2-xlSheetVeryHidden.

Function GetSpelling(ByVal str As String) As String
Dim Rng As Range
Set Rng = Spell.[A1]
Rng = str
Rng.CheckSpelling , , , 1033
GetSpelling = Rng
Rng.ClearContents
End Function

To deploy, you could add a check on the exit event of each textbox or to a Command Button Click event.

 

[Rocksie]

Hi CalcSux78, Thanks for the code, but I don't get it to work....

Any other suggestions? I have an active X button that activates the code

Thanks

 

[CalcSux78]

If you have an ActiveX button on your worksheet... you can right click the button and select "View Code" and use this code:

Private Sub CommandButton1_Click()
Dim rng As Range
Dim cel As Range


Set rng = [E2:E20]
For Each cel In rng.Cells
    cel.CheckSpelling , , , 1033
Next cel
End Sub