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!