Макро: Программно удалить известные пароли Excel

Question

Есть ли способ удалить KNOWN пароль из файла Excel через макрос VBA? Веб-поиск возвращает метод только для взлома неизвестных паролей Excel.

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

Answer 1

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

например.

Sub OpenAndSaveWithoutPasswords() 

    Dim wb As Workbook 

    Application.DisplayAlerts = False 

    Set wb = Workbooks.Open(Filename:="YOUR PATH AND FILENAME", Password:="OPEN PASSWORD", WriteResPassword:="MODIFY PASSWORD") 
    wb.SaveAs Filename:="YOUR PATH AND FILENAME AGAIN", Password:="", WriteResPassword:="" 

    Application.DisplayAlerts = True 

End Sub 

Примечание: Workbooks.Open, кажется, требует скобок, wb.SaveAs не требует скобок (не спрашивайте меня, почему).

Answer 2

Просто сохраните книгу без пароля:

ActiveWorkbook.SaveAs