Попытка защитить определенный лист в рабочей книге, но получить ошибку 40036

Question

Я открываю определенный набор файлов как wb, он читает лист, таким образом, мой msgbox в качестве проверки, но когда я прихожу для защиты того же листа, я получаю ошибку компилятора.

Я перепробовал множество методоввыполнить эту задачу, но ничего не происходит, например активировать конкретный лист «Главная страница», выбрать его и т. д., но безрезультатно.

Куда я иду не так?Спасибо

    Dim Sht As Worksheet
    Dim wb As Workbook
    Dim LastRow As Long
    Dim WSName As String
    Dim URNName As String
    Dim lRow As Long

    Workbooks.Open Filename:= "\\Folder\1718 list of SD(s) trainees.xlsm"

    Worksheets("pivot").Activate

    LastRow = 240

    For i = 4 To 240

        WSName = Cells(i, 6)
        URNName = Cells(i, 7)

        ' Workbooks.Open Filename:="\\Folder\Annex G Usage\" & WSName & " " & URNName & " SD(s)17-18 Statement of Grant Usage.xlsm"
        Set wb = Workbooks.Open("\\Folder\Annex G Usage\" & WSName & " " & URNName & " SD(s)17-18 Statement of Grant Usage.xlsm")

        MsgBox " Name" & Cells(10, 3)

        ' wb.Sheets("Front Page").Activate

        ActiveSheet.Protect Password:="SOReadyToHelp", _
                            DrawingObjects:=True, _
                            Contents:=True, _
                            Scenarios:=True, _
                            AllowSorting:=True, _
                            AllowFiltering:=True, _
                            AllowUsingPivotTables:=True

        ActiveWorkbook.Save
        ActiveWindow.Close

    Next i

End Sub