Running Macro disables a certain "allow users" function on a protected sheet

[dvine2us]

I have an excel spreadsheet that is protected but allows users to select unlocked cells and format rows (so they can adjust height). I also have a macro to spell check the sheet. When the macro button is selected by the user to spell check their entries, the spell check works fine, but then the "allow user to format rows" goes away and the user can no longer adjust row height

This is the macro code I have to allow spell check on protected sheet

Sub ProtectSheetCheckSpellCheck()
'Update by Extendoffice 2018/11/2
Dim xRg As Range
On Error Resume Next
Application.ScreenUpdating = False
With ActiveSheet
.Unprotect ("dcs")
Set xRg = .UsedRange
xRg.CheckSpelling
.Protect ("dcs")
End With
Application.ScreenUpdating = False
End Sub


Help needed - Thanks in advance

 

[Candyman8019]

Try changing this line:
.Protect ("dcs") to

.Protect ("dcs") AllowFormattingCells:=True
.EnableSelection = xlNoRestrictions

 

[dvine2us]

I pasted your suggestion exactly as you provided , now getting

 

[Candyman8019]

Put a space Before ‘allow…’

 

[dvine2us]

Yeah, still getting the error

 

[dvine2us]

Thanks - My company uses this Excel sheet to generate a form and users have a habit of jacking it all up because the sheet is not locked down. So I trying to fix that and I am no excel guro, but have more experience then whoever created this sheet in the first place. But Excel takes away auto row height adjustment and the user spell check option when protected Really sucks that those 2 options are lost simply because I want to protect the sheet

 

[Candyman8019]

You can also try adding:
.CheckSpelling
.EntireRow.AutoFit

 

[Fluff]

You need to put a comma before the AllowFormattingCells

 

[dvine2us]

That's it the comma did the trick - Thanks

 

[Fluff]

Glad we could help & thanks for the feedback.