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

[joojle]

Пароль на сохранение знают только пользователи этой книги. А нужен он для того что бы другой пользователь (если вдруг попадет эта книга к нему в руки)не мог внести изменения.
По поводу сохранения: Во общем так когда после изменения ячейки перейти на другую ячейку и запустить "Ctrl + S" тогда выходит сообщение "Команда недоступна!", а вот когда изменяешь данные в ячейке и оставаясь в ней же и запустить "Ctrl + S" то тогда уже выходит запрос на сохранение. Попробуйте так сделать.

[alvazor]

позвольте выразить свой восторг SAS888 и joojle (за последовательность и настырность) - целый учебник получился!
Если не затруднит, несколько вопросов:
- меню excel ОКНО - ОТОБРАЗИТЬ недоступно по причине свойства листа VeryHidden или отдельной командой сделано недоступным?
- где можно найти перечень хотя бы самых ходовых функций API с кратким описанием и синтаксисом (описания лучше бы на русском)
- EnableControl 945 = (True, False) - ни разу не видел эту конструкцию, красиво.... Где можно узнать назначение кодов?
- когда я в макросе вмешался в меню приложения, изменения коснулись всех открытых книг. Здесь же этого нет. Не соображу, как это достигается?
С уважением и благодарностью, Алексей

[SAS888]

- меню excel ОКНО - ОТОБРАЗИТЬ недоступно по причине свойства листа VeryHidden или отдельной командой сделано недоступным?

Свойства листа VeryHidden для этого достаточно.

- где можно найти перечень хотя бы самых ходовых функций API с кратким описанием и синтаксисом (описания лучше бы на русском)

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

- EnableControl 945 = (True, False) - ни разу не видел эту конструкцию, красиво.... Где можно узнать назначение кодов?

В этой теме уже был ответ Здесь.

- когда я в макросе вмешался в меню приложения, изменения коснулись всех открытых книг. Здесь же этого нет. Не соображу, как это достигается?

О чем идет речь конкретно? Какие настройки Excel Вы имеете ввиду?

[alvazor]

Спасибо профессионалу! Сориентировался во всех непонятках...
Последний вопрос снят (проверил свой макрос - все нормально ) Я в нем закрываю или убираю некоторые контекстные меню, ярлыки листов и т.п. Но вставлены команды восстановления при деактивации книги....

[joojle]

SAS888 Вы посмотрели то что я описал?

Пароль на сохранение знают только пользователи этой книги. А нужен он для того что бы другой пользователь (если вдруг попадет эта книга к нему в руки)не мог внести изменения.
По поводу сохранения: Во общем так когда после изменения ячейки перейти на другую ячейку и запустить "Ctrl + S" тогда выходит сообщение "Команда недоступна!", а вот когда изменяешь данные в ячейке и оставаясь в ней же и запустить "Ctrl + S" то тогда уже выходит запрос на сохранение. Попробуйте так сделать.

[сергей70]

Уважаемый SAS 888, доброго времени суток! Подскажите, как из Вашего файла Excel перелить данный макрос в мой файл Excel? Просто в моем файле достаточно много страниц, связанных между собой и при переносе моих листов в Ваш файл предстоит много работы по возобновлению связей между листами. Я попытался скопировать модули и вводную страницу с Вашего файла в свой, но при открытии моего файла с Вашими модулями он открывался полностью без запроса пароля. Заранее прошу прощения, что задаю, скорее всего, элементарный вопрос, но сам ответа на него не нашел. Заранее спасибо!

[SAS888]

Нужно скопировать вводный лист, разместив его обязательно первым, скопировать все программные модули, а также (что Вы, скорее всего не сделали), скопировать весь программный код из модуля "Эта книга" в соответствующий модуль.

[сергей70]

Уважаемый SAS 888, большое Вам спасибо, получилось! Позвольте задать еще вопрос - если мне необходимо, чтобы при вводе пользовательского пароля ("111", "222" и т. п.) помимо принадлежащего паролю листа выходил еще один лист(в моем случае №2), открывающийся при вводе любого пароля. В модуль ввел изменения, но не срабатывает. Будет возможность, посмотрите, пожалуйста.
Dim i As Integer, Psw As String, a
a = Array("230301", "111", "222", "333", "444", "view") 'Пароли
Psw = InputBoxDK("Введите пароль", "Ввод пароля")
If Psw = a(0) Then
Run "SheetsVisible": Exit Sub
End If
If Psw = a(UBound(a)) Then
Sheets(2).Visible = True
For i = 2 To Sheets.Count
Sheets(i).Visible = True
Next
Exit Sub
End If
For i = 0 To UBound(a) - 1
If Psw = a(i) Then
Sheets(i + 1).Visible = True: Sheets(1).Visible = xlVeryHidden
End If
Next

[joojle]

Вы имеете ввиду чтоб при вводе пароля напр:111 открывалось несколько страниц. Если так то на странице 3 этой темы есть описание решения этой проблемы.
или вот:
Для этого нужно команду выхода из процедуры вынести за цикл. Т.е. фрагмент кода
Код:
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]

А нет вру там уже это учтено.