Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
Pandora12
Форумчанин
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 61
21.11.2012, 01:38     Как закрыть паролем отдельный лист в защищенный книге Excel-2003   #1
Есть защищеная книга в Excel-2003, состоящая из некоторого кол-ва отдлельных листов. Как сделать, чтобы при активации соответствуюещго листа выводилась запись о необходимости введения пароля, т.е. доступ к листу книги был бы только под паролем ?
AdAgent
Объявления
21.11.2012, 01:38     Как закрыть паролем отдельный лист в защищенный книге Excel-2003
sn_88
Форумчанин
53 / 53 / 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
Форумчанин
53 / 53 / 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) ?
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2012, 15:29     Как закрыть паролем отдельный лист в защищенный книге Excel-2003
Еще ссылки по теме:

MS Excel Макрос на копирование страниц на отдельный лист
MS Excel Копирование результатов поиска по книге на отдельный лист
MS Excel Вывод на отдельный лист списка клиентов без повторений

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

Или воспользуйтесь поиском по форуму:
sn_88
Форумчанин
53 / 53 / 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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Задать вопрос
Опции темы

Текущее время: 02:34. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2015, vBulletin Solutions, Inc.
Яндекс.Метрика