I am posting this here as well since this is the "Best Forum to Post":)


I am running the following script. It unprotects, runs spell check, and
then re-protects. That portion works. It does not however allow for
formatting rows once the macro runs. Any ideas why?


Sub Spellcheck_Click()

ActiveSheet.Unprotect Password:="**"
Cells.CheckSpelling SpellLang:=1033
ActiveSheet.Protect Password:="**"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFormattingRows:=True

End Sub

I ran a similar macro that made the row formatting work, but when I
tried to add the password to it it would not reprotect with the
password.


--
Kevin Ward
------------------------------------------------------------------------
Kevin Ward's Profile: http://www.excelforum.com/member.php...o&userid=31417
View this thread: http://www.excelforum.com/showthread...hreadid=516394

Your code worked ok for me in xl2003. But I don't think I'd have two .protect
lines in the

Option Explicit

Sub Spellcheck_Click()

ActiveSheet.Unprotect Password:="**"
Cells.CheckSpelling SpellLang:=1033
ActiveSheet.Protect Password:="**", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingRows:=True

End Sub

Actually, when I ran your code, the worksheet ended up protected with no
password.


Kevin Ward wrote:

I am posting this here as well since this is the "Best Forum to Post":)

I am running the following script. It unprotects, runs spell check, and
then re-protects. That portion works. It does not however allow for
formatting rows once the macro runs. Any ideas why?

Sub Spellcheck_Click()

ActiveSheet.Unprotect Password:="**"
Cells.CheckSpelling SpellLang:=1033
ActiveSheet.Protect Password:="**"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFormattingRows:=True

End Sub

I ran a similar macro that made the row formatting work, but when I
tried to add the password to it it would not reprotect with the
password.

--
Kevin Ward
------------------------------------------------------------------------
Kevin Ward's Profile: http://www.excelforum.com/member.php...o&userid=31417
View this thread: http://www.excelforum.com/showthread...hreadid=516394

--

Dave Peterson

Thanks for your help. I played around with having only one protect.
this is what finally worked.

Sub Spellcheck_Click()

ActiveSheet.Unprotect Password:="**"
Cells.CheckSpelling SpellLang:=1033
ActiveSheet.Protect Password:="**", DrawingObjects:=True,
Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True

End Sub


--
Kevin Ward
------------------------------------------------------------------------
Kevin Ward's Profile: http://www.excelforum.com/member.php...o&userid=31417
View this thread: http://www.excelforum.com/showthread...hreadid=516394