Как определить, есть ли пароль не книге (excel) не открывая ее? / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как определить, есть ли пароль не книге (excel) не открывая ее?

1 сообщений из 1, страница 1 из 1

Как определить, есть ли пароль не книге (excel) не открывая ее?

#37414527

удшщтантон

Гость

Товарищи, буду признателен за помощь.

Есть код (VBA), который обрабатывает почтовый ящик и проверяет вложения на excel и сортирует их по ранее заданным шаблонам.
В каждом типе шаблонов есть определенный скрытый лист и в первой ячейке указан его тип.
В день порядка 1500 писем(1500 файлов ексель).

При проверке писем, я не открываю excel, а беру значение из скрытого листа с помощью функциии :

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

 
Function getvalue(file_path As String, sht_name As String, cell_RC As String) As String
Dim file_path As String
Dim file_name As String
file_dir = Left(x, InStrRev(file_path , "\", - 1 ))
file_name = Right(file_path , Len(file_path ) - InStrRev(file_path, "\", - 1 ))
getvalue = ExecuteExcel4Macro("'" & file_dir & "[" & file_name & "]" & sht_name & "'!" & cell_RC)
End Function

Этот способ очень эффективный по сравнению с открытием книги
(Set awb = Workbooks.Open(FileName:=file_path , UpdateLinks:=0, ReadOnly:=False, Password:="", WriteResPassword:=True, ignoreReadOnlyRecommended:=True, CorruptLoad:=xlRepairFile))

Но столкнулся с проблемой, что если книга с паролем, то всплывает окно с просьбой вести пароль и процедура стоппорится.
Никакие displayalersts=false не помагают.

Единственный вариант, который приходит на ум через OLEDB вытаскивать структуру файла, и если выдает ошибку "не удалось дешифровать файл, то игнорировать его:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

 
on error resume next
 With New ADODB.Connection
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & filepath & ";Extended Properties=Excel 8.0;"
    .CursorLocation = adUseClient
    .Open
    With .OpenSchema(adSchemaTables)
if err.number=- 2147467259   then goto next_file:

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

...

Рейтинг:

0 / 0

27.08.2011, 11:27

| Ответить | Цитировать | Написать

1 сообщений из 1, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=95&tid=2158468]:	0ms
get settings:	11ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	38ms
get topic data:	12ms
get forum data:	3ms
get page messages:	28ms
get tp. blocked users:	2ms
others:	248ms

total:	363ms