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

[сергей70]

Нет, требуется не это. Необходимо, чтобы при вводе пользовательского пароля (любого из списка) выходило 2 листа: 1-соответствующий этому паролю, а 2 -общий для всех пользователей. У меня это требуется для сотрудников, считающих себе зарплату - они все могут посмотреть принцип начисления ЗП (условия начисления ЗП у всех одинаковы), а саму зарплату (свою) видит только сотрудник и я.

[SAS888]

Необходимо, чтобы при вводе пользовательского пароля (любого из списка) выходило 2 листа...

Для этого, в макрос "HiddenPassword" последней строкой добавьте

Sheets("Лист1").Visible = True

где вместо "Лист1" подставьте имя требуемого листа.

[joojle]

Здравствуйте SAS888!
Я по поводу файла UserControl_6. Можно ли макросы которые находятся в этом файле перенести в OpenOffice.
Спасибо!

[s8259]

SAS888, добрый день! Позвольте 2 вопроса. В посте №46 указан пример UserControl_6, но при его тестировании оказалось, что при вводе любого пароля после команды на закрытие файл закрывается без сохранения. Или я что-то не понял, или что-то неправильно работает.
И второй вопрос. На базе Ваших примеров создал файл с перечнем паролей на открытие. А возможно сделать так, чтобы через определенное количество дней пароли на открытие менялись согласно второму списку паролей, указанных в макросе, т.е. по прошествию этого времени старым паролем было невозможно открыть файл?

[SAS888]

1. Пароли в файле "UserControl_6.xls" хранятся в массиве "a", который находится в макросе "Private Sub HiddenPassword()". Порядок такой: при вводе пароля, который соответствует нулевому элементу массива - открываются все листы (это для администратора). Далее, при вводе пароля, соответствующего 1-му элементу - откроется 1-й лист и т.д. И, наконец, значение последнего элемента массива - это пароль для сохранения. Т.е. если мы сохраняем книгу, то на запрос пароля на сохранение вводить нужно именно это значение. При вводе неверного пароля, книга закроется без сохранения. Будьте внимательны с количеством элементов массива паролей. Должно быть n = количество_листов + 2, т.к. нулевой - для полного доступа, а последний - это пароль на сохранение.
2. Для того, чтобы пароли изменялись в зависимости олт даты, можно вместо строки

a = Array("000", "111", "222", "111", "view")

которая имеется в вышеупомянутом макросе, заменить на конструкцию:

Select Case Date
    Case Is > #11/25/2010#: a = Array("ааа", "ббб", "ввв", "ггг", "ддд")
    Case Is > #11/15/2010#: a = Array("aaa", "bbb", "ccc", "ddd", "eee")
    '''
    Case Else: a = Array("000", "111", "222", "111", "view")
End Select

Т.е. если дата превышает 15 ноября 2010г., то пароли одни. Если дата превышает 25 ноября 2010г., то пароли другие и т.д. Обратите внимание, что сравнения нужно производить сверху вниз, т.к. оператор Select Case работает до первого выполненного условия. Все последующие игнорируются.

[s8259]

Спасибо, все получилось. А еще вопрос: "Возможно ввести в этот макрос обработку, при которой на определенную дату данный документ Excel придет в безвозвратную негодность (например, удаление всех формул или т.п.)?

[SAS888]

...данный документ Excel придет в безвозвратную негодность...

Да. Возможно. Можно даже удалить файл (сам себя) при попытке открыть его после определенной даты.

[s8259]

Подскажете, как это можно организовать в данном примере?

[VictorM]

Существует вот такой код.
Автор основы кода pashulka (Климов П.Ю.), доработан Pavel55

Private Sub ExpirationDate()
'ВНИМАНИЕ !!!!
'ТЕСТИРОВАТЬ НА НЕНУЖНОМ ФАЙЛЕ
'ФАЙЛ САМ УДАЛИТЬСЯ, ЕСЛИ ДАТА В КОДЕ БУДЕТ РАНЬШЕ, ЧЕМ СЕГОДНЯШНЯЯ

If Date >= #8/1/2007# Then 'месяц/число/год - 1 Августа 2007г.
iFullName$ = ActiveWorkbook.FullName
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
Application.DisplayAlerts = True
SetAttr iFullName$, vbNormal: Kill iFullName$
ActiveWorkbook.Close saveChanges:=False
End If
End Sub

Также можно посмотреть вот эту тему Удаление рабочей книги на нашем форуме.

[s8259]

Вставил вышеуказанный код во все модули и саму книгу, никуда файл не пропал. Может подскажите, в чем дело?