#excel #excel-formula #excel-2010
Вопрос:
Я перепробовал множество способов защиты нескольких документов Word с помощью другого пароля. В моем файле пароля excel есть весь список имен файлов Word, путь в столбце A и список другого пароля в столбце B ( минимум 100 файлов excel, а максимум может достигать 500 файлов) в соответствии с именем столбца Excel необходимо назначить пароль столбцу B в книге папок. Это действительно больно делать каждый месяц вручную.
Sub protectwpwd()Dim i As Long, wb As Workbook, ws As Worksheet
i = 1 Set wb = ThisWorkbook
Set ws = wb.ActiveSheet
While ws.Cells(i, 1) <> ""
Workbooks.Open ws.Cells(i, 1)
ActiveWorkbook.Saveas ws.cells(i,1),Password:=ws.Cells(i, 2)
ActiveWorkbook.Close
i = i 1
Wend
Конец Суб
Ваше «Назначение пароля нескольким книгам в данной папке» очень полезно для меня в Excel. Пожалуйста, дайте мне то же самое для файлов Word и PDF.
Комментарии:
1. Sub protectwpwd() Dim i До тех Пор, wb Как Рабочая Книга, ws Как Рабочий лист i = 1 Набор wb = Набор этой рабочей книги ws = wb.Таблица активов, В то время как ws.Ячейки(i, 1) <> «» Книги. Откройте ws.Cells(i, 1) ActiveWorkbook. Сохраните ws.ячейки(i,1),Пароль:=ws.Ячейки(i, 2) ActiveWorkbook. Закройте i = i 1 Конец конца, пожалуйста, дайте мне тот же код для *.docx *.pdf