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?

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I did it for you this time. Please read forum rules. Thanks