Структура данных и защита листа

[Legame]

SAS888, добрый вечер
могу еще уточнить пару вопросов?
вот в последнем предложенном вами варианте файла, действительно не работает функция копирования(путем ctrl+С, ctrl+V) а например если выбрать ctrl+ins/shift или кнопки copy/paste все копируется в буфер. возможно ли дописать отключение данной возможности?
а также отменить выделение всего листа(ctrl+A)

помогите плиз.

[SAS888]

В следующем вложении все добавлено по Вашей просьбе. (пароль на VB-проект тот же)
Если Вы внимательно проанализируете макросы запрета и разрешения выполнения команд, то найдете там фрагменты, перехватывающие нажатие нужных клавиш и их сочетаний (метод OnKey). Разобравшись, Вы без труда сможете делать это сами.

[ARud]

SAS888 привет,
хорошо что есть такой спец по макросам, и можно поинтересоваться, подскажи пожалуйста, как можно запаролить один из листов таким образом, чтобы только определенные пользователи могли войти на этот лист, т.е. нужно на мой взгляд сделать Login и Password окошко, если вводишь правильно по попадаешь на этот лист, в противном случае содержимое листа не должно показываться. Как такое можно сделать, подскажи пожалуйста!
Спасибо!!!

[Legame]

SAS888, в очередной раз благодарю... буду разбираться

[SAS888]

ARud
Правило, наверное, любого форума: отдельный вопрос - отдельная тема. Впредь, имейте ввиду.
Теперь по существу. Эта тема достаточно "избита". По-моему, где-то и на нашем форуме есть что-то подобное.
Вот что я "набросал" на скорую руку (см. вложение).
Работать так:
При открытии файла появится приглашение ввести логин и пароль. В предлагаемом примере - это "Иванов" (пароль "111"), "Петров" (пароль "222") и "Сидоров" (пароль "333"). При правильном вводе отобразится именно этот (единственный) лист. Далее, пользователь, получивший доступ, может на этом листе делать все, что угодно, за исключением работы с листами (Удалить, Добавить, Переименовать и т.д.). Эти функции запрещены. Для добавления (изменения) имен листов, паролей и количества листов, при входе логин - "Admin", пароль - "000". После такого вода отобразятся все существующие листы и появится возможность добавления (удаления, переименования и т.д.) листов. Затем войдите в VBE (пароль на проект - "abcd") и добавьте (измените) доступные логины и пароли. Они находятся в массивах "a" и "b" соответственно в модуле "UserForm1" в процедуре "Private Sub CommandButton1_Click()".

[ARud]

SAS, большущее спасибо!
Да, похожий макрос такой был, но небыло у него системы защиты, т.е. если нажать на "не отключать макросы" то можно зайти на ту страницу ради которой создавался макрос и редактировать, у тебя она не появляется, что есть гуд ! Теперь добавлю свои легкие макросы и все будет тип топ!!!

[glaucine]

Сообщение от SAS888

Все именно так. Только про автофильтр сразу ничего не было сказано.
Посмотрите вложение. Здесь на рабочем листе разрешены выделение, использование автофильтра и использование функции группировки. Чтобы изменить пароль защиты листа, снимите установленную защиту (пароль "abcd"), войдите в VBA-проект (пароль "1234") и присвойте свое значение переменной "MyPassword". Затем в свойствах проекта во вкладке "Protection" введете (в оба поля одно и то же) пароль на защиту самого VBA-проекта (вместо существующего "1234"). Сохраните файл. Ваши установки вступят в силу при следующем открытии.
Необходимо заметить, что создавать и отменять автофильтр при включенной защите невозможно. Он должен быть создан до того, а примененная защита лишь разрешает его использование.

Уважаемый SAS888! А как сделать так, чтобы этот макрос работал не на одном листе, а на нескольких?

[SAS888]

Не совсем понятен вопрос. В этом файле предлагается ввести логин и пароль. И если ввод правильный, то открывается лист этого пользователя. Т.е. каждый пользователь не зная логина и пароля других, не может войти на их личный лист.

[winfacks]

2 sas888:
ХЕЛП!
Трошки переделал под себя - вставил ваш модуль себе в хвайлик, проставил пароли на листы, но какой то буторочек - видать не все учел:
Перемещает не на те листы, на которые пароли стоят, под админом все листы не открываються ...
Если поможете - буду рад, счастлив и ваще!
(хвайлик прилагаеться ...)

[SAS888]

Перемещает не на те листы, на которые пароли стоят

Потому, что в коде обращение к листам осуществлялось не по имени, а по порядковому номеру.

под админом все листы не открываються

Не вижу этой проблемы. Листы видны все.
Посмотрите во вложении немного измененный файл под Ваши нужды. Теперь листы могут находиться в произвольном порядке.