Форум программистов, компьютерный форум, киберфорум
Наши страницы

MS Office Excel

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

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

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

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

Блокировать лист в книге MS Excel 2003 от переименования - MS Excel
Здравствуйте! Прошу подсказать, как оптимальнее всего заблокировать вкладку (лист книги) от переименования ? Ломать защиту никто не...

Копирование результатов поиска по книге на отдельный лист - MS Excel
Ребята, помогите! Уже замучился искать! Есть книга, около 30 листов, на каждом листе таблица из 4 столбцов (дата, время, название,...

Как создать новый лист в книге со ссылкой на предыдущий лист? - MS Excel
Добрый день. Есть реестр учета спецтехники. Его заполняет диспетчер каждый день. т.е. каждый день копирует форму на новый лист и потом...

Как в книге проставить формулу со ссылкой на предыдущий лист - MS Excel
Здравствуйте! Нужна помощь. Есть книга, выбираю ячейку и хочу проставить формулу ='1'!G44:H45+E44, на каждый лист в определённую ячейку и...

Как добавить кнопку Вычислить в книге Excel? - MS Excel
Помогите пожалуйста. Не могу разобраться как добавить кнопку обработки события в Exel.

Макрос на копирование страниц на отдельный лист - MS Excel
Здравствуйте! После нажатия кнопки "Создать сетки боёв" на листе "Список по группам") создаются копии определённых листов, в зависимости...

5
sn_88
59 / 59 / 4
Регистрация: 21.06.2011
Сообщений: 166
21.11.2012, 14:22 #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
2
Pandora12
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 61
21.11.2012, 15:00  [ТС] #3
Цитата Сообщение от sn_88 Посмотреть сообщение
Можно так попробовать
Спасибо, а как залочить VbProject ?
0
sn_88
59 / 59 / 4
Регистрация: 21.06.2011
Сообщений: 166
21.11.2012, 15:06 #4
В оболочке VBA жмем вкладку Tools -> VbaProject Properties -> Protection и ставим галку на Lock Project for Viewing ну и пароль пишем. Это самый простой. Уверен, что в нете можно еще способов нагуглить )
0
Pandora12
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 61
21.11.2012, 15:10  [ТС] #5
Цитата Сообщение от sn_88 Посмотреть сообщение
В оболочке VBA жмем вкладку Tools -> VbaProject Properties -> Protection и ставим галку на Lock Project for Viewing ну и пароль пишем. Это самый простой. Уверен, что в нете можно еще способов нагуглить )
А не подскажете, как еще сдеалть пароль на всю книгу, чтобы можно было устанавливать срок действия пароля в рамках некого ограниченного переиода времени, т.е. закончился срок действия пароля и пользователь не cможет больше зайти в книгу (Excel-2003) ?
0
sn_88
59 / 59 / 4
Регистрация: 21.06.2011
Сообщений: 166
21.11.2012, 15:29 #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
1
21.11.2012, 15:29
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2012, 15:29
Привет! Вот еще темы с ответами:

Выборка на отдельный лист из перечня при совпадении - MS Excel
Доброго времени суток! Прошу помочь мне в решении вопроса следующего содержания (пример приложен): В книге три листа с однотипными...

Перенос данных сответствующих условиям на отдельный лист - MS Excel
Есть лист &quot;Исходные данные&quot; в файле Excel на который копируются данные. Затем строки, соответствующие всем условиям, переносятся на лист...

Выделение подсчет и копирование одинаковых значений в отдельный лист - MS Excel
Добрый день! Есть эксель документ с логом просмотра разных документов за 10 лет. В логе название документа(буквы и цифры), дата...

Поиск совпадения значений в ячейках и вывод их на отдельный Лист - MS Excel
Здравствуйте! Помогите решить задачу. Есть Книга Exel (База данных). В Лист 1 имеется следующие столбцы: • Наименование – А • Директор...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

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