Пароль не применяется, когда я защищаюсь от другой книги

Question

Этот код предназначен для кнопки, он должен защищать все листы другой рабочей книги, он работает, но не защищает их паролем, я не знаю почему. Он обнаруживает Pass, но по какой-то причине не защищает его. Как вы можете видеть на изображении, он обнаруживает пароль, но не применяет его.

Private Sub CommandButton3_Click()
Dim wb As Excel.Workbook
Application.ScreenUpdating = False
Pass = Sheets("Pass").Range("C5").Value
    If Sheets("Pass").Range("C5").Value <> "" Then
        Set wb = Workbooks.Open("G:\SnP\L-3\Nómina\Nómina 1° Turno.xlsm")
        With wb
            For i = 1 To Sheets.Count
            Sheets(i).Protect Password:=Pass, DrawingObjects:=True, Contents:=True, Scenarios:=True
            Next i
            Listop = MsgBox("Listo")
            Application.ScreenUpdating = True
            'wb.Close Savechanges:=True
        End With
        Exit Sub
    Else
        Err = MsgBox("Agregar Nueva o Vieja contraseña")
    End If
End Sub

Я не знаю, важно ли это, но у меня также есть Unprotect внизу, который работает хорошо.

Private Sub CommandButton4_Click()
Dim wb As Excel.Workbook
Application.ScreenUpdating = False
Pass = Sheets("Pass").Range("C5").Value
    If Sheets("Pass").Range("C5").Value <> "" Then
        Set wb = Workbooks.Open("G:\SnP\L-3\Nómina\Nómina 1° Turno.xlsm")
        With wb
            For i = 1 To Sheets.Count
            Sheets(i).Unprotect Pass
            Next i
            Listop = MsgBox("Listo")
            Application.ScreenUpdating = True
        End With
        Exit Sub
    Else
        Err = MsgBox("Agregar Nueva o Vieja contraseña")
    End If
End Sub

Answer 1

Я подозреваю, что это неверная область в вашем разделе "С wb".

Попробуйте. Листы, где у вас есть листы в этом разделе, чтобы уточнить, к какой книге относятся листы.