Spell check protected sheet
Greetings. I found this code on the site yesterday (thanks to the poster). I
replaced "password" with the sheet protection actual password.
I can get it to run from: Tools, Macro, Run (without unprotecting the sheet)
but not from the shortcut key without unprotecting the sheet. Any
suggestions? (i'm over the top, iv'e been fooling with it for an entire day).
Please help. Thanks so much.
Sub Spell_Check()
' Keyboard Shortcut: Ctrl+Shift+C
'
ActiveSheet.Unprotect Password:="password"
Cells.CheckSpelling SpellLang:=1033
ActiveSheet.Protect Password:="password", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
End Sub
|