Серый форум — VBA: Запаролить листы в книге Excel

Re: VBA: Запаролить листы в книге Excel

null@example.com (alexii) — Thu, 24 Jun 2021 16:09:08 +0000

misha_057 пишет:

Это для снятия защиты, что совсем не обязательно. Пользователю можно открыть несколько ячеек для ввода, а лист держать под паролем.
Как таким методом отобразить скрытый лист, соответствующий паролю? Без хранения, наверное, никак.

Я же написал — как. К сожалению, сие не работает, поскольку ошибка при исполнении метода .Unprotect(), увы, не перехватывается:

+ открыть спойлер

Re: VBA: Запаролить листы в книге Excel

null@example.com (misha_057) — Thu, 24 Jun 2021 11:39:25 +0000

alexii пишет:

заводим массив/словарь листов, перебираем листы, пробуем введённый пароль

Это для снятия защиты, что совсем не обязательно. Пользователю можно открыть несколько ячеек для ввода, а лист держать под паролем.
Как таким методом отобразить скрытый лист, соответствующий паролю? Без хранения, наверное, никак.

alexii пишет:

Сие тоже отнюдь не панацея — пользователь может сохранить Рабочую книгу (со снятой защитой), а затем тупо «снять» процесс excel.exe.

Что же он сохранит со своим паролем, только свои раскрытые листы?

Уже изобрели макрос сброса паролей листов, который можно легко нагуглить, так что изощряться с паролями нет смысла.
Интересно другое, этот макрос нужно вставить в редактор, поможет ли здесь защита редактора паролем?

Re: VBA: Запаролить листы в книге Excel

null@example.com (alexii) — Wed, 23 Jun 2021 19:43:30 +0000

Пожалуй, надо пояснить.

Во времена первых архиваторов под MS DOS был такой прародитель архиваторов PKARC (не тот, который тоже назывался PKARC, а позже стал PKZIP, а оригинальный). Так вот он нигде не хранил пароль от архива, а тупо использовал введённый пароль для расшифровки. Если пароль был неправильный — получалась белиберда.

Так же и здесь — просто заводим массив/словарь листов, перебираем листы, пробуем введённый пароль для снятия защиты, перехватываем ошибку времени исполнения при методе .UnProtect(). В массиве/словаре помечаем, для каких листов удалось снять защиту (и только для них же при закрытии книги выполняем .Protect()).

P.S. Сие тоже отнюдь не панацея — пользователь может сохранить Рабочую книгу (со снятой защитой), а затем тупо «снять» процесс excel.exe.

Re: VBA: Запаролить листы в книге Excel

null@example.com (alexii) — Wed, 23 Jun 2021 19:21:23 +0000

misha_057, предлагаю нигде не хранить.

Re: VBA: Запаролить листы в книге Excel

null@example.com (misha_057) — Wed, 23 Jun 2021 08:01:34 +0000

alexii пишет:

Просто не надо хранить пароли в коде.

Где предлагаете их хранить для книги Екселя? И чем плоха защита макроса паролем?

Re: VBA: Запаролить листы в книге Excel

null@example.com (alexii) — Tue, 22 Jun 2021 20:32:11 +0000

misha_057 пишет:

В вопросе не сказано о возможности видеть листы,

Как бы:

ypppu пишет:

Но тогда перестаёт работать то, ради чего всё делалось: пользователь начинает видеть все листы в книге

так.

misha_057 пишет:

Если нужна защита посильнее - листы можно скрыть при закрытии файла и активировать нужный при открытии. И макросы тоже можно запаролить. А от мамкиных хакеров в Екселе защиты нет.

Просто не надо хранить пароли в коде.

Re: VBA: Запаролить листы в книге Excel

null@example.com (misha_057) — Tue, 22 Jun 2021 09:21:16 +0000

alexii
Что "ну и?" Адекватный пользователь откроет файл, а не начнет его ломать.
В вопросе не сказано о возможности видеть листы, а сказано - получить доступ.
Если нужна защита посильнее - листы можно скрыть при закрытии файла и активировать нужный при открытии. И макросы тоже можно запаролить. А от мамкиных хакеров в Екселе защиты нет.

Re: VBA: Запаролить листы в книге Excel

null@example.com (alexii) — Sat, 19 Jun 2021 00:01:33 +0000

misha_057, ну, и? Я открыл файл, отказался от исполнения макросов и вижу оба листа. Нажал ALt-F11, посмотрел в код, снял парольную защиту.

Re: VBA: Запаролить листы в книге Excel

null@example.com (misha_057) — Fri, 18 Jun 2021 10:05:47 +0000

ypppu Есть такая возможность.

Re: VBA: Запаролить листы в книге Excel

null@example.com (ypppu) — Tue, 26 Nov 2019 03:47:08 +0000

Ясно, спасибо.

Re: VBA: Запаролить листы в книге Excel

null@example.com (alexii) — Mon, 25 Nov 2019 21:24:46 +0000

ypppu, в общем и целом — нет такой возможности.

Re: VBA: Запаролить листы в книге Excel

null@example.com (ypppu) — Sat, 23 Nov 2019 09:51:04 +0000

red2881, спасибо, но по первой ссылке вводятся ограничения на область в рамках листа, в то время как нужно ограничить доступ к листу в рамках книги.

По второй ссылке находится пример, который я и описывал в первом сообщении. Он, судя по всему, построен на костылях и подпорках. При выходе из программы скрипт пытается сохранить файл без моего ведома, что уже не очень то правильно. Но это полбеды, если его открывает человек, имеющий права только на чтение файла, вылезает ошибка visual basic: [End] / [Debug] / [Отмена], плюс дважды вылезает окно с предложением сохранить файл.

Эти нежелательные окна перестают вылезать, если удалить в скрипте строку ThisWorkbook.Save. Но тогда перестаёт работать то, ради чего всё делалось: пользователь начинает видеть все листы в книге, окно ввода пароля при этом можно просто игнорировать.

Re: VBA: Запаролить листы в книге Excel

null@example.com (red2881) — Fri, 22 Nov 2019 17:49:09 +0000

ypppu
Добрый вечер.
http://www.cyberforum.ru/vba/thread781094.html
https://www.excel-vba.ru/chto-umeet-exc … tdiapazon/

VBA: Запаролить листы в книге Excel

null@example.com (ypppu) — Thu, 21 Nov 2019 19:31:10 +0000

Существует ли способ запаролить отдельные листы без багов и глюков? Чтобы пользователь открыл файл xls, в выпадающем списке выбрал свой логин, ввёл пароль и получил доступ только к определённым листам.
В интернете находил один способ, но там сплошные костыли, то и дело вылетает предупреждение visual basic: End / Debug / Отмена.
Примечание: файл xls одним пользователям будет доступен только для чтения, другим с возможностью изменения.