Код VBA - назначьте разные пароли различным файлам

Question

, если у меня есть таблица внизу в excel с разными именами файлов и ее пути. Как я могу назначить пароль для всех этих книг Excel? скажем для пути к файлу в ячейке B2 должен быть присвоен пароль в C2 путь к файлу в ячейке B3 должен быть присвоен пароль в С3 ... и т.д.

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

Извините, что я абсолютно новичок в VBA, начинаю исследовать его из-за необходимости работы.

спасибо!

Answer 1

Объявляется две переменных один держать файл то время как другой - пароль.

Затем, вам нужно всего лишь один единственный цикл (а не два), в котором Вы должны были бы:

1. Построить полное имя файла, который вы хотите установить пароль (на самом деле, у вас есть он в столбце в вашем примере),

2. Получить пароль, который должен использоваться для этого файла (столбец C в вашем примере),

3. Откройте файл, имя которого вы извлечены,

4. SaveAs с паролем, который вы извлекли,

5. Закрыть файл.

Петля должна выйти, как только полученное имя файла пуст.

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

Подсказка: редактор VB Excel позволяет вам установить точки останова, чтобы остановить выполнение и изучить значение переменных; это также поможет вам лучше понять, что вы делаете, и, если что-то не работает, быстро узнайте, что не так.

Последняя, ​​УДАЧА !!!!

Answer 2

@FDavidov

благодарит за слово! я могу найти код для назначения одного пароля всем файлам в папку. но я не знаю, как изменить его, чтобы он соответствовал моему scanario. кто-нибудь может посоветовать, как я должен измениться? благодаря!!!

Public Sub addPassword() Dim FSO как объект папка Dim As Object, вложенная As Object Dim Всемирного банка как объект

Set FSO = CreateObject("Scripting.FileSystemObject") 
folderPath = ActiveSheet.Range("C2").Value 
pwd = ActiveSheet.Range("C3").Value 
Set folder = FSO.GetFolder(folderPath) 

With Application 
    .DisplayAlerts = False 
    .ScreenUpdating = False 
    .EnableEvents = False 
    .AskToUpdateLinks = False 
End With 

For Each wb In folder.Files 
    If Right(wb.Name, 3) = "xls" Or Right(wb.Name, 4) = "xlsx" Or Right(wb.Name, 4) = "xlsm" Then 
     Set masterWB = Workbooks.Open(wb) 
     ActiveWorkbook.SaveAs Filename:=Application.ActiveWorkbook.FullName, Password:=pwd 
     ActiveWorkbook.Close True 
    End If 
Next 
For Each subfolder In folder.SubFolders 
    For Each wb In subfolder.Files 
     If Right(wb.Name, 3) = "xls" Or Right(wb.Name, 4) = "xlsx" Or Right(wb.Name, 4) = "xlsm" Then 
      Set masterWB = Workbooks.Open(wb) 
      ActiveWorkbook.SaveAs Filename:=Application.ActiveWorkbook.FullName, Password:=pwd 
      ActiveWorkbook.Close True 
     End If 
    Next 
Next 
With Application 
    .DisplayAlerts = True 
    .ScreenUpdating = True 
    .EnableEvents = True 
    .AskToUpdateLinks = True 
End With 

End Sub