Форум программистов, компьютерный форум 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.11.2012, 01:38     Как закрыть паролем отдельный лист в защищенный книге Excel-2003
Посмотрите здесь:

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

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

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

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