Spell Check Macro for Protected Sheet

Hi everyone,

I will try to explain this as thoroughly yet as simply as possible.
Comment Box.png

Basically, I'm protecting the sheet with the exception of a few cells. The comment box in the image can be typed in and can have the row adjusted when the sheet is locked.


Since protecting the sheet results in spell check being disable, I've added a macro to the sheet which will run when a specific image is clicked.

This is an example of the macro I'm using;

Sub SpellCheckCell1()
    With ActiveSheet
        .Unprotect ("Maryland123")
        .Range("A37:AI37").CheckSpelling
        .Range("A76:AI76").CheckSpelling
        .Range("A123:AI123").CheckSpelling
        .Protect ("Maryland123")
    End With
End Sub

The problem I'm facing now is when the macro automatically protects the sheet again, it's not allowing the rows to be adjusted anymore. Does anyone know how I can alter the code shown above so the macro will protect the sheet but still allow the specific cells to be adjusted?