Найти пароль

Question

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

Как мне найти значение пароля в отдельной таблице при сохранении файлов с помощью макроса?

В этот момент мой код выглядит следующим образом с предустановленным паролем (путь к файлу / имя сокращено для простоты).

ActiveWorkbook.SaveAs Filename:= "filepath\filename" , FileFormat:= _xlOpenXMLWorkbook, Password:= "Test"

Это работает, но я хочу, чтобы пароль был заменен значением, которое ищется из другой электронной таблицы. Любая помощь будет оценена.

Спасибо

Answer 1

Вам нужно будет адаптировать это к вашим конкретным потребностям, но что-то вроде этого должно дать вам начало:

Sub testLookup()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("sheet name")
Dim lRow As Long: lRow = ws.Cells(Rows.Count).End(xlUp).Row

Dim arrRecipients: arrRecipients = ws.Range("A1:B" & lRow) 'assume path in col A, password col B

For R = LBound(arrRecipients) To UBound(arrRecipients)
    ActiveWorkbook.SaveAs FileName:=arrRecipients(R, 1), FileFormat:=xlOpenXMLWorkbook, Password:=arrRecipients(R, 2)
Next R

End Sub