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
Always best to add an example workbook so we can see the data or the code and we don't have to recreated.
Have you seen this blog post by Phil?
https://www.myonlinetraininghub.com/protect-and-unprotect-all-sheets-in-a-workbook
Example workbook attached (Password is "123")
