Spell check on a protected sheet

J

jontait

Hi

I think I've fixed it:

Private Sub CommandButton1_Click()
CommandButton1.TakeFocusOnClick = False
ActiveSheet.Unprotect Password:="password"
Cells.CheckSpelling
MsgBox "Spell check complete. Press OK to continue"
ActiveSheet.Protect Password:="password"
End Sub

I added the Message Box as if there are no spelling issues on the shee
the users sees nothing happening when they press the button an
naturally assumes its not worked.

Thanks again for all your help

Jon :
 
Top