Hi,

I am using the following code for a spell cehcking control on a protected
sheet. I want to allow unlocked rows that have word wrap enabled to autofit
the contents of the unlocked rows.

Private Sub SpellCheck_Click()

ActiveSheet.Unprotect Password:="00000"
Cells.CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True
ActiveSheet.Protect Password:="00000"
' Allow rows to be formatted (autofit) on a protected worksheet.
If ActiveSheet.Protection.AllowFormattingRows = False Then
ActiveSheet.Protect AllowFormattingRows:=True
End If

End Sub

This works except when this code runs and there is no spelling errors. Then,
it reprotects the sheet, but removes the password.

Any suggestions on how to fix this?

Thanks!

Well, I still can't seem to get this to work, so I'm going to bump this up.

"mooresk257" wrote:

Hi,

I am using the following code for a spell cehcking control on a protected
sheet. I want to allow unlocked rows that have word wrap enabled to autofit
the contents of the unlocked rows.

Private Sub SpellCheck_Click()

ActiveSheet.Unprotect Password:="00000"
Cells.CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True
ActiveSheet.Protect Password:="00000"
' Allow rows to be formatted (autofit) on a protected worksheet.
If ActiveSheet.Protection.AllowFormattingRows = False Then
ActiveSheet.Protect AllowFormattingRows:=True
End If

End Sub

This works except when this code runs and there is no spelling errors. Then,
it reprotects the sheet, but removes the password.

Any suggestions on how to fix this?

Thanks!

Bump

"mooresk257" wrote:

Hi,

I am using the following code for a spell cehcking control on a protected
sheet. I want to allow unlocked rows that have word wrap enabled to autofit
the contents of the unlocked rows.

Private Sub SpellCheck_Click()

ActiveSheet.Unprotect Password:="00000"
Cells.CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True
ActiveSheet.Protect Password:="00000"
' Allow rows to be formatted (autofit) on a protected worksheet.
If ActiveSheet.Protection.AllowFormattingRows = False Then
ActiveSheet.Protect AllowFormattingRows:=True
End If

End Sub

This works except when this code runs and there is no spelling errors. Then,
it reprotects the sheet, but removes the password.

Any suggestions on how to fix this?

Thanks!

does changing the protection line make a difference?

Private Sub SpellCheck_Click()

ActiveSheet.Unprotect Password:="00000"
Cells.CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True
' Allow rows to be formatted (autofit) on a protected worksheet.
If ActiveSheet.Protection.AllowFormattingRows = False Then
ActiveSheet.Protect AllowFormattingRows:=True
End If

ActiveSheet.Protect Password:="00000" ' <=== moved to here

End Sub


"mooresk257" wrote in message
...
Bump

"mooresk257" wrote:

Hi,

I am using the following code for a spell cehcking control on a protected
sheet. I want to allow unlocked rows that have word wrap enabled to
autofit
the contents of the unlocked rows.

Private Sub SpellCheck_Click()

ActiveSheet.Unprotect Password:="00000"
Cells.CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True
ActiveSheet.Protect Password:="00000"
' Allow rows to be formatted (autofit) on a protected worksheet.
If ActiveSheet.Protection.AllowFormattingRows = False Then
ActiveSheet.Protect AllowFormattingRows:=True
End If

End Sub

This works except when this code runs and there is no spelling errors.
Then,
it reprotects the sheet, but removes the password.

Any suggestions on how to fix this?

Thanks!

does changing the protection line make a difference?

Private Sub SpellCheck_Click()

ActiveSheet.Unprotect Password:="00000"
Cells.CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True
' Allow rows to be formatted (autofit) on a protected worksheet.
If ActiveSheet.Protection.AllowFormattingRows = False Then
ActiveSheet.Protect AllowFormattingRows:=True
End If

ActiveSheet.Protect Password:="00000" ' <=== moved to here

End Sub


"mooresk257" wrote in message
...
Bump

"mooresk257" wrote:

Hi,

I am using the following code for a spell cehcking control on a protected
sheet. I want to allow unlocked rows that have word wrap enabled to
autofit
the contents of the unlocked rows.

Private Sub SpellCheck_Click()

ActiveSheet.Unprotect Password:="00000"
Cells.CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True
ActiveSheet.Protect Password:="00000"
' Allow rows to be formatted (autofit) on a protected worksheet.
If ActiveSheet.Protection.AllowFormattingRows = False Then
ActiveSheet.Protect AllowFormattingRows:=True
End If

End Sub

This works except when this code runs and there is no spelling errors.
Then,
it reprotects the sheet, but removes the password.

Any suggestions on how to fix this?

Thanks!

I've tried that. It mostly solvevs the issue of removing the password, but
then the row formatting doesn't work, i.e. AllowFormattingRows = False.

I need to be able to have the rows autofit to wrapped text, which won't
happen unless the row formatting is allowed. Otherwsie I'd take that part of
the code out.


"Patrick Molloy" wrote:

does changing the protection line make a difference?

Private Sub SpellCheck_Click()

ActiveSheet.Unprotect Password:="00000"
Cells.CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True
' Allow rows to be formatted (autofit) on a protected worksheet.
If ActiveSheet.Protection.AllowFormattingRows = False Then
ActiveSheet.Protect AllowFormattingRows:=True
End If

ActiveSheet.Protect Password:="00000" ' <=== moved to here

End Sub


"mooresk257" wrote in message
...
Bump

"mooresk257" wrote:

Hi,

I am using the following code for a spell cehcking control on a protected
sheet. I want to allow unlocked rows that have word wrap enabled to
autofit
the contents of the unlocked rows.

Private Sub SpellCheck_Click()

ActiveSheet.Unprotect Password:="00000"
Cells.CheckSpelling _
CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, _
AlwaysSuggest:=True
ActiveSheet.Protect Password:="00000"
' Allow rows to be formatted (autofit) on a protected worksheet.
If ActiveSheet.Protection.AllowFormattingRows = False Then
ActiveSheet.Protect AllowFormattingRows:=True
End If

End Sub

This works except when this code runs and there is no spelling errors.
Then,
it reprotects the sheet, but removes the password.

Any suggestions on how to fix this?

Thanks!