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

 

[dvine2us]

Ha spoke too soon - That worked for allowing row formatting post macro run, but now allows locked cells to be accessed. Thanks though, I'll keep working it !

 

[Fluff]

Try adding

    ActiveSheet.EnableSelection = xlUnlockedCells

 

[dvine2us]

Man your good - Okay I'll keep testing it Thanks again !