Просмотр листа с использование пароля

[asale]

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

[pashulka]

Можно использовать, например, событие рабочего листа Worksheet_Activate() для каждого рабочего листа (небольшой пример можно скачать здесь) или аналогичное событие рабочей книги Workbook_SheetActivate(ByVal Sh As Object)
Но здесь есть свои нюансы: Во-первых, при активации листа будет видно его содержимое, конечно с этим можно бороться, если, например, свернуть окно ActiveWindow.WindowState = xlMinimized или скрыть приложение Application.Visible = False, но в течении небольшого промежутка времени - содержимое всё равно будет отображаться. Во-вторых, при открытии или активации рабочей книги - не возникает активации листа, т.е. будет виден весь лист. Здесь также можно прибегнуть к свёртыванию/скрытию, или перед закрытием и деактивацией книги выделять какой-нибудь "нейтральный" лист, типа оглавления, или даже использовать почти забытые свойства OnSheetActivate/OnSheetDeactivate, но можно поступить по другому, а именно, изначально скрыть все листы, кроме одного (как это было сделано в Вашем прошлом топике), и по мере необходимости отображать нестандартное диалоговое окно, где можно будет выбрать нужный лист и после проверки правильности ввода пароля, отображать выбранный лист. Если такой вариант интересен, то можно создать небольшой пример.

[asale]

Добрый день, Pashulka.
Вы мне опять очень могли. Предложенного варианта вполне достаточно. Только скажите, пожалуйста, а какой пароль следует вводить для просмотра листа?
Спасибо.

[pashulka]

Asale, Если речь идёт о опубликованном примере, то там используется пароль Dara. Однако, в этом примере при проверке правильности пароля - не учитывается регистр, т.е. допускается ввод DARA, или DarA. Если сие недопустимо, то уберите или закомментируйте инструкцию Option Compare Text. Да, и неплохо бы поставить пароль на VBProject, это "защитит" нужный пароль от праздношатающихся граждан.

P.S. Если листов действительно много, то можно воспользоваться событием рабочей книги Workbook_SheetActivate(ByVal Sh As Object) которое нужно расположить в модуле ThisWorkbook(ЭтаКнига)
В этом случае, Вам не придётся прописывать событие Worksheet_Activate() в каждом рабочем листе, но необходимо будет проверять - какой именно лист был активирован. Для этого можно воспользоваться об'ектом Sh (Sh.Name, Sh.CodeName) но и здесь есть свои нюансы, например, при использовании свойства Name желательно помнить, что лист может быть переименован (с этим можно бороться, если установить защиту книги: Сервис-Защита-Защитить книгу-Структура- ...) А при использовании свойства CodeName нужно помнить, что не все листы имеют это свойство, например, листы диалога (с этим можно бороться, если проверять тип листа используя, например, VB функцию TypeName)

[asale]

Спасибо.
Очень подробная инструкция.
СПАСИБО.

[asale]

Только один ньанс я нашел в данной программе.
Человек при запуске может нажать - "отключить макросы" и после этого он увидит защищаемый лист.
Это можно обойти как-нибудь?

[pashulka]

На самом деле этот пример был создан для демонстрации ввода пароля, а активация листа и скрытие приложения использованы там только для красоты. Что касается отключения макросов и связанного с этим безобразием, то один вариант уже был предложен в конце второго сообщения, второй же вариант заключается в том, что начиная с MS Excel 2000 Вы можете подписать свой проект цифровой подписью. В этом случае, даже при высоком уровне безопасности, Ваши макросы будут выполняться, а при открытии книги не будет появляться диалоговое окно с предпреждением. Если этот вариант интересен, то более подробную информацию Вы сможете получить в офисной справке (см. ключевые слова цифровой сертификат, цифровая подпись)

[Noor]

да а как заполучить этот сертификат ... это было бы круто ..

[pashulka]

Эти сертификаты делятся на две части : официальные, т.е. зарегистрированные и естественно платные, и собственные, т.е. созданные Вами с использованием файла SELFCERF.EXE (который должен наличествовать на машине, если при установке офиса Вы выбрали опцию установить цифровой сертификат) И для личного использования вполне подойдёт второй вариант.

P.S. Если при запуске вышеупомянутого файла ничего не происходит, то скорее всего причина заключается в версии - MS Office 2000 Rus. В этом случае, можно просто поискать этот файл на сайте корпорации Microsoft.

[Noor]

у меня все это стоит , я не пойму как подписать ....
Запускаю программу а она отображается в самом минимальном размере, с одной кнопкой [Х] закрыть