Существует несколько параметров, перечисленных на этом веб-сайте
Попробуйте использовать дополнительный параметр пароля, например:
Sub OpenBookTest()
Dim myFile As String
Dim myPath As String
myPath = "C:\My Documents"
myFile = "My Workbook.xls"
Workbooks.Open myPath & "\" & myFile, password:="password"
End Sub
Или записать по-другому:
Workbooks.Open "Full Path Name", Password: ="XYZ"
После просмотра MSDN, я предполагаю, что ваша Workbook_Open
- это пользовательская подпрограмма, которую вы написали (или скопировали откуда-то онлайн).Если это так, то вам нужно будет отредактировать его, чтобы добавить дополнительный параметр пароля.Вы должны отредактировать свой вопрос и опубликовать свою подпрограмму Workbook_Open.Таким образом, мы будем знать, как вам помочь.