Hoe spellingcontrole toestaan ​​in een beveiligd werkblad in Excel?

can someone help me with this problem. its about this script.

Sub

ProtectSheetCheckSpellCheck()

'Update by Extendoffice 2018/11/2

Dim

xRg 

As

Range

On

Error

Resume

Next

Application.ScreenUpdating = 

False

With

ActiveSheet

.Unprotect (

"123"

)

Set

xRg = .UsedRange

xRg.CheckSpelling

.Protect (

"123"

)

End

With

Application.ScreenUpdating = 

True

End

Sub

Thanks for this. It has worked well, except that it changes my sheet protection settings every time I run it. I have my sheet protected, but set to allow users to format cells, columns, and rows; but after running this code, the protection is set back to the default. How can I retain my settings?
answer to that was; You have to modify the .protect code by adding allow the criteria you want. Worksheets("Sheet1").Protect,:=False, AllowInsertingColumns:=False, AllowInsertingRows:=False,:=False, AllowFiltering:=False, 
So please help my with the correct code if possible, cant get it to work with AllowInsertingRows.Protect ("Welkom") and then?????? bit of a nob tot thismy worksheet (tabs)  is called for example P&A or BIOp

and i can get it right in the original script?