Allow Functionality on Protected Sheet|VBA & Macros|Excel Forum|My Online Training Hub

Hi - I have a similar issue to Prescott Rose and want to extend this functionality so I can:

Format Cells

Format Columns

Format Rows

Sort

Use Auto Filter

Use PivotTable & PivotChart

Can you provide me with the additional VBA code so after spell check this functionality remains? Current code below

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