Узнать, есть ли пароль на открытие файла

Узнать, есть ли пароль на открытие файла, VBA

mav1984

Пользователь

Сообщений: 10 Регистрация: 01.01.1970

25.12.2015 16:57:19

Добрый день, коллеги!

Подскажите как можно программно нажать на кнопку отмена при появлении окна на ввод пароля при открытии файла через VBA. Или же узнать о наличии пароля до открытия файла.
Пароль неизвестен.

Суть в том, что есть большое количество файлов, часть из них запаролена, часть нет. Те, которые с паролем надо пропускать. Но при попытке открыть файл выскакивает окно на запрос пароля и макрос останавливается. Чтобы не дежурить у компьютера нужен способ узнать - стоит пароль на открытие файла или нет. Либо же нажать отмена.

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

25.12.2015 17:35:31

Код

Sub test()
    On Error Resume Next
    filename$ = "C:\Users\Игорь\Desktop\файл с паролем.xls"
    'filename$ = "C:\Users\Игорь\Desktop\файл без пароля.xls"

    Dim WB As Workbook
    Set WB = Workbooks.Open(filename$, , , , "")        ' задаём пустой пароль в параметрах Workbooks.Open

    If WB Is Nothing Then
        MsgBox "Файл не открыт - т.к. запаролен"
    Else
        MsgBox "Открыт файл " & WB.Name
    End If
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

mav1984 Пользователь Сообщений: 10 Регистрация: 01.01.1970	#3 25.12.2015 22:59:50 Спасибо! Всё работает )

Читают тему