Создание формы для книги EXCEL

[SAS888]

Во вложении предусмотрено, что при вводе пароля "000", отображаются все листы и снимаются все запреты.Пароли можно изменять в коде макроса "Private Sub HiddenPassword()" (массив a). Если нужно как-то по-другому, скажите что именно требуется.

[joojle]

Как добавить пароль это понятно, но хотелось бы что было так: я ввожу пароль открываются несколько страниц. я попробовал сделать так поставил на все страницы пароль 111 открывается только первая страница а нужно что открылись те страницы которым соответствует пароль 111

[SAS888]

Для этого нужно команду выхода из процедуры вынести за цикл. Т.е. фрагмент кода

For i = 0 To UBound(a)
    If Psw = a(i) Then
        Sheets(i + 1).Visible = True: Sheets(1).Visible = xlVeryHidden: Exit Sub
    End If
Next

Замените на

For i = 0 To UBound(a)
    If Psw = a(i) Then
        Sheets(i + 1).Visible = True: Sheets(1).Visible = xlVeryHidden
    End If
Next
Exit Sub

[joojle]

Это то что нужно СПАСИБО!

[tukhty]

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

[SAS888]

Пароль на VBA-проект - "abcd"

[joojle]

SAS888 Доброго времени суток! Вы извините но у меня опять к вам просьба по этой же теме.
Можно ли сделать так что бы в этом файле применялось к одному листу два пароля. т.е у пользователя 3 листа он своим паролем открывает для редактирования только эти 3 три листа, а второй пароль для просмотра: открываются все листы (свои и листы других пользователей). плюс к этому чтобы остался и админовский пароль.

[SAS888]

Посмотрите вложение.
Пароль на VBA-проект - "abcd", пароль для сохранения - "save".
В данном примере, при вводе пароля "111" отобразятся листы "Иванов" и "Сидоров". При вводе пароля "222" - лист "Петров". При вводе пароля "view" - отобразятся все листы для просмотра. При вводе пароля "000" - отобразятся все листы и снимутся все запреты.
Соответствие паролей и имен листов см. в коде макроса "HiddenPassword".
Пароль для просмотра должен быть последним в массиве паролей.

[aval]

Уважаемый SAS888!
При добавлении (в модуле формы) оператора Option Explicit и объявлении переменных a и b в Вашем примере выдается сообщение "Expected array" (ожидается массив).Как избежать этого сообщения?
И ещё: где можно посмотреть соответствие индексов 945,946 и т.д. конкретным пунктам меню ? Не приходилось встречать...
Приношу свои извинения за невежество, если не трудно, помогите, пожалуйста.

[SAS888]

При добавлении (в модуле формы) оператора Option Explicit...

О какой форме идет речь? В каком примере?

где можно посмотреть соответствие индексов 945,946 и т.д. конкретным пунктам меню ?

Например, Здесь.