Форум программистов, компьютерный форум CyberForum.ru

MS Office Excel

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 18, средняя оценка - 4.72
Pandora12
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 61
#1

Как закрыть паролем отдельный лист в защищенный книге Excel-2003 - MS Excel

21.11.2012, 01:38. Просмотров 2296. Ответов 5
Метки нет (Все метки)

Есть защищеная книга в Excel-2003, состоящая из некоторого кол-ва отдлельных листов. Как сделать, чтобы при активации соответствуюещго листа выводилась запись о необходимости введения пароля, т.е. доступ к листу книги был бы только под паролем ?
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.11.2012, 01:38     Как закрыть паролем отдельный лист в защищенный книге Excel-2003
Посмотрите здесь:

Перенос данных сответствующих условиям на отдельный лист MS Excel
MS Excel Выборка на отдельный лист из перечня при совпадении
Макрос на копирование страниц на отдельный лист MS Excel
MS Excel Копирование результатов поиска по книге на отдельный лист
MS Excel Вывод на отдельный лист списка клиентов без повторений
MS Excel Блокировать лист в книге MS Excel 2003 от переименования
Как добавить кнопку Вычислить в книге Excel? MS Excel
Как создать новый лист в книге со ссылкой на предыдущий лист? MS Excel
MS Excel Проверка совпадений по двум столбцам с выводом результатов на отдельный лист
MS Excel Поиск совпадения значений в ячейках и вывод их на отдельный Лист
MS Excel Выделение подсчет и копирование одинаковых значений в отдельный лист
Как в книге проставить формулу со ссылкой на предыдущий лист MS Excel

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
sn_88
56 / 56 / 4
Регистрация: 21.06.2011
Сообщений: 166
21.11.2012, 14:22     Как закрыть паролем отдельный лист в защищенный книге Excel-2003 #2
Можно так попробовать (код поставить на ту страницу, которая нуждается в блокировке):
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Activate()
Application.EnableCancelKey = xlDisabled
A = InputBox("Vvedite parol", vbYesNo)
 
    If A <> "1234" Then
    MsgBox ("Parol ne verniy")
1:      Worksheets(1).Select
        Worksheets(1).Activate
    End If
On Error GoTo 1
Application.EnableCancelKey = xlInterrupt
End Sub
Только во избежание подсмотра пароля нужно залочить VbProject
Pandora12
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 61
21.11.2012, 15:00  [ТС]     Как закрыть паролем отдельный лист в защищенный книге Excel-2003 #3
Цитата Сообщение от sn_88 Посмотреть сообщение
Можно так попробовать
Спасибо, а как залочить VbProject ?
sn_88
56 / 56 / 4
Регистрация: 21.06.2011
Сообщений: 166
21.11.2012, 15:06     Как закрыть паролем отдельный лист в защищенный книге Excel-2003 #4
В оболочке VBA жмем вкладку Tools -> VbaProject Properties -> Protection и ставим галку на Lock Project for Viewing ну и пароль пишем. Это самый простой. Уверен, что в нете можно еще способов нагуглить )
Pandora12
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 61
21.11.2012, 15:10  [ТС]     Как закрыть паролем отдельный лист в защищенный книге Excel-2003 #5
Цитата Сообщение от sn_88 Посмотреть сообщение
В оболочке VBA жмем вкладку Tools -> VbaProject Properties -> Protection и ставим галку на Lock Project for Viewing ну и пароль пишем. Это самый простой. Уверен, что в нете можно еще способов нагуглить )
А не подскажете, как еще сдеалть пароль на всю книгу, чтобы можно было устанавливать срок действия пароля в рамках некого ограниченного переиода времени, т.е. закончился срок действия пароля и пользователь не cможет больше зайти в книгу (Excel-2003) ?
sn_88
56 / 56 / 4
Регистрация: 21.06.2011
Сообщений: 166
21.11.2012, 15:29     Как закрыть паролем отдельный лист в защищенный книге Excel-2003 #6
Вот так можно.(ставить на "Эта книга")

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled           
A = InputBox("Vvedite parol", vbYesNo)
 
If Date <= "22.12.2012" Then          ' проверка на дату 
    If A <> "1234" Then                    ' пароль
    MsgBox ("Parol ne verniy")
1:      ActiveWorkbook.Close (False)
 
    End If
On Error GoTo 1
Else: MsgBox ("Srok deystviya parola istek")
GoTo 1
 
End If
Application.EnableCancelKey = xlInterrupt
End Sub
Yandex
Объявления
21.11.2012, 15:29     Как закрыть паролем отдельный лист в защищенный книге Excel-2003
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru