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

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