Не удалось обойти пароль в окне открытия файла

Question

Я пытаюсь открыть файл в VBA. Я использую следующий код.

Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
myArray = ActiveSheet.Range("M1:M5") 

Set fd = Application.FileDialog(msoFileDialogFilePicker) 
fd.InitialFileName = "Desktop" 
fd.InitialView = msoFileDialogViewList 
fd.AllowMultiSelect = True 
FileChosen = fd.Show 

If FileChosen = -1 Then 

For j = 1 To fd.SelectedItems.Count 
    For i = LBound(myArray, 1) To UBound(myArray, 1) 
     Dim wb2 As Workbook 
     Set wb2 = Workbooks.Open(fd.SelectedItems(j), ReadOnly:=True,Password:=myArray(i, 1)) 
     Debug.Print myArray(i, 1) 
     If Not wb2 Is Nothing Then Exit For 
    Next i 
    'Processing the File 
Next j 

End If 
Application.DisplayAlerts = True 
Application.ScreenUpdating = True 

End Sub 

Array Содержит мой пароль. Когда я открываю его вручную, он запрашивает пароль для доступа, и когда я ввожу пароль, он снова запрашивает пароль, который предназначен для доступа к записи. Я также получаю возможность читать только второй раз, и я уже поместил это в свой код. Также я дал alll возможные пароли в моем массиве M1: M5. поэтому я не знаю, в чем проблема. Кто-нибудь может мне помочь, пожалуйста? Заранее спасибо.

Редактировать: Выбрасывает ab Ошибка времени выполнения '1004' Неверный пароль. Убедитесь, что ключ блокировки Caps выключен и обязательно используйте правильную заглавную букву. Я также хочу дать понять, что в файле есть два разных пароля.

Answer 1

Set wb2 = Workbooks.Open(fd.SelectedItems(j), ReadOnly:=True,Password:=myArray(i, 1)) 

только один пароль Password:=myArray(i, 1). Поскольку требуется два пароля, вам нужно будет указать другой, а также WriteResPassword:=<something>.

MS docs От:

WriteResPassword Строки, содержащей пароль, необходимую для записи в записи зарезервированных книг. Если этот аргумент опущен , а рабочей книге требуется пароль, , пользователю будет предложено ввести пароль.

^{какакцент добавил}

Я считаю, тот факт, что вы с указанием ReadOnly:=True будет держать его только для чтения, но кто-то должен указать Write пароль, код или вашего пользователя.

Он смотрит на меня, как ваш код петли

For i = LBound(myArray, 1) To UBound(myArray, 1) 
    Set wb2 = Workbooks.Open(fd.SelectedItems(j), ReadOnly:=True,Password:=myArray(i, 1)) 
    Debug.Print myArray(i, 1) 
    If Not wb2 Is Nothing Then Exit For 
Next i 

пытается открыть каждый файл, выбранный с каждым паролем. Я бы предположил, что вы еще не ударили какие-либо ошибки, потому что ваш первый пароль предоставлен в соответствии с первым выбранным файлом. Как только это не произойдет, ваш цикл выйдет, и вы никогда не сможете попробовать другой пароль в этом первом файле.

Кроме того, в качестве примечания, я бы рекомендовал переместить Dim wb2 As Workbook из петель - положите его в верхней части кода.